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2 1.0 INTRODUCTION 

I 1.1 ABSTRACT 

1 THE RM05/3/2 SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM 
7 WHICH USES FUNCTIONAL MEANS TO VERIFY THE OPERABILITY OF THE 
ft RM05/3/2 DISK SUBSYSTEM. IN PARTICULAR. THE PROGRAM SERVES THE 
9 FOLLOWING PURPOSES: 

]? TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE 

2 DISK DRIVE, INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 
13 OPERATIONS; 

15 TO IMPLICITLY ESTABLISH CONFIDENCE IN THE DRIVE/ADAPTER 

16 ELECTRICAL INTERFACE; 

]l TO VERIFY THE FUNCTIONALITY OF THE RM05/3/2 SUBSYSTEM, INCLUDING 

19 THE MASS8US CONTROLLER, MASS8US ADAPTER AND THE DISK DRIVE. 

p? THE TEST IS COMPRISED OF 3 PARTS, WHICH WOULD NORMALLY BE RW^ IN 

SEQUENCE. STARTING WITH PART 1. BRIEFLY, PART 1 TESTS HOUSEKEEPING 

pi AND MECHANICAL POSITIONING OPERATIONS; PART 2 TESTS WRITE, READ AND 

pi WRITE CHECK OPERATIONS USING HEADER AJ^D DATA; PART 3 TESTS WRITE, 

25 READ AND WRITE CHECK OPERATIONS USING DATA. 

26 
27 
28 
29 

30 1.2 UNIT UNDER TEST 

IJ THE UNIT UNDER TEST (UUT) IS THE RM05/3/2 DISK SUBSYSTEM WHICH 

77 CONSISTS OF THE RH MASSBUS CONTROLLER, THE RM05/3/2 MASSBUS ADAPTER. 

% AND THE STORAGE MODULE DISK DRIVE. NOTE THAT A DISK PACK IS REQUIRED 

35 FOR TESTING AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK 

36 DRIVE. 
37 

38 
39 

«0 2.0 OPERATING REQUIREMENTS 

tl 2.^ HARDWARE REQUIREMENTS 

il THE FOLLOWING MINIMUM HARDWARE ("ONF IGURATrlON. ASSUMED TO BE 

^5 OPERATIONAL. IS REQUIRED TO LOAD AND EXECUTE THE RM05/3/2 SUBSYSTEM 

46 FUNCTIONAL TEST: 
47 

48 PDP-11 PROCESSOR 

49 20K MEMORY 

50 KW11-L OR KW11-P CLOCK 

51 PROGRAM LOADING DEVICE 

52 TERMINAL 

55 OR RH70 CONTROLLER ^^.^ ^,«r.:>.c^ 

54 1 TO 8 DISK DRIVES (ANY COMBINATION OF RM05'S, RMOS'S OR RM02'S) 

55 
56 
57 
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2.2 MEDJA REQUIREMENTS 

EACH UNIT BEING TESTED MUST BE LOADED WITH A SCRATCH DISK PACK 
BEFORE TESTING BEGINS ON THAT UNIT. THE DISK MUST BE FORMATTED AND 
CONTAIN A READABLE COPY Of THE MFG AND USR BAD SECTOR FILES. 



2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 
RM05/3/2 DISKLESS TEST, PART 1 £ 2 
RM05/3/2 FUNCTIONAL TEST. PART 1 

3.0 OPERATING PROCEDURE 

3.1 LOADING 

THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 

.PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 
.XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 

3.2 SWITCH OPTIONS 

THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 
OF THE PROGRAM. 

SW15 HALT ON ERROR 

SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 

SW13 INHIBIT ERROR TYPEOUTS 

SW12 UNUSED 

SWll INHIBIT TEST ITERATIONS 

SWIG BELL ON ERROR 

SW09 LOOP ON ERROR 

SWOB LOOP ON TEST IN SW07-00 

THE LOW ORDER 8 SWITCHES (SW07-SW00). ARE USED IN CONJUNCTION WITH 

SWOB TO SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL 

LOOP ON. 

3.3 STARTING 

THE PROGRAM MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 
200 WILL BE THE NORMAL STARTING ADDRESS. STARTING AT 204 WILL ENABLE 
THE RH/RM BASE ADDRESS TO BE CHANGED. IF RUNNING IN A STAND-ALONE 
ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR 
TO CONTROL TEST CONDITIONS. 
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3.4 HALTIfyJG 

THE PROGRAM SHOULD BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 

NOTE: IF THE PROGRAM IS HALTED BY ANY OTHER MEANS. BAD HEADER 
INFORMATION MAY BE LEFT ON THE DISK PACK. THIS OF COURSE 
DEPENDS ON WHICH TEST IS BEING PERFORMED AT THE TIME OF THE 
HALT. 



3.5 RESTARTING 

THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 

4.0 OPERATOR INTERFACE 

4.1 PROGRAM ID 

THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. ALSO. A WARNING MESSAGE IS TYPED, 
NOTIFING THE OPERATOR OF POSSIBLE HEADER CORRUPTION IF THE PROGRAM IS 
HALTED IMPROPERLY. THE PROGRAM IDENTIFICATION AND THE WARNING DO NOT 
OCCUR IF THE PROGRAM IS RESTARTED. 

4.2 CONSOLE DIALOGUE 

WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE, IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D. AND WARNING 
MESSAGE. CSEE SECTION 4.1) 

THE FIRST QUESTION TYPED OUT IS: 'TYPE HELP TEXT (L) N ?". 
IF THE OPERATOR RESPONDS WITH A "Y". THE PROGRAM WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE 
TO THE QUESTION IS CONSIDERED A "H" AND NO HELP TEXT IS TYPED. THIS 
QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 
SUBSEQUENT STAPT-UP'S. 

ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT ^OCATION 204. 
THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING 
DIALOGUE. 



EXAMPLE 1 

RMCS1 =176700 <CR> 
RMVEC=000254 <CR> 

EXAMPLE 2 



;N0 CHANGE IN ADDRESS 
;N0 CHANGE IN ADDRESS 



RMCS1 = 176700 177200<CR> .-CHANGE BASE ADDRESS TO 177200 
RMVEC 000254 260<CR> ; CHANGE VECTOR ADDRESS TO 260 

ON THE INITIAL START. THE NEXT QUESTION Tyofp js. 'TYPE "A" 



G 1 

7RMHB0 wM05/^/tr ""TNL TST 2 "WCRO V04.00 A-APR-81 11:43:53 PAGE 3-3 



SEO 0006 



'7^ 

174 

175 

176 

177 

178 

179 

180 

181 

182 

133 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 



TEST ALL DRIVES. OR TYPE DRIVE NUMBER(S) AND TERMINATE INPUT WITH 
A CARRIAGE RETURN'. THEN. •DRIVE(S):' IS TYPED AND WAITS FOR THE 
OPERATOR TO TYPE AN "A". TO TEST ALL POSSIBLE DRIVES OR TYPE ANY 
STRING OF DRIVE NUf«ER(S) TO BE TESTED AND TERMINATE THE INPUT WITH A 
"CARRIAGE RETURN". NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN 
ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 
SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON AlL SUBSEQUENT 
STARTS. ONLY THE 'DRIVECS):' PROMPT IS TYPED. 

THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 
DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 
IS AN EXAMPLE PRINTOUT: 

•UNIT STATUS: 

0 ONLINE RM03 

1 LOAD DEVICE 

2 OFFLINE RM05 

3 NOT PRESENT 

4 NOT PRESENT 

5 NOT AN RM05/3/2 

6 NOT PRESENT 

7 NOT PRESENT' 

THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 WILL BE TESTED. WHILE DRIVES 
1 - 7 WILL NOT BE TESTED. 

THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASFD ON THE 
STATUS OF THE DRIVE: 

•DRIVE(S) TO BE TESTED. 0" 

IF NO DRIVES ARE AVAILABLE FOR TESTING, THE FOLLOWING MESSAGE WILL BE 
TYPED TO THE OPERATOR: 

•DRIVE (S) TO BE TESTED. NONE' 

THE PROGRAM WILL THEN. EITHER START TESTING THE DRIVES AVAILABLE FOR 
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT. 

OfJCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR 
AS EACH DRIVE BEGINS TO BE TESTED: 

'DRIVE 0' 

AFTER ALL THE DRIVES ARE COMPLETELY TESTED. THE END OF PASS 
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM 
IS HALTED BY THE OPERATOR. 

NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 
OF RESPONSE REQUIRED BY THE USER. D DECIMAL. 0-OCTAL AND 
L=LETTER. 



4.3 PROGRESS REPORTS 



H 1 
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AN END OF PASS REPORT OCCURS EACH TJME THE PROGRAM IS EXECUTED 
FOR ALL DEVICES IN THE TEST OUE. THE END OF PASS REPORT IS AS FOLLOWS. 



•END OF PASS 



1* 



THE FOLLOWING MESSAGE WILL ALSO OCCUR IF THERE WERE ERRORS SINCE 
THE LAST END OF PASS REPORT. 



•TOTAL ERRORS SINCE LAST REPORT 



0' 



4.4 PERFORMANCE REPORT 

NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 



4.5 PROGRAM HALTS 

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 



4.6 ERROR REPORTS 

THE FIR5T LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT (DRIVE) BEING TESTED. THE DRIVE TYPE, THE TEST NUMBER, THE ERROR 
NU^BER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. 
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: ONE OR MORE LINES OF TEXT 
WHICH GIVE A BRIEF, YET COMPREHENSIVE DESCRIPTION OF THE ERROR. THE 
ERROR MESSAGE IS NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES 
CONTAINING DATA HEADERS AND DATA PERTININENT TO THE ERROR, INCLUDING 
EXPECTED AND ACTUAL TEST RESULTS. 

THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM: 

DRV# 0 - RM03, TEST* 14. ERR* 326, PC=016654 
MASS8US DATA BUS PARITY ERROR *WDPE" (RMCS2. BIT 8) DETECTED 
DURING WRITE COMMAND 
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EXPECTD 


RECEVD 




040300 


040700 




RMCS1 


RMCS2 


RMDS 


144252 


040700 


010700 


RMWC 


RMBA 


RMDA 


177403 


104604 


000002 


RMMR1 


RMMR2 


RMDT 


000010 


011777 


024026 


EXECUTION 


TIME 





RMER1 

000000 

RMOF 

010000 

RMSN 

1 77777 



RMER2 
000000 
RMDC 
000000 



RMAS 
000000 
RMEC1 
004066 



RMEC2 
000000 



PASS 1 OF THE PROGRAM TAKES ABOUT 6 SECONDS. 
SUBSEQUENT PASSES TAKE ^5 SECONDS. 



PASS 2 AND 
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P86 5.0 ENVIRONMENTAL SUPPORT 

pfg 5.1 PROCESSOR COMPATIBILITY 

igo THE RM05/3/2 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON ANY PDP-H 

pqi PROCESSOR, PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENT'^ ARE 

pop MET AND PROVIDING THAT DATA THROUGHPUT ON THE SYSTEM IS SJFFKIENT TO 

293 SUSTAIN DATA TRANSFER OPERATIONS. 

295 

297 5.2 DUAL PORT CONFIGURATIONS 

pgg THE RM05/3/2 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST 

^00 DUAL PORT LOGIC IN THE RM05/3/2 ADAPTER BUT IS EXECUTABLE ON 

501 RM05/3/2 SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL 

302 PORT SWITCH IS SET TO THE APPROPRIATE PORT (A OR 8). 

303 
304 

306 5.3 MEMORY PARITY HARDWARE 

308 MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 

309 RM05/3/2 SUS8YSTEM FUNCTIONAL TEST. 
310 

311 

313 5.4 MEMORY MANAGEMENT HARDWARE 

lit MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RM05/3/2 

316 SUSBYSTEM FUNCTIONAL TEST. CAPABILITIES OF THE MASSBUS CONTROLLER. 

31/ 
318 

320 5.5 ACTll, APT11 COMPATIBILITY 

ipi 

3PP THE RM05/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 

•jp3 AND APTII IN BOTH DUMP AND AUTOMATIC MODES. FURTHER. IHE PROGRAM 

324 WILL EXECUTE A QUICK: PASS DURING THE FIRST PASS IN SUPPORT OF QUICK 

325 VERIFY MODE. 
326 

327 
328 

329 5.6 XXDP COMPATIBILITY 

111 THE RM05/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN 

332 DUMP AND CfHAIN MODES. AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 

333 THE RM05/3/2 IS THE XXDP LOADING DEVICE. 
334 

335 
336 

337 5.7 OPERATING SYSTEM COMPATIBILITY 

330 

339 THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 

340 

341 

342 
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6.0 TEST DESCRIPTION 



TEST 1 CONTROLLER ACCESS TEST 
PURPOSE : 

TO VERIFY THAT THE UNI8US ADDRESS OF 
CORRECT, AS DEFINED AT LOCATION SBASE. 

PROCEDURE : 



THE SUBSYSTEM IS 



THE TEST TRIES TO ACCESS ALL MASS8US CONTROLLER REGISTERS 
USING THE $8ASE ADDRESS. REGISTER CONTENTS ARE IGNORED DURING 
THE TEST. AND THE TEST FAILS IF A BUS TIMEOUl OCCURS FOR ANY 
REGISTER TRANSFER. 

IF THE TEST FAILS AND THE PROGRAM IS RUNNING IN A STAND 
ALONE ENVIRONMENT. I.E.. LOCATION 42 IS 0. THE PROGRAM WILL JUMP 
TO LOCATION 204 WHICH ALLOWS THE OPERATOR TO CHANGE THE $8ASE 
ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE. THE PROGRAM ESCAPES TO 
THE END OF PASS HANDLER. 



TEST 2-31 

PURPOSE : 



WRITE/READ HEADER AND DATA (FORMAT) TESTS 



TO TEST WRITE HEADER AND DATA AND READ HEADER AND DATA 
FUNCTIONALITY OF THE RM05/3/2 SUBSYSTEM USING A SET OF VARIABLES 
WHICH INCLUDE WORD COUNT. HEAD MOTION. HEAD SWITCHING AND ERROR 
CONDITIONS. 

PROCEDURE : 

ALTHOUGH EACH TEST EXERCISES A DIFFERENT VARIABLE. THE 
GENERAL PROCEDURE OF EACH TEST IS THE SAME. THE DRIVE IS 
INITIALIZED AND RECALIBRATED IF 'PIP" OR "SKI" ARE ACTIVE SO THAT 
THERE ARE NO ERRORS WHEN A TEST BEGINS. FOLLOWING THAT. THE TEST 
PERFORMS ANY EXPLICIT SEEKS REQUIRED FOR THE CONDITIONS OF THE 
TEST. REGISTERS ARE PRESET AND THE WRJTfc HEADER AND DATA COMMAND 
IS EXECUTED. WHEN THE WRITE COMMAND IS COMPLETE. THE TEST STORES 
ALL SUBSYSTEM STATUS AND CHECKS FOR PRIMARY ERRORS WHICH PRECLUDE 
OTHER STATUS CHECKS. IF THERE ARE NO PRIMARY ERRORS. THE TEST 
VERIFIES THE RESULTS OF THE WRITE COMMAND AND THEN CHECKS FOR 
SECONDARY ERRORS. LOOP ADDRESSES ARE MODIFIED FOLLOWING THE 
SUCCESSFUL COMPLETION OF THE WRITE COMMAND IN ORDER tq SHORTEN 
EXECUTION TIMES AND ENHANCE SCOPING LOOPS. THEN THE PROGRAM 
EXECUTES THF READ HEADER AND DAIA PORTION OF THE TEST. VERIFYING 
THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND. 
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NOTE: THE SECTOR USED DURING A TEST MAY DIFFER FROM THE PROGRAM 
LISTING BECAUSE THE ^R0GRAf1 SUBSTITUTES A GOOD SECTOR, IF 
THE ONE SELECTED IS LISTED IN THE BAD BLOCK TABLE. 



TEST 2 FORMAT ZEROS TEST 

rrrrrl^^ 51^*^^ CYLINDER 0, THEN WRITES HEADER AND DATA ON 

SECTOR 0 IN 18 BIT FORMAT. THE HEADER AND DATA HELDS ARE ALL 
ZEROS. CAUSING THE DEVICE TO USE NORMAL WRITE GATE. THE HEADER 
AND DATA ARE READ AND COMPARED WITH THE WRITE BUFFER. THE 
INITIAL SEEK POSITIONS THE HEAD SUCH THAT THERE IS NO IMPLIED 
SEEK. THE TEST IS REPEATED FOR 16 BIT FORMAT. inrLitu 



TEST 3 ZERO FILL TEST TEST 

,r I^^ I!^^ EXECUTES A SEEK TO CYLINDER 0 TO INSURE THAT THERE 
IS NO HEAD MOTION DURING DATA TRANSFER. THIS IS FOLLOWED BY A 
WRITE HEADER AND DATA COMMAND WITH THE WORD COUNT EQUAL TO THE 
V.lfr. "^^^ HEADER WHICH CAUSES THE RH TO ZERO FILL THE DATA 
FIELD. THE READ HEADER AND DATA COMMAND THAT FOLLOWS READS A 
FULL SECTOR AND \/ERiriES THAT DATA WAS ZERO FILLED. 



TEST 4. FORMAT Cf^ECK ZEROS TEST 

ncr,rJ«! ^^^^ WRITES HEADER AND AN ALL ZEROS DATA FIELD. THEN 
AD? ?n cDDADc^^^ ^^^^^ HEADER AND DATA COMMAND AND VERIFIES THERE 



TEST 5 FORMAT CHECK ZEROS W/ WCE ERROR TEST 

THE TEST WRITES HEADER AND AN ALL ZEROS DATA FIELD. AFTER 
COMPLEMENTING THE LAST WORD OF THE WRITE BUFFER. THE TEST 
PERFORMS A WRITE CHECK HEADER AND DATA COMMAND AND VERIFIES THAT 
THE CORRECT WRITE CHECK ERROR IS DETECTED. 



TEST 6 FORMAT ONES TEST 
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THE TEST WRITES HEADER AND AN ALL ONES DATA FIELD, THEN 
READS THE HEADER AND DATA. VERIFYING THE READ BUFFER WITH THE 
WRITE BUFFER. THE ALL ONES FIELD IS A CONSTANT FREQUENCY, AND 
THE DRIVE SHOULD USE NORMAL WRITE GATE. 



TEST 7 FORMAT CHECK ONES TEST 

THE TEST FORMATS AN ALc ONES DATA FIELD, THE PERFORMS A 
WRITE CHECK HEADER AND DATA COMMAND, VERIFYING THAT THERE ARE NO 
ERRORS. 



TEST 10 FORMAT CHECK ONES W/ WCE ERROR TEST 

THE TEST FORMATS AN ALL ONES DATA FIELD, THEN COMPLEMENTS 
THE LAST WORD OF THE WRITE BUFFER. A WRITE CHECK HEADER AND DATA 
COMMAND IS EXECUTED, AND THE TEST VERIFIES THAT THE CORRECT WRITE 
CHECK ERROR IS DETECTED. 



TEST 11 FORMAT MULTIPLE SECTORS TEST 

THE TEST SEEKS TO CYLINDER 0 TO INSURE THERE IS NO HEAD 
MOTION DURING DATA TRANSFER. THE WRITE HEADER AND DAT/* COMMAND 
FOLLOWS, WITH THE WORD COUNT EQUAL TO MULTIPLE SECTORS. THE SAME 
SECTORS ARE VERIFIED WITH A WRITE CHECK HEADER AND DATA COMMAND. 



TEST 12 FORMAT WITH HEAD SWITCHING TEST 

THE TEST SEEKS TO CYLINDER 0 TO INSURE THERE IS NO HEAD 
MOTION DURING DATA TRANSFER. THE WRITE HEADER AND DATA COMMAND 
STARTS WITH CYLINDER 0, TRACK 0, SECTOR 31. THE WORD COUNT IS 
EQUAL TO MULTIPLE SECTORS WHICH CAUSES THE SUBSYSTEM TO SWITCH 
FROM TRACK 0 TO TRACK 1 AFTER THE FIRST OF THE MULTIPLE SECTORS 
ARE WRITTEN. THE SAME SECTORS ARE VERIFIED WITH A w<^j^E CHECK 
HEADER AND DATA COMMAND. USING THE SAME WORD COUNT AND STARTING 
SECTOR. 
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5H 

515 

516 

517 

518 

519 

520 

521 

522 

523 

52A 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

5A1 

542 

543 

544 

54*) 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 
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TEST 13 F0RP1AT WITH MID-TRANSFER SEEK TEST 

THIS TEST WRITES MULTIPLE SECTORS STARTING WITH CYLINDER 0. 
LAST TRACK AND SECTOR 31., CAUSING A MIDTRANSFER SEEK AFTER THE 
FIRST SECTOR IS WRITTEN. THE SAME SECTORS ARE VERIFIED WITH WRITE 
CHECK HEADER AND DATA COMMAND. 



TEST 14 FORMAT WITH IMPLIED SEEK TEST 

THIS TEST SEEKS TO THE LAST CYLINDER PRIOR TO WRITING HEADER 
AND DATA ON CYLINDER 0. THE EXPLICIT SEEK INSURES THAT THERE 
WILL BE MAXIMUM HEAD MOTION DURING THE IMPLIED SEEK OF THE WRITE 
COMMAND. THE SAME OPERATION. INCLUDING THE EXPLICIT SEEK IS 
REPEATED FOR READ HEADER AND DATA. 



TEST 15 FORMAT EACH SECTOR ADDRESS TEST 

HEADERS AND DATA OF EACH SECTOR ON CYLINDER 0. TRACK 0 ARE 
FORMATTED AND READ WITH THE PROGRAM VERIFYING HEADERS AND DATA. 



TEST 16 FORMAT EACH TRACK ADDRESS TEST 

THIS TEST FORMATS SECTOR 0 OF EACH TRACK ON CYLINDER 0 AND 
READS EACH SECTOR WITH THE PROGRAM VERIFYING HEADERS AND DATA. 



TEST 17 FORMAT PRIME CYLINDERS TEST 

THIS TEST FORMATS AND READS SECTOR 0. TRACK 0 ON EACH PRIME 

CYLINDER, I.E.. CYLINDERS 1. 2. 4. 8.. 16.. 32.. 64.. 128.. 256.. 
AND 512. 



TEST 20 READ HEADER & DATA IN LAST SECTOR TEST 

THIS TEST READS HEADER AND DATA ON THE LAST SECTOR OF THE. 
DISK. I.E., AND VERIFIES THAT "L8T" STATUS SETS. 
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571 
572 

574 TEST 21 READ HEADER & DATA W/ AGE ERROR TEST 

576 THJS TEST READS MULTIPLE SECTORS STARTING WITH THE LAST 

577 SECTOR 31. AND VERIFIES THAT AOE STATUS SETS. 

578 
579 
580 
581 
582 

583 TEST 22 READ INVALID SECTOR ADDRESS TEST 

584 

585 THIS TEST USES AN ILLEGAL SECTOR ADDRESS AND VERIFIES THAT 

586 lAE STATUS SETS. 
587 

588 
589 
590 
591 

592 TEST 23 READ INVALID TRACK ADDRESS TEST 

593 

594 THIS TEST USES AN ILLEGAL TRACK ADDRESS AND VERIFIES THAT 

595 iAE STATUS SETS. 
596 

597 
598 
599 
600 

601 TEST 24 READ INVALID CYLINDER ADDRESS TEST 

603 THIS TEST USES AN ILLEGAL CYLINDER ADDRESS AND VERIFIES THAT 

604 IAE STATUS SETS. 
605 

606 
607 
608 
609 

610 TEST 25 FORMAT AT OFFSET TEST 

612 THE PROGRAM SETS OFFSET MODE AND EXECUTES A WRITE HEADER AND 

613 DATA COWAND, VERIFYING THAT OFFSET MODE IS RESET BY THE WRITE 

614 COMMAND. 
615 

616 
617 
618 
619 

620 TEST 26 IVC FORMAT TEST 

ft?1 

622 VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC 

623 MODE. THE TEST THEN EXECUTES A WRITE HEADER AND DATA COMMAND AND 

624 VERIFIES THAT INVALID COMMAND STATUS SETS. THE TEST IS REPEATED 

625 FOR READ HEADER AND DATA COMMAND. 
626 

627 
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628 
629 

651 TEST 27 FORMAT ERROR TEST 

^« A SINGLE SECTOR IS FORMATTED WITH THE OFFSET REGISTER SET 

FOR 16 BIT FORMAT AFTER WHICH THE SAME SECTOR IS READ IN 18 BIT 

trk FORMAT WITH THE PROGRAM VERIFYING THAT FORMAT ERROR STATUS IS 

6% SET. THE SAME PROCEDURE IS REPEATED WITH THE SECTOR WRITTEN IN 

^37 18 BIT FORMAT AND READ IN 16 BIT FORMAT. 

638 
639 
640 
641 
64? 

643 TEST 30 & 31 FORMAT HCE TEST (1ST AND 2ND HEADER WORDS) 

644 

645 THESE TWO TESTS WRITE AN INCORRECT HEADER THEN READ THE 

646 HEADER AND VERIFY THAT THE CORRECT HEADER ERROR IS DETECTED. THE 

647 TESTS SETUP THE CORRECT HEADER. THEN COMPLEMENT BF 0 AND USE THE 

648 MODIFIED BUFFER TO WRITE THE HEADER. THE PROCESS IS REPEATED 

649 UNTIL EACH BIT POSITION HAS BEEN SEPARATELY TESTED. 

650 \ 
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479 
480 



481 



482 



483 
484 



001100 
104000 
000004 



00001 1 
000012 
00001 5 
000200 
177776 
1 7777k 
y7777C 
1 77772 
1 77570 
1 77570 



000000 
000001 
000002 
000003 



OPERATIONAL SWITCH SETTINGS 



SWITCH 

15 
14 
13 
12 
11 
10 

9 

8 

7 

6 

5 

4 

3 

2 

1 

0 



USE 



;*LAST REVISION 04-APR-81 

TITLE CZR.1N80 RM05/3/2 FCTNL TST 2 

•COPYRIGHT (C) 1981 

•DIGITAL EQUIPMENT CORPORATION 

•COLORADO SPGS.. CO. 80919 

* 

•PROGRAM BY MIKE LEAVITT 
* 

•THIS PROGRAM WAS ASSEMBLED USING THE PDP-II MAINDEC SVSMAC 
•PACKAGE (MAINDEC-11-DZQAC-C5). 18-MAR-81 

S8TTL 

* 
* 
* 
* 

* 

* 
* 
* 

* 

» 
» 



HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
UNUSED 

INHIBIT ITERATIONS 
BELL ON ERROR 
LOOP ON ERROR 
LOOP ON TEST IN SWR<7:0> 
TNI 28 
TN64 
TN32 
TNI 6 
TN8 
TN4 
TN2 
TNI 



S8TTL BASIC DEFINITIONS 

OF THE STACK POINTER 



; •INITIAL ADDRESS 
STACK =1100 
ERROR = EMT 

SCOPE = I or 



1100 



; .-BASIC DEFINITION OF ERROR CALL 
;;BASIC DEFINITION CjF SCOPE CALL 



.••MISCELLANEOUS DEFINITIONS 



HT 
LF 
CR 
CRLF 
PS 

PSW=PS 

STKLMT 

PIRO 

DSWR 

DDISP 



11 
12 
15 
200 
177776 

1 7777i, 
\77772 
1 77570 
177570 



;;CODE FOR HORIZONTAL TAB 
;;CODE FOR LINE FEED 
;;CODE FOR CARRIAGE RETURN 
;;CODE FOR CARRIAGE RETURN-LINE FEED 
; .-PROCESSOR STATUS WORD 

.-STACK LIMIT REGISTER 
.•PROGRAM INTERRUPT REQUEST REGISTEP 
.•HARDWARE SWITCH REGISTER 
.•HARDWARE DISPLAY REGISTER 



; •GENERAL PURPOSE REGISTER DEFINITIONS 



RO 
R1 
R2 
R3 



XO 
XI 
X2 
X3 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 



t 



CZRMNBO RM05/3/2 fCTNL 
BASIC DEMNITIONS 

000004 
000005 
000006 
000007 
000006 
000007 



oooooo 

000040 
000100 
0001 AO 
OOOPOO 
000240 
000300 
000340 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
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R4 
R5 
R6 
«7 

SP 
PC 



24 
X5 
26 
X7 
Xt 
17 



.••PRJORITY LEVtL 

PRO - 0 

PR! = 40 

PR2 - 100 

PR3 - 140 

PR4 - 200 

PR5 = 240 

PR6 = 300 

PR 7 = 340 

;•' 'SWITCH REGISTER" 
Swn = 100000 
SW14 - 40000 
SW13 = 20U00 
SW12 = 10000 
SW11 = 4000 
SW10 = 2000 
SW09 = 1000 
SW08 = 400 
SW07 = 200 
SW06 = 100 
SW05 = 40 
SW04 = 20 
SW03 = 10 
SW02 = 4 
SW01 = 2 
SWOO = 1 
SW9=SW09 
SU8=SW08 
SW7=SW07 
SW6=SW06 
SW5=SW05 
SU4=SW04 
SW3=SW03 
SW2=SW02 
SWT -5W01 
SUO=SWOO 



.••DATA BIT DEFINITIONS 

8IT15 = 100000 

SITU = 40000 

Bin 3 - 20000 

Bin 2 - 10000 

BIT11 = 4000 

BIT10 - 2000 

BIT09 = 1000 

BIT08 400 

BIT07 - 200 

BIT06 - 100 

BIT05 - 40 



.•GENERAL REGISTER 
.•GENERAL REGISTER 
.•GENERAL REGISTER 
.•GENERAL REGISTER 
.•STACK POINTER 
.•PROGRAM COUNTER 



DEFINITIONS 

PRIORITY LEVEL 0 

PRIORITY LEVEL 1 

PRIORITY LEVEL 2 

PRIORITY lEVEl 3 

PRIORITY LEVEL 4 

PRIORITY LEVEL 5 

PRIORITY LEVEL 6 

PRIORITY LEVEL 7 



SWITCH DEFINITIONS 



(BITOO TO BIT15) 



CZRMNBO RM05/^/2 FCTNL 
BASIC OFFINITICWS 

000020 
000010 
OOOOOA 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 

485 
486 
48^ 
488 
489 

490 004000 

491 000040 

492 000020 

493 000010 

494 000004 

495 000002 

496 000001 

497 000077 
498 

499 

500 000000 

501 000002 

502 000004 

503 000006 

504 000010 

505 000012 

506 000014 

507 000016 

508 000020 

509 000022 

510 000022 
5'1 000024 
512 000026 
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b:to4 

BIT03 

BJTG2 

BIT01 

BITOO 

B]T9=8] 

BIT8=BI 

BIT 7=81 

BIT6=8I 

BIT5=8I 

B1T4=8I 

BIT3=81 

8IT2=8] 

BIT1=8: 

BIT0=8I 

.••BASIC 

ERRVEC 

RESVEC 

T8ITVEC 

TRTVEC 

BPTVEC 

lOTVEC 

PWRVEC 

EMTVEC 

TRAPVEC 

TKVEC 

TPVEC 

PIRQVEC 



= 20 
= 10 
= 4 
= 2 
= 1 
T09 
T08 
T07 
T06 
T05 
T04 
T03 
T02 
T01 
TOO 

' 'CPU' ' 
= 4 
^ 10 
= 14 
= 14 
= 14 
= 20 

- 24 
= 30 

34 

- 60 

- 64 

- 240 



TRAP VECTOR ADDRESSES 

TIME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (8PT) 
INPUT/OUTPUT TRAP (lOT) ••SCOPE" 
POWER FAIL 

EMULATOR TRAP (EMT) ••ERROR** 
"TRAP" TRAP 
TTy KEYBOARD VECTOR 
TTV PRINTER VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 



.S8TTL RM REGISTER BIT DEFINITIONS 



:«RMCS1 CONTROL STATUS REGISTER 



DVA 

F4 

F3 

F2 

F1 

FO 

GO 



BIT11 
BIT05 
BIT04 
BIT03 
BIT02 
BITOT 
- BITOO 



FNCMSK = 000077 



.•FUNCTION 
NOP 

ILF02 = 
SEEK 
RECAL 
DRVCLR - 
RLEASE = 
OFFSET = 
RTC 
RIP 

PAKACK - 

PACACK = 
ILF24 
ILF26 = 



CODES (81 TS 01 

000000 

000002 

000004 

000006 

000010 

000012 

000014 

000016 

000020 

000022 

PAKACK 

000024 

000026 



DEVICE AVAILABLE-READ ONLY 

FUNCTION CODE 

FUNCTION CODE 

FUNCTION CODE 

FUNCTION CODE 

FUNCTION CODE 

GO BIT 

FUNCTION CODE MASK 



-05 OF RMCS1) 

NOP COMMAND 
ILLEGAL COMMAND 
SEEK COMMMID 
RECALIBRATE COMMAND 
DRIVE CLEAR COMMA,ND 
RELEASE COMMAND 
OFFSET COMMAND 

RETURN TO CENTERLINE COMMAND 
READ IN PRESET COMMAND 
PACK ACKNOWLEDGE COMMAND 

.•ILLEGAL COMMAND 
.•ILLEGAL COMMAND 
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513 

516 



517 

518 

519 

520 

5.^1 

52? 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

554 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 



000030 
000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000052 
000054 
000056 
000060 
000062 
000064 
000066 
000070 
000072 
000074 
000076 



010000 
004000 
002000 
001000 
000400 



000020 
000010 
000004 
000002 
000001 



1 77400 
000377 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000001 



SEARCH 

ILF30 

1LF32 

ILF34 

ILF36 

ILF40 

ILF42 

ILf44 

ILF46 

UCD 

WCH 

ILF54 

ILF56 

UD 

UH 

ILF64 
ILr66 
RD 
RH 

ILF74 
ILF76 



000030 
000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000052 
000054 
000056 
000060 
000062 
000064 
000066 
000070 
000072 
0000?'4 
000076 



•RMDA DISK ADDRESS REGISTER 



; TRACK 
TA16 
TA8 
TA4 
TA2 
TA1 

.•SECTOR 

SA16 

SA8 

SA4 

SA2 

SA1 

; TRACK 
TADMSK 
SADMSK 



ADDRESS DEFINITIONS 
= BIT12 
= BIT11 
= BIT10 
= BIT09 
= BIT08 



ADDRESS 
- BIT04 
= BIT03 
= BIT02 
= BITOT 
= 81 TOO 



£ SECTOR MASKS 
= 177400 
= 000377 



DEFINITIONS 



.-•RMDS DRIVE STATUS REGISTER 



ATA 

ERR 

PIP 

MOL 

URL 

L8T 

PGM 

DPR 

DRY 

VV 

OM 



BIT15 
BITU 
BIT13 
BIT12 
BIT11 
BIT10 
BIT09 
BIT08 
BIT07 
BIT06 
BITOO 



SEARCH rOMMAND 
ILLEGAL COMMAND 



ILLEGAL 
ILLEGAL 



COMMAND 
COMMAND 



ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

WRITE CHECK DATA COMMAND 

WRITE CHECK HEADER AND DATA 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

WRITE DATA COMMAND 

WRITE HEADER AND DATA COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

READ DATA COMMAND 

READ HEADER AND DATA COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 



TRACK ADDRESS 16. 
TRACK ADDRESS 8. 
TRACK ADDRESS 4 
TRACK ADDRESS 2 
TRACK ADDRESS i 



SECTOR ADDRESS 16. 
SECTOR ADDRESS 8. 
SECTOR ADDRESS 4 
SECTOR ADDRESS 2 



SECTOR ADDRESS 1 



.'TRACK ADDRESS MASK 
.•SECTOR ADDRESS MASK 



ATTENTION ACTIVE 
COMPOSITE ERROR 
POSITIONING IN PROGRESS 
MEDIUM ON LINE 
WRITE LOCK 

LAST BLOCK TRANSFERRED 

PROGRAMMABLE 

DRIVE PRESENT 

DRIVE READY 

VOLUME VALID 

OFFSET MODE ACTI/E 



•RMERl ERROR REGISTER #" 
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565 








8IT15 








566 


100000 


OCK 


- 






DATA CHECK ERROR 


567 


OAOOOO 


UNS 




BIT14 






DRIVE UNSAFE 


568 


020000 


QPJ 




BIT13 






OPERATION INCOMPLETE 


569 


010000 


DTE 




B1T12 






DRIVE TIMING ERROR 


570 


OOAOOO 


WLE 


r 


BIT11 






WRITE LOCK ERROR 


571 


002000 


lAE 




BIT10 






INVALID ADDRESS ERROR 


572 


001000 


AOE 


= 


BIT09 






ADDRESS OVERFLOW ERROR 


573 


000400 


HCRC 


- 


BIT08 






HEADER CRC ERROR 


57A 


000200 


HCE 


- 


BIT07 






HEADER COMPARE ERROR 
ECC "HARD" ERROR 


575 


000100 


ECH 


= 


BIT06 






576 


000040 


WCF 




BIT05 






WRITE CLOCK FAILURE 


577 


000020 


•^ER 


— 


BIT 04 






FORMAT ERROR 


578 


000010 


PAR 




BIT03 






PARITY ERROR 


579 


000004 


RMR 




BIT02 






REGISTER MODIFICATION REFUSED 


580 


000002 


ILR 




BJT01 






ILLEGAL REGISTER 


581 


000001 


ILF 




BITOO 






ILLEGAL FUNCTION 


582 
















58^ 


115760 


NDTMSK 




DCK.DTE 


1 WLE. AOE 


HCRC.HCEIECH.WCF.'FER 


584 




;*MDTMSK" 


IS USED 


TO MASK 


ERROR REGISTER 1 DURING NON - DATA 


585 




.•COMMANDS. I.E.. 


HOUSEKEEPING AND POSITIONING COMMANDS 


586 
















587 




; *RMAS 


ATTENTION 


SUMMARY 


REGISTER 


588 
















589 


000377 


ATNMSK 




377 






MASK FOR ATTtNiJUN BiiS 


590 
















591 




; *RMLA 


LOOK AHEAD REGISTER 




592 
















593 


002000 


SC4 




BIT10 






;SECTOR COUNT 16 


59A 


001000 


SC3 




BIT09 






.•SECTOR COUNT 8 


595 


000400 


SC2 




BIT08 






; SEC TOR COUNT - 4 


596 


000200 


SCI 




BJT07 






.•SECTOR COUNT - 2 


597 


000100 


SCO 




BIT06 






; SEC TOR COUNT - 1 


598 
















599 


003700 


SCTMSK 




003700 






r SEC TOR COUNT MASK 


600 
















601 




.••RMMR1 


MAINTENANCE REGISTER »^ 




602 
















603 




.•WRITE 


ONLY BITS 








604 


100000 


D8CK 




BIT15 






; DEBUG CLOCK 


605 


040000 


D8EN 




BIT14 






;DE8UG CLOCK ENABLE 


606 


020000 


DE8L 




BIT 13 






.•DIAGNOSTIC END OF BLOCic 


607 


010000 


DTO 




BIT12 






.•DIAGNOSTIC T'MEOUT 


608 


004000 


MCL< 




BIT11 






.•MAINTENANCE CLOCK 


609 


002000 


MRD 




BIT10 






;READ DATA 


610 


001000 


MUR 




BIT09 






;UNIT READY 


611 


000400 


MOC 




BIT08 






;0N CYLINDER 


612 


000200 


MSER 




BIT07 






.■SEEK ERROR 


613 


000100 


MDF 




BJT06 






; DRIVE FAULT 


6K 


000040 


MS 




BIT05 






.•SECTOR PULSE 


615 


000010 


MWP 




BIT03 






.•WRITE PROTECT 


616 


000004 


MI 




B1T02 






.•INDEX PULSE 


617 


000002 


MSC 




BJT01 






.SECTOR COMPARE 


618 


000001 


DMD 




BITOO 






.•DIAGNOSTIC MODE 


619 
















620 




.•READ ONLV BITS 








621 


'00000 


OCC 




BIT15 




.•OCCUPIED 
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t<K KtEOIsTER BIT DEFINITIONS 

t22 OAOOOO 

623 0?0000 

6?^ COOOO 

625 OOAOOO 

626 002000 

627 001000 

628 OOOAOO 

629 000200 

630 0001 CO 

631 GOOOAO 

632 000020 

633 000010 

634 000004 

635 000002 

636 000001 
637 

658 
639 

640 100000 

641 040000 

642 020000 

643 004000 
644 

645 020024 

646 024024 
647 

648 
649 

650 010000 

651 004000 

652 002000 

653 000200 
654 

655 
656 

657 001777 

658 

659 

660 

661 

662 100000 

663 040000 

664 020000 

665 010000 

666 004000 

667 002000 
670 001000 

000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
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SEQ 002 



RG 


= BITU 


RUN AND GO 


EBL 


- 8JT13 


END OF BLOCK 


REX 


- BIT12 


EXCEPTION 


ESRC 


- BJT11 


ENABLE SEARCH 


PLFS 


= 8JT10 


LOOKING FOR SYNC 


ECftC 


BJT09 


ENABLE CRC OUT 


PDA 


BiT08 


DATA AREA 


PHA 


- B1.T07 


HEADER AREA 


CONT 


- BIT06 ; 


CONTINUE 


WL 




WUnU L L Ut K 


££CC 


- BIT04 


ENABLE ECC OUT 


Ml lf\ 




uoirc nATA OIT 


LS 


- BJ102 


LAST SECTOR 


LST 


- BJT01 


LAST SECTOR AND TRACK 


DMD 


= BJTOO 


DIAGNOSTIC MODE 


. *DMr\ T 

; •Hnf 1 






NSA 


BIT15 


NOT SECTOR ADDRESSED 0 


TAD 


- BIT14 


TAPE DRIVE = 0 


MOH 


= BIT13 


MOVING HEAD = 1 




- Bini 


DRIVE REQUEST REQUIRED 


SNGPRT 


- 020024 .'SINGLE PORT DRIVE TYPE (RW02) 


DULPRT 


- 024024 ;DiJAL PORT DRIVE TYPE (RM02) 




OFFSET REGISTER 




vr\ \ ID 


- BIT12 


;16 BIT WORD FORMAT 


ECI 


BIT11 


;ECC INHIBIT 


ur I 
HL i 


- BIT10 


.-HEADER COMPARE INHIBIT 


OFD 


- b:to7 


.•OFFSET FORWARD 


;»RWDC 


DESIRED CYLINDER ADDRESS 


REGISTER 


CYLMSK 


- 001777 


;MASK FOR CYLINDER ADDRESS 


; •RMMR2 


MAINTENANCE REGISTER *2 




.•READ ONLY BITS 




RQA 


- 8ni5 


;PORT A REOUFST 


RQ8 


B1T14 


;PORT 8 REQUEST * 


TAG 


= BIT13 


;TAG CONTROL 


TST 


- BJT12 


; COMMAND SEQUENCE TEST BIT 


CC 


- BJT11 


; CONTROL OR CYLINDER TAG 


CH 


BJT10 


.•CONTROL OR HEAD TAG 


8809 


- BIT09 


;TAG BUS 


8808 


- BIT08 


;TAG BUS 


8807 


BJT07 


;TAG BUS 


8806 


BIT06 


;TAG BUS 


8805 


= BIT05 


; TAG BUS 


BB04 


- BIT04 


;TAG BUS 


8803 


= BIT03 


.-TAG BUS 


8802 


- BIT02 


;TAG BUS 


8801 


= BIT01 


;TAG BUS 


8800 


81 TOO 


; TAG BUS 



Z«W«0 RM05/5/2 FCTSL TST 2 
RM REGISTER BIT DEFINIMONS 



•"lACRO VO^.OO 



b72 




;»RMER2 


ERROR R 


fc73 








674 


100000 


BSE 


BIT15 


675 


OAOOOO 


SKI 


- BIT14 


676 


020000 


OPE 


- BIT13 


677 


^4 ^^^^^^^ 

010000 


IVC 


- 8IT12 


678 


OOAOOO 


LSC 


BIT11 


679 


002000 


L8C 


8IT10 


68C 


000200 


DVC 


- 8IT07 


6ei 


000010 


DPE 


= 8IT03 


682 








633 




.S8TTL 


PROGRAM 


68^ 








685 


100000 


MSE 


BIT15 


686 


o^ocoo 


USE 


- BIT14 


687 








688 




.S8TTL 


RM RE 61 


689 








690 


A A A A A 

000000 


RMCS1 


00 


691 
692 
693 


000006 


RMDA 


- 06 


000012 


f<MDS 


12 


0000 u 


RMER1 


- 14 


69^ 


000016 


RMAS 


= 16 


695 


000020 K 


RMLA 


= 20 


696 


000024 


RMMRI 


- 2A 


697 


000026 


RMDT 


- 26 


698 


000030 


RMSN 


= 30 


699 


000032 


RMCF 


- 32 


700 


00003A 


RMDC 


= 34 


701 


000036 


RMHR 


= 36 


702 


OOOOAO 


RM(*1R2 


=^ AO 


703 


000042 


RMER2 


- A2 


704 


000044 


RMECI 


= AA 


705 


0000A6 


R«EC2 


= A6 


708 


000050 


JLRG50 
JLRG52 


= 50 




000052 


= 52 




000054 


ILRG54 


= 54 




000056 


ILRG56 


- 56 




000060 


ILRG60 


= 60 




000062 


ILRG62 


= 62 




000064 


ILRG64 


- 6A 




000066 


I LRG66 


- 66 




000070 


ILRG70 


= 70 




000072 


ILRG72 


= 72 




000074 


ILRG74 


= 7A 




000076 


ILRG76 


= 76 


709 








710 


000077 


IDXMSK 


77 


71 1 








712 




.S8TTL 


RH CONT 


71 3 








71/. 






CUNIRUL 


715 








716 


100000 


sc 


- BIT15 


717 


0^0000 


TRE 


- 8IT1A 


718 


020000 


MCPE 


- 8IT13 


719 


002000 


PSEL 


- BIT10 



I 2 
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REGISTER 2 



SEO 002' 



8AD SECTOR ERROR 
SEEK INCOMPLETE 
OPERATOR PLUG ERROR 
INVALID COMTIAND ERROR 
LOSS OF SYSTEM CLOCK 
LOSS OF BIT CLOCK 
DEVICE CHECK 
DATA PARITY ERROR 



.•MANUFACTURING DETECTED SECTOR ERROR 
;USER DETECTED SECTOR ERROR 



CONTROL STATUS REGISTER *1 
DISK ADDRESS REGISTER 
DRIVE STATUS REGISTER 
ERROR REGISTER #1 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
MAINTENANCE REGISTER 
DRIVE TYPE REGISTER 
SERIAL NUMBER REGISTER 
OFFSET REGISTER 
DESIRED CYLINDER REGISTER 
HOLDING REGISTER 
MAINTEIW\NCE REGISTER *2 
ERROR REGISTER #2 
ECC POSITION REGJSTER 
ECC PATTERN REGISTER 
ILLEGAL REGISTER 50 
ILLEGAL REGISTER 52 
ILLEGAL REGISTER 54 
ILLEGAL REGISTER 56 
ILLEGAL REGISTER 60 
ILLEGAL REGISTER 62 
ILLEGAL REGISTER 64 
ILLEGAL REGISTER 66 
ILLEGAL REGISTER 70 
ILLEGAL REGISTER 72 
ILLEGAL REGISTER 7A 
ILLEGAL REGISTER 76 

.•MASK FOR REGISTER INDEX NUMBER 



RH CONTROLLER REGISTER BIT DEFINITIONS 



SPECIAL CONDITION-READ ONLY 
TRANSFER ERROR 

MASS8US CONTROL BUS PARITY ERROR-READ ONLV 
PORT 6 SELECT 



'"ZRMryBO RM05/^/2 fCTML TS' 
RH CONTROLLER REGISTER BIT 



2 inACRO V0« 
DEFINITIONS 



,00 4-Ar^R-81 11:45:33 



J 

HAG£ 



2 
4-? 



720 
^21 
72? 
723 
72A 
725 
726 
727 
728 
^29 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
742 



743 
744 
745 
746 
747 
748 
749 
750 
75 ( 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
■'69 
7/"0 
77'' 
772 
773 
774 



001000 
000400 
000200 
000100 



100000 
040000 

020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000007 



100000 
040000 
020000 
010000 
004000 
002000 
000100 
000010 
000004 
000002 
000001 



000000 
000002 
000004 
000010 
000022 
000050 
000052 

" 76700 
120254 



A17 
A16 
RDY 
IE 



= BJT09 

- BIT08 

- BIT07 
= BIT06 



ADDRESS EXTENSION 
ADDRESS EXTENSION 
READY-READ ONLY 
INTERRUPT ENABLE 



;»RMCS2 RH CONTROL STATUS REGISTER *2 



DLT 

UCE 

UPE 

NED 

NEM 

PGE 

MXF 

MDPE 

OR 

IR 

CLR 

PAT 

BAI 

U2 

Ul 

UO 



BIT15 
BIT14 
BIT13 
BIT12 
BJTll 
BITIO 
BJT09 
B1T08 
BJT07 
BIT06 
BIT05 
BIT04 
BIT03 
BIT02 
BIT01 
BITOO 



.•UNIT SELECT MASK 
UNTMSK = 7 



DATA LATE-READ ONLY 
WRITE CHECK ERROR-READ ONLY 
UNI8US PARITY ERROR 
NONEXISTANT DRIVE -RE AD ONLY 
NONEXISTANT MEMORY-READ ONLY 
PROGRAM ERROR-READ ONLY 
MISSED TRANSFER 

MASSeilS DATA BUS PARITY ERROR-READ ONLY 
OUTPUT READY-READ ONL^' 
INPUT READY-READ ONLY 
CONTROLLER CLEAR 
PARITY TEST 

UNI8US ADDRESS INCREMENT INHIBIT 
UNIT SELECT 
UNIT SELECT 
UNIT SELECT 



.-UNIT SELECT MASK 



.••RMCS3 RH70 CONTROL STATUS REGISTER #3 



APE 




BIT15 


ADDRESS PARITY ERROR 


DPEHI 




BIT14 


DATA PARITY ERROR HIGH WORD 


DPELO 




BiT13 


•DATA PARITY ERROR LOW WORD 


UCEHI 




BIT12 


•WRITE CHECK ERROR HIGH WORD 


UCELO 




BITll 


■WRITE CHECK ERROR LOW WORD 


D8L 




B1T10 


DOUBLE WORD TRANSFER 


IE 




BIT06 


•INTERRUPT ENABLE 


IPCK3 




BIT03 


•INVERT PARITY CHECK 


IPCK2 




BIT02 


•INVERT PARITY CHECK 


IPCKI 




BITOT 


■INVERT PARITY CHECK 


IPCKO 




BITOO 


■INVERT PARITY CHECK 


.S8TTL 


RH CONTROLLER REGISTER INDEX VALUES 


RMCS1 




00 


■CONTROL. STATUS REGISTER #1 


RMUC 




02 


;WORD COUNT REGISTER 


RM8A 




04 


■BUS ADDRESS REGISTER 


RMCS2 




10 


■CONTROL. STATUS REGISTER »? 


RMD8 




22 


■DATA BUFFER 


RM8AE 




50 


•BUS ADDRESS EXTENSION 


RMCS3 




52 


; CONTROL. STATUS REGISTER *3 


ABASE 




176700 ; UNI BUS ADDRESS 


AVECTl 




120254 .-UNIBUS VECTOR ADDRESS AND PRIORITY 



TRAP CATCHER 



000000 



K 2 
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000174 
0001 74 000000 
000176 000000 



2 

3 000204 000137 005422 
4 
5 



000200 0001-37 005452 



000046 
000052 



6 
7 
8 



000210 
000046 
032122 
000052 
000000 
000210 

001100 



SEO 002- 



.S8TTL TRAP CATCHER 



•ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2, HALT" 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
. = 174 



DISPRE6: 
SUREG: 



.WORD 
.WORD 



0 
0 



; .-SOFTWARE DISPLAY REGISTER 
;; SOFTWARE SWITCH REGISTER 



.SBTTL STARTING ADDRESS 'cS> 
JMP q)>»START 
JMP a#START1 

.S8TTL AC Til HOOKS 

■HOOKS REQUIRED BY ACTII 
$SVPC=. 
.=46 
SENDAD 
.=52 

.WORD 0 
.=$SVPC 

.=1100 

.S8TTL APT PARAMETER BLOCK 



;;JUMP TO STARTING ADDRESS Of PROGRAM 
.•CHANGE RH/RM BUS ADDRESS 



;SAVE PC 

;;1>SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

;;2)SET L0C.52 TO ZERO 
;; RESTORE PC 



000024 
000044 



001100 
001100 
001102 
001104 
001106 

oonio 

001112 



001100 
000024 
000200 
000044 
001100 
001100 



000000 
001222 
000006 
000006 
000006 
000042 
001114 



SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 



.$X=- 

.=24 

200 

.=44 

SAPTHDR 

. = .$X 



SAVE CURRENT LOCATION 

SET POWER FAIL TO POINT TO START OF PROGRAM 
FOR APT START UP 

POINT TO APT INDIRECT ADDRESS PNTR. 
POINT TO APT HEADER BLOCK 
RESET LOCATION COUNTER 



SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 



SAPTHD 

$HI8TS 

STBADR 

STSTM: 

SPASTM; 

SUNITM: 

TAGADR 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 

SMAIL 

6 
6 
6 



TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
ADDRESS OF APT MAILBOX (BITS 0-15) 
RUN TIM OF LONGEST TEST 

RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SEcS) OF A PASS FOR EACH ADDED UNIT 



$ETEND-$MAlL/2 ; .'LENGTH MAILBOX-ETABLE (WORDS) 



"ZRWjBO RM05/3/2 FCTNL 

TjMwcn tags 
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.S8TTL COMMON TAGS 



SEO 00?4 



.••THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 



001 Ti 4 
0011U 
001116 
001 1 1 7 
001120 
001122 
001124 
001126 
001130 
001131 
001132 
001134 
001136 
001140 
001142 
001144 
001146 
001 1 50 
001151 
001152 
001154 
001156 
001160 
001162 
001164 
001166 
001 1 70 
001171 
001172 
001173 
001 1 74 
001176 
001200 
001202 
C01204 
001206 
001210 
001212 
001216 
001217 
001220 



001114 

000000 

000 
000 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
177570 
177570 
177560 
1 77562 
1 77564 
1 77566 
000 
002 
012 
000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
207 
077 
015 
012 



377 
000 



377 



.=TAGADR 



SCMTAG: 






.WORD 


0 


STSTNM 


.BYTE 


0 


SERFLG 


• BYTE 


0 


$ICNT: 


.WORD 


0 


fLPADR 


.WORD 


0 


SLPERR 


.WORD 


0 


SERTTL 


.WORD 


0 


$ITEM8 


.BYTE 


0 


SERMAX 


.BYTE 


1 


SERRPC 


.WORD 


0 


SGDADR 


.WORD 


0 


SSDADR 


.WORD 


0 


SGDDAT 


.WORD 


0 


$8DDAT 


.WORD 


0 




.WORD 


0 




.WORD 


0 


SAUTOB: .BYTE 


0 


SINTAG 


" .BYTE 


0 




.WORD 


0 


SUR: 


.WORD 


DSWR 


DISPLAY: .WORD 


DDISP 


$TKS: 


177560 




$TK8: 


177562 




$TPS: 


177564 




$TP8: 


177566 





$NULL : 
SPILLS 
SFILLC 
STPFLG 
STMPO 
STMPI 
$TMP2 
$TMP3 
$TMP4 
STIMES: 
SESCAPE 
SBELL 
SQUES 
SCRLF 
$LF: 



.BYTE 0 

.BYTE 2 

.BYTE 12 

.BYTE 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 
0 
:0 

.ASCIZ <207><377><377> 

.ASCII /?/ 

.ASCII <15> 

.ASCIZ <12> 



;; START OF COMMON TAGS 



CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX. ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTION 
CONTAINS ADDRESS OF 'GOOD' DATA 
CONTAINS ADDRESS OF 'BAD' DATA 
CONTAINS 'GOOD' DATA 
CONTAINS 'BAD* DATA 
RESERVED— NOT TO BE USED 



; .-AUTOMATIC MODE INDICATOR 
.-.INTERRUPT MODE INDICATOR 



ADDRESS OF SWITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBD STATUS 
TTY K8D BUFFER 

TTY PRINTER STATUS REG- ADDRESS 
TTY PRINTER BUFFER REG. ADDRESS 
CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS * OF FILLER CHARACTERS REQUIRED 
INSERT FILL CHARS. AFTER A "LINE FEED" 
"TERMINAL AVAILABLE" FLAG (8IT<07>-0 YES) 
USER DEFINED 
USER DEFINED 
USER DEFINED 
USER DEFINED 
USER DEFINED 

MAX. NUMBER OF ITERATIONS 
ESCAPE ON ERROR ADDRESS 
CODE FOR BELL 
QUESTION MARK 
CARRIAGE RETURN 
LINE FEED 



•»•****«*»»****•*•*•*««**»*••••**»**•**•***••**•*»*•••*•»**•*••• 



.SBTTL APT MAI L60X-E TABLE 



001222 

001222 000000 

001224 000000 

001226 000000 



•-»•*»*»**♦*♦*«»»««*««»»♦♦**«•*♦•»•♦•••••••»•»»»•»*»»*•»»•••»••»• 

'.EVEN 
SMAIL: 

SMSGTY: .WORD AMSGTY 
tFATAL: .WORD AFATAL 
STESTN: .WORD ATESTN 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 



CZRP^eO RM05/3/2 FCTNL T5T 2 MACRO V04.00 <.-APft-81 11:^3:53 
APT MAILB0X-ETA8LE 



VV 1 C J V 


fMVlOftO 
wvwv 


SPASS: 




WORD 

■ WW»»i' 


APASS 




000000 


SDEVCT 




.WORD 


ADEVC 


001 


000000 

wv/wwww 


SUNIT: 




.WORD 


AUNIT 


001 P% 


000000 

wWwww 


SMSGAD: 


WORD 


AMSGAD 


001240 


000000 


SMSGLG: 


.WORD 


AnSGLG 


001242 




$E TABLE: 






001242 


000 


$ENV: 




.BYTE 


AENV 


001 ?^ 3 


000 

www 


SENVM: 




.BYTE 


AENVn 


001244 


000000 


SSUREG: 


.WORD 


ASWREG 


001246 


000000 


SUSUR: 




.WORD 


AUSWR 


001250 


000000 


SCPUOP: 
• » 
■ * 
• * 


.WORD 


ACPUOP 


001252 


000 


• » 

; * 
• * 

S/WIS1 




.BYTE 


AMAnSi 


001253 


000 


SMTYPI 
• * 

• » 
« 


: 


.BYTE 


AMTYP1 


001254 

WW 1 C J~ 


000000 

wwww w w 


• * 
• » 

$MADR1 


: 


.WORD 


AflADRI 


001 256 


000 


»nAMS2: 


.BYTE 


AMAMS2 


001257 

WW 1 L • 


000 


$MTYP2: 


.BYTE 


AMTYP2 


001260 


000000 


$MADR2: 


.WORD 


AMADR2 


001262 


000 


$MAMS3: 


.BYTE 


AWAMS3 


001263 


000 


$MTYP3; 


.BYTE 


AMTYP3 


001 264 


000000 

www 


$MADR3: 


.WORD 


AmDR3 


001266 

VW I 


000 


$MAMS4: 


.BYTE 


ArW1S4 


001267 


000 


$«TYP4: 


.BYTE 


AWTYP4 


001270 


000000 

WW V V 


$mDR4: 


.WORD 


AriADR4 


001272 


120254 


SVECTI: 


.WORD 


AVECT1 


001 274 


000000 


$VECT2: 


.WORD 


AVECT2 


001276 


1 76700 


$8ASE 




.WORD 


ABASE 


001 300 


000000 


SDEVM 




.WORD 


ADEVM 


001302 


000000 

W V W V 


SCDW1 




.WORD 


ACDW1 


001 304 


000000 


$CDW2 




.WORD 


ACDW2 


001 306 


000000 


SDDUO 




.WORD 


ADDWO 


001 310 


000000 


$DDU1 




.WORD 


ADDW1 


001312 


000000 


SDDU2 




.WORD 


ADDW2 


001314 


000000 


$DDU3 




.WORD 


ADDW3 


001316 


000000 


$DDU4 




.WORD 


ADDW4 


001320 


000000 


$DDU5 




.WORD 


ADDW5 


001322 


000000 


$DDU6 




.WORD 


ADDW6 


001324 


000000 


$DDU7 




.WORD 


ADDW7 


001326 




SETEND: 










.MEXIT 







M 2 

PAGE 6-1 

SEO 00.' 

;;PASS COUNT 
;; DEVICE COUNT 
;;I/0 UNIT NUMBER 
.-.•MESSAGE ADDRESS 
.-.'MESSAGE LENGTH 
;;APT ENVlROfyWENT TABLE 
.-.ENVIRONMENT BYTE 
.-.-ENVIRONMENT MODE BITS 
;;APT SWITCH REGISTER 
;;USER SWITCHES 
;;CPU TYPE. OPTIONS 
BITS 15-11=CPU TYPE 

11/04=01.11/05=02,1 1/20^03.11/40=04.11/45=05 

11/70=06.PDO=07.0^10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
.-;HIGH ADDRESS.M.S. BYTE 
;;MEM. TYPE.BLKAI 
MEM. TYPE BYTE — (HIGH BYTE) 

900 NSEC CORE =001 

300 NSEC BIP0LAR=002 

500 NSEC MOS=003 
.-.-HIGH ADDRESS, 8LK#1 

MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOW OF "TYPE" ABOVE 
;;HIGH ADDRESS,M.S. BYTE 
.-.-MEM. TYPE ,8LK#2 
; .-MEM. LAST ADDRESS. BLM2 
.-.-HIGH ADDRESS, M.S. BYTE 
;.-MEM.TYPE,8LK#3 
.-.-MEM.LAST ADDRESS,8LK*3 
;.-HI6H ADDRESS. M.S. BYTE 
;; MEM. TYPE ,8L»C#4 
.-.-MEM.LAST ADDRESS.BLK*4 
;; INTERRUPT VECTORXfl.BUS PRIORITY*! 
;; INTERRUPT VECT0R>»2BUS PRIORI TY>»2 
.-.-BASE ADDRESS Of EQUIPMENT UNDER TEST 
.-; DEVICE MAP 

.-.-CONTROLLER DESCRIPTION W0RD*1 
; .-CONTROLLER DESCRIPTION W0RD*2 
.-.-DEVICE DESCRIPTOR WORD*0 
.-.-DEVICE DESCRIPTOR W0RD*1 
;; DEVICE DESCRIPTOR W0RD*2 
.-.-DEVICE DESCRIPTOR W0RD/ir3 
.-.-DEVICE DESCRIPTOR W0RD*4 
.-.-DEVICE DESCRIPTOR W0RD#5 
.-.•DEVICE DESCRIPTOR W0RD*6 
;:DEVICE DESCRIPTOR W0RD#7 



CZRMNBO RM05/3/2 FCTML 
USER DEFINED TAGS 



001326 000000 
OO: 350 000000 
001332 000000 
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bEO 0026 



001334 
001335 



001336 



001336 
001 3A0 
001 3A2 
001 3A A 
001346 
001350 
001352 
001 35A 
001356 
001360 
001362 
001364 
001366 
001370 
001372 
001374 
001376 
001400 
00140? 
001404 
001406 
001410 



001412 



000 
000 



.S8TTL USER DEFINED TAGS 



CTLF6: 

CHGADR: 

XXDP: 



LSTRK: 



.WORD 
.WORD 
.WORD 



.BYTE 
.BYTE 



0 
0 
0 



0 
0 



CONTAINS CONTROL-C FLAG 

CHANGE RH/RM BUS ADDRESS -- -1. NO CHANGE = 0 
THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
•XXDP* DEVICE CODE FOR THE RM05/3/2. 
LO BYTE = 0 

HI BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT 
UNDER TEST. RM02/3 = 4., RM05 = 18. 



.-THE REGISTER INPUT BUFFER IS USED FOR 
.■STORING DRIVE STATUS 



GET8UF: 

.•REGISTER INPUT BUFFER 



000000 


RMCS1I: .WORD 


0 


000000 


RMWCI 


.WORD 


0 


000000 


RMSAI 


.WORD 


0 


000000 


RMDAI : 


.WORD 


0 


000000 


RMCS2I: .WORD 


0 


000000 


RMDSI 


.WORD 


0 


000000 


RMER1I: .WORD 


0 


000000 


RMASI 


.WORD 


0 


000000 


RMLAI 


.WORD 


0 


000000 


RMD8I 


.WORD 


0 


000000 


RMMR1I: .WORD 


0 


000000 


RMDTI 


.WORD 


0 


000000 


RMSNI 


.WORD 


0 


000000 


RMOFI 


: .WORD 


0 


000000 


RMDCI 


.WORD 


0 


000000 


RMHRI 


.WORD 


0 


000000 


RMMR2I: .WORD 


0 


000000 


RMER2I: .WORD 


0 


000000 


RMECII: .WORD 


0 


000000 


RMEC2I: .WORD 


0 


000000 


RMBAEI: .WORD 


0 


000000 


RMCS3I: .WORD 


0 



CONTROL. STATUS REGISTER *1 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
CONTROL. STATUS REGISTER It2 
DRIVE STATUS REGISTER 
ERROR REGISTER »y 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
DATA BUFFER 

MAINTENANCE REGISTER #1 

DRIVE TYPE REGISTER 

SERIAL NUMBER REGISTER 

OFFSET REGISTER 

DESIRED CYLINDER REGISTER 

HOLDING REGISTER 

MAINTENANCE REGISTER *2 

ERROR REGISTER #2 

ECC POSITION REGISTER 

ECC PATTERN REGISTER 

BUS ADDRESS EXTENSION REGISTER 

CONTROL, STATUS REGISTER *3 



;THE REGISTER OUTPUT BUFFER IS USED FOR 
.•ASSEMBLING DATA GOING TO REGISTER 



PUT8UF ; 

.■REGISTER OUTPUT BUFFER 



001412 


000000 


RMCS10: 


.WORD 


0 


001414 


000000 


RMWCO: 


.WORD 


0 


001416 


000000 


RM8A0: 


.WORD 


0 


001420 


000000 


RMDAO: 


.WORD 


0 


001422 


000000 


RMCS20: 


.WORD 


0 


001424 


000000 


RMDSO: 


.WORD 


0 


001426 


000000 


RMER10: 


.WORD 


0 


001430 


000000 


RMA50: 


.WORD 


0 


001432 


000000 


RMLAO: 


.WORD 


0 


001434 


000000 


RMD80: 


.WORD 


0 


00' 4 36 


000000 


RMMR10: 


.WORD 


0 



CONTROL. STATUS REGISTER *1 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
CONTROL, STATUS REGISTER It2 
DRIVE STATUS REGISTER 
ERROR -EGISTER tt^ 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
DATA BUFFER 

MAINTE/ ANCE REGISTER #^ 



SFR DEFINED TAGS 



00K40 
00U42 
00K44 
001446 
0OK50 
00K52 
00U54 
00H56 
001460 
001462 
00U64 



000000 
000000 
000000 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 



001524 



001553 
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SEO 00?/ 



001466 OOOOOO 
0014 70 

001510 OOOOOO 



001512 OOOOOO 



001514 OOOOOO 

001516 OOOOOO 

001 520 OOOOOO 

001522 OOOOOO 



RMDTO 

RMSW 

RMQFO 

RMDCO 

RMHRO 

RfW20 

RMER20 

RMEC10 

RMEC20 

RMBAEO 

RMCS30 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



DRIVE TYPE REGISTER 

SERIAL NUMBER REGISTER 

OFFSET REGISTER 

DESIRED CYLINDER REGISTER 

HOLDING REGISTER 

MAINTENANCE REGISTER #2 

ERROR REGISTER #2 

ECC POSITION REGISTER 

ECC PATTERN REGISTER 

BUS ADDRESS EXTENSION REGISTER 

CONTROL. STATUS REGISTER #3 



EACH WORD Of THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 
IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE 
END OF THE QUE. 



TSTQJE: 



.WORD 
.8LKW 
.WORD 



0 
8. 

0 



CONTAINS DEVICE POINTER 
TEST QUE FOR DEVICES UNDER TEST 
TABLE TERMINATOR GOES HERE WHEN 
ALL 8. DEVICES ARE UNDER TEST. 



;MEDIA ENABLE IS SET IF THE BAD SECTOR FILES HAVE BEEN RECOVERED 
;FOR THE UNIT UNDER TEST. OTHERWISE IT IS ZERO. 
MEDENB: .WORD 0 .-MEDIA ENABLE 



.•LOCATIONS "ASNDC" AND "ASNDC" CONTAIN THE CYLINDER. TRACK AND SECTOR 
.•ADDRESS ASSIGNED BY THE BAD SECTOR MODULE. 

0 .-ASSIGNED DESIRED CYLINDER 

0 .-ASSIGNED TRACK. AND SECTOR 

0 .UNIBUS ADDRESS OF KWll CLOCK 

0 .-VECTOR ADDRESS OF KWll CLOCK 



ASNDC: .WORD 

ASNDA: .WORD 

CLKADR: .WORD 

CLKVCT: .WORD 



THE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH 
ARE READ BY THE GET SUBROUTINE. THE LIST IS TERMINATED BY 
A NEGATIVE BYTE. 
GETINX: .8LKB 23. ;GET INDEX TABLE 

THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH 
ARE WRITTEN BY THE PUT SUBROUTINE. THE LIST IS TERMINATED BV 
A NEGATIVE BYTE. 
PUTINX: .8LK8 23. ;PUT INDEX TABLE 



;PUT TAGS HERE 



ZZfimSO RM05/3/2 FCTNL TST 2 
FRROR POINTER TABLE 



MACRO .04.00 
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.S8TTL ERROR POINTER TABLE 

•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
•THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
•LOCATION $ITE^e. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
•NOTEl: 
•N0TE2: 



IF $ITEM8 IS 0 THE ONLY PERTINENT DATA IS (SERRPn, 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS 

EM ; .-POINTS TO THE ERROR MESSAGE 

DH ;; POINTS TO THE DATA HEADER 

DT ; .-POINTS TO THE DATA 

DF .-.-POINTS TO THE DATA FORMAT 



1 
2 
3 



001602 



001602 
C0 1604 
001606 
001610 



4 
5 
6 



001612 
001614 
001616 
001620 



8 

9 



001622 
001624 
001626 
001630 



'0 
11 

12 



001632 
001634 
001C36 
001640 



15 
14 
15 



001642 
001644 
001646 
001650 



065324 
071410 
071534 
071624 



065330 
071410 
071534 
071624 



065336 
071410 
071534 
071624 



06S344 
071410 
071534 
071624 



06S352 
071410 
071534 
071624 



SERRTB: 
.•ERROR 1 



EMT1 
EHT^ 
EDTl 
EFTI 



.-ERROR 2 



EMT2 
EHTl 
EDTl 
EFTI 



.-ERROR 3 



EMr3 
EHTl 
EDTl 
EFTI 



; ERROR 4 



EMT4 
CHTI 
EDTl 
EFTI 



; ERROR 5 



EMT5 
EHTl 
EDTl 
EFTI 



WRONG UNIT SELECTED 



DEVICE WENT UNAVAILABLE 



DEVICE WENT NONEXISTENT 



CONTROLLER NOT READY 



DRIVE NOT READY AND GO NOT RESET 



'6 
'7 



.-ERROR 6 



UNEXPECTED VALUE FOR "ATA" STATUS 



FRROR POINTER TABLE 



18 



001652 
001654 
001656 
001660 



065360 
07K10 
071534 
071624 
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Em6 

EHT1 
EDT1 



SEO 00?<> 



19 

20 
21 



001662 
001664 
001666 
001670 



22 
23 
24 



001672 
001674 
001 676 
001700 



25 
26 

27 



001702 
001 704 
001706 
001710 



28 
29 
30 



001712 
001714 
001716 
001720 



065566 
000000 
000000 
000000 



065374 
071410 
071534 
071624 



065400 
071410 
071534 
071624 



065404 
071410 
071534 
071624 



;E«»R0R 7 



EMT7 

0 
0 

0 



.•ERROR 10 



EMTIO 
EHTl 
EDT1 
EFT1 



;ERROR 11 



EMT11 
EHTl 
EDT1 
EFTI 



; ERROR 12 



EMT12 
EHTl 
EDTl 
EFTI 



BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 



DRIVE NOT READY BUT GO IS RESET 



GO NOT RESE' BUT DRiVE IS READY 



INCORRECT FUNCTION CODE 



31 
32 
33 



001 722 
001 724 
001726 
00 J 730 



065412 
071410 
071534 
071624 



.-ERROR 13 



EMT13 
EHTl 
EDTl 
EFTI 



PARITY ERROR READING REMOTE REGISTERS 



34 
35 
36 



001732 
001 734 
001736 
001740 



37 
38 

39 



065424 
071410 
071534 
071624 



.-ERROR 14 



EMT14 
EHTl 
EDTl 
EFTI 



.-ERROR 15 



TRANSFER ERROR IS INCORRECT 



INCORRECT WORD COUNT 



FRRCM PCIMTER TfBlE 



001742 
001 7A« 
001 746 
001750 



40 
41 
42 



001752 
001 754 
001756 
001760 



45 
44 
45 



001 762 
001 764 
0OV66 
C01770 



065432 
071410 
071554 
071624 



065440 
071410 
071554 
071624 



065 . jO 
071410 
071554 
071624 
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EWT15 

EHTl 

EDT1 
EFTl 



;ERR0R 16 



E«T16 
EHTl 
EDT1 
EFTl 



I ERROR 17 



EMT17 
EHTl 
EDTl 
EFTl 



INCORRECT BUS ADDRESS 



INCORRECT LBT STATUS 



46 
47 

48 



001772 
001 774 
001 776 
002000 



065460 
071410 
071534 
071624 



.•ERROR 20 



EM'20 
EHTl 
EDTl 
EFTl 



INCORRECT AOE 



49 

50 
5t 



002002 
002004 
002006 
002010 



065470 
071410 
071554 
071624 



.•ERROR 21 



EM121 
EHTl 
EDTl 
EFTl 



INCORRECT DISK ADDRESS 



52 
53 
54 



002012 
002014 
002016 
002020 



55 
56 
57 



002022 
002024 
002026 
002050 



58 
50 
60 



065500 
071410 
071534 
071624 



065510 
071410 
071534 
071624 



002052 065520 



; ERROR 22 



EMT22 
EHTl 
EDTl 
EFTl 



.•ERROR 23 



EMT23 
EHTl 
EDTl 
EFTl 



.•ERROR 24 

EMT24 



INCORRECT CYLINDER ADDRESS 



INCORRECT WLE STATUS 



INCORRECT UPE STATUS 



fZRMNBO HM05/3/2 FCTNL :ST 2 
IWQk POINTER TABLE 

002034 07U'0 
002036 071534 
002040 07^624 



W-ACRO V04.00 



t1 
62 
63 



002042 
002044 
002046 
002050 



64 
65 
66 



002052 
002054 
002056 
002060 



67 
68 
69 



002062 
002064 
002C66 
002070 



70 
71 
72 



002072 
002074 
002076 
002100 



73 
74 
75 



002102 
002104 
002106 
0021J0 



7b 
77 

78 



002112 
002114 
002116 
002120 



79 
80 
81 



002122 
002 '24 



065530 
071410 
071534 
071624 



065540 
071410 
071534 
071624 



065550 
071410 
071 534 
071624 



065560 
071410 
071534 
071624 



065570 
071410 
071534 
071624 



065600 
071410 
071534 
071624 



065610 
071410 
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EHT1 
EDT1 
EFTl 



.-ERROR 25 



EMT25 
EHT1 
EDTl 
EFTl 



.•ERROR 26 



EMT26 
EHT1 
EDTl 
EFTl 



.'ERROR 27 



EMT27 
EHT1 
EDTi 
EFTl 



.-ERROR 30 



EMT30 
EHT1 
EDTl 
EFTl 



; ERROR 31 



EWT31 
EHTl 
EDTl 
EFTl 



; ERROR 52 



EMT32 
EHTl 
EDTl 
EFTl 



r ERROR 33 



EMT33 
EHT' 



SEO 0031 



INCORRECT WCF STATUS 



INCORRECT UCE STATUS 



INCORRECT MDPE STATUS 



INCORRECT DCK STATUS 



INCORRECT ECH STATUS 



DLT SHOULD NOT BE SET 



P1XF SHOULD NOT BE SET 



FRROR POINTER TABLE 



002126 
002150 



071 55A 
071624 



8? 
83 
84 



35 
86 
67 



002U2 
002 U A 
002 U6 
002150 



88 
89 

90 



002152 
002154 
002156 
002160 



91 
92 
93 



002162 
002164 
002166 
002170 



94 
95 
96 



0021 72 
002174 
002176 
002200 



97 
98 
99 



002202 
002204 
002206 
002210 



100 
101 
102 



002212 
002214 
002216 
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002132 065620 

002134 071410 

002136 071534 

002140 071624 



065650 
071410 
071534 
071624 



065640 
071410 
071534 
071624 



065650 
U7H10 
071534 
071624 



065660 
071410 
071534 
071624 



065666 
071410 
071534 
071624 



065676 
071410 
071534 



EDT1 
EFT1 



.-ERROR 3* 



EMT34 
EHT1 
EDT1 
Ef T1 



.-ERROR 35 



EMT35 
FHT1 
EDT1 
EFT1 



.•ERROR 36 



EMT36 
EHT1 
EDT1 
EFT1 



.'ERROR 37 



EMT37 
EHT1 
EDT1 
EFT1 



; ERROR 40 



EMT40 
EHT1 
EDT1 
EFT1 



: ERROR 41 



FMT41 
EHT1 
EDT1 
EFT1 



.■ERROR 42 



EMT42 

EWT1 

EDT1 



DTE SHOULD NOT 9E SET 



INCORRECT HCRC STATuS 



INCORRECT HCE STATUS 



INCORRECT FER STATUS 



DPE SHOULD NOT BE SET (NOT A DATA COWAND) 



LOST "MOL" DURING PACK ACKNOWLEDGE 



UNSAFE ERROR DURING PACK ACKNOWLEDjE 



ffikOR POINTER T*8lE 

002220 07 le^'. 

10! 

m 



002222 
00222A 
002226 
002230 



106 

107 
108 



002232 
002234 
002236 
002240 



109 
1^0 
•11 



002242 
002244 
002246 
002250 



112 
113 
114 



002252 
002254 
002256 
002260 



115 
116 
-17 



002262 
002264 
002266 
002270 



118 

119 
120 



002272 
002274 
002276 
002300 



121 
122 
123 



002302 
002304 
002306 
002310 



065710 
071410 
071534 
071624 



065720 
07U10 
071534 
071624 



065730 
071410 
071534 
071624 



065740 
0714^0 
071554 
071624 



0657b0 
071410 
071534 
071624 



065756 
071410 
071534 
071624 



065766 

071410 

071:; 34 

071624 



. T ■> 
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EFT1 



; ERROR 43 



EMT43 
EHT1 
EDTI 
Ef n 



; ERROR 44 



EMT44 
EHT1 
EDTI 
EFT1 



.•ERROR 45 



El«ir45 
EHTI 
EDTI 
EFTI 



.-ERROR 46 



EWT46 
EHTI 
EDTI 
EFTI 



;ERR0P 47 



EMT47 
EHTI 
EDTI 
EFTI 



.•ERROR 50 



EMT50 
EHTI 
EDTI 
EFTI 



; ERROR 51 



EMT51 
EHTI 
EDTI 
EFTI 



SCO 003* 



•IDPI" ERROR DURING PACK ACKNOWLEDGE 



•W1R" ERROR DURING PACK ACKNOWLEDGE 



"ILR" ERROR DURING PACK ACKNOWLEDGE 



"JLF" ERROR DURING PACK ACKNOWLEDGE 



COMPOSITE ERROR STATUS IS INCORRECT 



PARITY ERROR WRITING REMOTE REGISTERS 



INCORRECT lAE STATUS DURING SEEK COMMAND 



'"RjH K INTER 'A8LE 



«AC«0 1/04.00 4-APP-81 



V6 



002312 
002 5U 
002^16 
002320 



'27 
128 
129 
130 



002322 
002324 
002326 
002330 



151 
152 

153 



002332 
002334 
002336 
002340 



154 
135 
136 



002342 
002344 
002346 
002350 



137 
138 
■39 



002352 
002354 
002356 
002360 



140 
141 
142 



002362 
002364 
002366 
002370 



143 
144 
145 
K6 



002372 
002374 
002376 



066000 
071410 
071534 
071624 



066016 
071410 
071534 
071624 



066034 
071410 
071534 
071624 



066044 
071410 
071534 
071624 



066056 
071410 
071534 
071624 



066074 
071410 
071534 
071624 



066104 
071410 
071534 



; ERROR 52 



EWT52 
EHT1 
EDT1 
EFT1 



;ERRO»< 53 



EMT53 
EHT1 
EDT1 
EFT1 



.•ERROR 54 



EHT1 
EDT1 
EFT! 



.•ERROR 55 



EMT55 
EHT1 
EDTI 
EFT1 



; ERROR 56 



EMT56 
EHTl 
EDTI 
EFT1 



.ERROR 57 



EMT57 
EHTl 
EDTI 
EFT! 



.•ERROR 60 



EMT60 

EHTl 

EDTI 



I 3 

11:45:53 PAGE 8-c 



SfO 0034 



OPI ERROR DURING SEEK - MEDIl^l IS NO' ON LINE 



OPI ERROR DURING SEEK - »1EDIUM IS ON LINE, ASScME 
ON CYLINDER LATCH DIDN'T RESET 



SEEK INCOMPLETE ERROR DURING SEEk COMMAND 



DEVICE CHECK DURING SEEK COMMAND 



PiP IS STILL SET AFTER SEEK - SKI IS RESET 



ATA DID NOT SET DURING SEEK COMMAND 



1. ERROR DURING SEEK COMMAND - LOSI 
VOLUME VALID 



C2RI*B0 RM05/?/2 FCTNL 
ERROR POINTER TABLE 

002400 071 62A 

K7 
148 
149 

150 
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002402 
002404 
002406 
002410 



131 
152 
153 
154 



002412 
002414 
002416 
002420 



155 
156 
157 



002422 
002424 
002426 
002430 



J58 
159 
160 



002432 
002434 
002436 
002440 



066122 
071410 
071534 
071624 



066142 
071410 
071534 
071624 



000000 
000000 
000000 
000000 



066160 
071410 
071534 
071624 



EFT! 



.-ERROR 61 



EMT61 
EHT1 
EDT1 
EFT1 



.•ERROR 62 



EMT62 
EHT1 
EDT1 
EFT1 



; ERROR 63 

0 
0 
0 
0 



; ERROR 64 



EMT64 
EHT1 
EDT1 
EFT1 



SEO 003'j 



ERRONEOUS IVC ERROR DURING SEEtf .OIWAND 
VOLUWE VALID IS STIL SET 



MOL IS ZERO, BUT OPI WAS NOT 
REPORTED DURING SEEK COMMAND 



UNUSED 



DRIVE DID NOT DETECT "IVC" ERROR DURING SEEK 



161 
162 
'6^ 



002442 
002444 
002446 
002450 



066200 
071410 
071534 
071624 



; ERROR 65 



EMT65 
EHT1 
ED71 
EFn 



DRIVE EXECUTED A SEEK WITH ERROR SET 



164 
165 
166 



002452 
002454 
002456 
002460 



167 
168 
169 



002462 
002464 



066220 
071410 
071534 
071624 



066232 
071410 



.•ERROR 66 



EMT66 
EHT1 
EDT1 
EFT1 



.-ERROR 67 



EMT6/' 
EHT1 



UNEXPECTED ERROR SET IN RMER1 



UNEXPECTED ERROR SET IN RMER? 



CZRMNBO RM05/5/2 FCTNL TST 2 
FRROR POINTER TABLE 

002466 07-; 534 
002470 071624 

170 
171 
172 

002472 066244 
002474 071410 
002476 071554 
002500 071624 

173 
175 

002502 066254 
002504 07U10 
002506 071534 
002510 071624 

176 
177 
178 

002512 066264 
002514 071410 
002516 071534 
002520 071624 

179 
180 
181 
182 

002522 066302 
002524 071410 
002526 071534 
002530 071624 

183 
184 
185 

002532 066320 
002534 071410 
002536 071534 
002540 071624 

186 
187 
188 

002542 066330 
002544 071410 
002546 071534 
002550 071624 

189 
190 
191 

002552 066350 
002554 071410 



KIACRO V04.00 4-APR-81 



EDT1 
EFT1 



.•ERROR 70 

EMT70 
EriTl 
EDTI 
EFTl 



.•ERROR 71 

EMT71 
EHT1 
EDTI 
EFTl 



.ERROR 72 

EMT 72 
EHT1 
EDTI 
EFTl 



.•ERROR 73 



EMT 73 
EHT1 
EDTI 
EFTl 



.-ERROR 74 

EMT74 
EHT1 
EDTI 
EFTl 



.•ERROR 75 

EMT75 
EHT1 
EDTI 
EFTl 



; ERROR 76 

EMT 76 
EHT1 
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ERRONEOUS •"lAE" ERROR DURING RECALIBRATE 



"ILF"' ERROR DURING RECALIBRATE 



'XPV ERROR DURING RECALIBRATE DUE TO 'WOL" = 0 



"OPI" ERROR DURING RECALIBRATE BECAUSE ON 
CYLINDER DIDNT DROP 



"IVC" ERROR DURING RECALIBRATE - 'VV* = 0 



ERRONEOUS "IVC" ERROR DURING RECALIBRATE - "VV" 1 



"SKI" ERROR DURING RECALIBRATE 



SEO 00 V 



CZRMNBO RM05/5/2 FCTNL TST 2 
ERROR POINTER TABLE 



002556 071534 
002560 071624 



192 
194 



002562 066360 

002564 071410 

002566 071534 

002570 071624 



195 
196 
^97 



002572 066572 

002574 071410 

002576 071534 

002600 071624 
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EDT1 
EMI 



.ERROR 77 



E«T 77 
EHT1 
E0T1 
EFT1 



; ERROR 100 



EMT100 
EHT1 
EDT1 
EFT1 



'DVC" OCCURRED DURING RECALIBRATE 



LOST 'WOL" DURING RECALIBRATE - "OPI* 



198 

199 
200 



002602 066410 

002604 071410 

002606 0^1534 

002610 071624 



; ERROR 101 



EMTIOI 
EHT1 
EDT1 
EFT1 



LOST "VV" DURING RECALIBRATE - '"iVC" = 0 



201 
202 
203 



002612 
002614 
002616 
002620 



066426 
071410 
071534 
071624 



; ERROR 102 



EMT102 
EHT1 
EDT1 
Ef Tl 



"ATA" DID NOT SET DURING RECALIBRATE 



204 
205 
206 



002622 
002624 
002626 
002630 



066436 
071410 
071534 
071624 



; ERROR 103 



EMT103 
EHT1 
EDT1 
EFT1 



"OM" DID NOT RESET DURING RECALIBRATE 



207 
208 
209 



002632 
002634 
002636 
002640 



066450 
071410 
071534 
071624 



; ERROR 104 



EMT104 
EHT1 
EDTl 
EFTl 



'VIP" IS STIL SET AFTER RECALIBRATE 



210 
211 
212 



002642 
002644 
002646 



066466 
071410 
071554 



; ERROR 105 



EMT105 

EHT1 

EDTl 



UNEXPECTED "ILR" ERROR DURING RECALIBRATE 



CZRMNBO mO^/V2 fCJHL TST 2 

Ennan pointer table 
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SEO 0036 



002650 071 6?4 



?13 
214 
215 



00265.' 066476 

002654 071410 

002656 071534 

002660 071624 



216 
217 
218 



002662 
002664 
002666 
002670 



?19 
220 
221 



002672 
UC2674 
002676 
002700 



222 
225 
224 



002702 
002704 
002706 
002710 



225 
226 
227 



002712 
002714 
002716 
002720 



228 
229 
230 



002722 
002724 
002726 
002730 



231 
232 
233 



002732 
002734 
002736 
002740 



066506 
071410 
071534 
071624 



066526 
071432 
071552 
071642 



066540 
071436 
071554 
071644 



066546 
071436 
071554 
071644 



066554 
000000 
000000 
000000 



066570 
071442 
071556 
071646 



EfTI 



.•ERROR 106 

EMT106 

EDT1 
EFTI 



; ERROR 107 

EMT107 
EHT1 
EDT-" 
EFTI 



.•ERROR 110 

EMT110 
EHT110 
EDT110 
EFT110 



.•ERROR 111 

EMT111 
EHT111 
EDT111 
EFTIII 



; ERROR 112 

EMni2 
EHT111 
E0T111 
EFTIII 



; ERROR 113 

EMT113 
0 
0 
0 



.■ERROR 114 

EMT114 
EHTn4 
EDT114 
EfT114 



UNEXPECTED '^^MR" ERROR DURING REGAL I3RATF 



•IWS" ERROR DURING RECALIBRATE - AC POWER li LOW 



CANNOT ACCESS C1ASS8US CONTROLLER VIA UNI8US 



NONEXISTENT DEVICE 



DEVICE NOT AVAILABLE 



BUS TIMEOUT-NED STATUS FAILURE 



DEVICE NOT AN RM05/3/2 



CZRM^eO RM05/3/2 FCTNL TST 2 
ERROR POINTER TABLE 



N 3 
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234 
?35 
236 



002742 
002744 
002746 
002750 



237 
238 
239 



002752 
002754 
002756 
002760 



240 
241 
242 



00276? 
002764 
002766 
002770 



243 
244 
245 



002772 
002774 
002776 
003000 



246 
247 
248 



003002 
003004 
003006 
003010 



249 
250 
251 



003012 
003014 
003016 
003020 



252 
253 
254 



003022 
003024 
003026 
003030 



066576 
071410 
071534 
071624 



066606 
071410 
071534 
071624 



066616 
071410 
071534 
071624 



066626 
071410 
071534 
071624 



066636 
071410 
071534 
071624 



066646 
071410 
071534 
071624 



066656 
071410 
071554 
071624 



.•ERROR 115 



Er"T115 
EHT1 
EDTI 
EFT1 



.•ERROR 116 



EMTr6 
EHT1 
EDTI 
EFT1 



; ERROR i17 



EMT117 
EHT1 
ED'1 
EFT1 



.-ERROR 120 



EMT120 
EHT1 
EDTI 
EFT1 



; ERROR 121 



EMT121 
EHT1 
EDTI 
EFT1 



; ERROR 122 



EMT1 22 
EHT1 
EDTI 
EFT1 



.•ERROR 123 



EMT123 
EHT1 
EDTI 
EFTI 



RMCSI NOT INITIALIZED BV UNIBUS 



RM8A NOT INITIALIZED BY UNIBUS 



RMCS2 NOT INITIALIZED BY UNIBUS 



RMER1 NOT INITIALIZED BY UNIBUS 



RMAS NOT INITIALIZED BY UNIBUS 



RMMfil NOT INITIALIZED BY UNIBUS 



RMDS NOT INITIALIZED BY UNIBUS 



FRROR POINTER TABLE 



256 
257 



003032 066666 

0030 3^ 07K10 

003036 0715 V, 

003040 071624 



258 
259 
260 



003042 066676 

003044 071410 

003046 071534 

003050 071624 



261 
262 
263 



C03052 066706 

003054 071410 

003056 071534 

003060 071624 
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.FRROR 124 



EMT124 
EHT1 
EDT1 
EFT1 



; ERROR 125 



EMT125 
EHT1 
EDT1 
EFT1 



; ERROR 126 



EMn26 
EHT1 
EDT1 
EFTl 



SEO 0040 



RMEC2 NOT INITIALIZED 8r UNIfrJS 



RMr'1R2 NOT INITIALIZED BV UNI8US 



RMCSl NOT CLEARED BY CONTROLLER CLEAR 



264 
265 
266 



003062 
003064 
003066 
003070 



267 
268 
269 



003072 
0C3074 
003076 
003100 



066720 
071410 
071534 
071624 



066732 
071410 
0''15i4 
071624 



; ERROR 127 



EMT127 
EHTl 
EDT1 
EFTl 



; ERROR 130 



EMT130 
EHTl 
EDT1 
EFTl 



R»«BA NOT CLEARED BY CONTROLLER CLEAR 



RMCS2 NOT CLEAPPD BY CONTROLLER CLEAR 



270 
271 
272 



003102 
003104 
003106 
003110 



275 
274 
275 



003112 
003114 
003116 
003120 



066744 
071410 
071534 
071624 



066756 
071410 
071534 
071624 



; ERROR 131 



EMT131 
EHTl 
EDT1 
EFTl 



.•ERROR 132 



EMT132 
EHTl 
EDT1 
EFTl 



RMERl NOl CLEARED BY CONTROLLER CLEAR 



RMAS NOT CLEARED BY CONTROI LER CLEAR 



2^6 



>8 



CZRt^fcO t»M0S/5/2 ram TST 
ERROR POINTER T/^8l.E 



277 
?78 



0031 ?2 
0031 
003126 
003130 



066770 
07K10 
071554 
071624 



C * 
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.•ERROR 133 



EMT133 
EHT1 
EDT1 
EFT1 



SEO 0041 



RnnRl NOT CLEARED BY CONTROLLER CLEAR 



279 
280 
281 



0031 32 
003134 
003136 
003140 



067002 
071410 
071534 
071624 



: ERROR 134 



Emi34 
EHT1 
EDT1 
EFT1 



RMDS NOT CLEARED BY CONTROLLER CLEAR 



282 
283 
284 



003142 
C03144 
003146 
003150 



067014 
071410 
071534 
071624 



.•EKROR 135 



EMT135 
EhTI 
EDT1 
EFT1 



Rf1EC2 NOT CLEARED BY CONTROLLER CLEAR 



285 
286 
287 



003152 
0031 54 
0031 56 
003160 



067026 
071410 
071534 
071624 



; ERROR 136 



EWT136 
EHTI 
EDT1 
EFT1 



RM(1R2 NOT CLEARED BY CONTROLLER CLEAR 



28tJ 
289 
290 



003162 
003164 
003166 
003170 



067040 
071410 
071 554 
071624 



; ERROR 137 



EMT137 
EHTI 
EDT1 
EFT1 



RMCSl NOT CLEARED BY ERROR CLEAR 



291 
292 
293 



003172 
0031 74 
003176 
003200 



067050 
071410 
071534 
071624 



; ERROR 140 



EMTHO 
EHTI 
EDTl 
EFTl 



RMCS2 NOT CLEARED BY ERROR CLEAR 



294 
295 
296 



003202 
003204 
003206 
003210 



067060 
071410 
071534 
071624 



iFRROR 141 



EMT141 
EHTI 
EDTl 
EFTl 



RWCS1 NOT CLEARED BY DRIVE CLEAR 



297 
298 



; ERROR 142 



RMDS NOT CLEARED BY DRIVE CLEAR 



FRROR POINTER TABLE 



?99 



500 
301 
302 



003222 
003224 
003226 
005230 



303 
304 
305 



003232 
003234 
C03236 
003240 



306 
307 
308 



003242 
003244 
003246 
003250 



309 
310 
311 



003252 
003254 
003256 
003260 



312 
313 
314 



003262 
003264 
003266 
003270 



315 
316 
517 



003272 
005274 
005276 
003300 



MACRO V04.0G 



003212 067070 

003214 071410 

003216 071534 

003220 071624 



067100 
071410 
071534 
071624 



067110 

o/mo 

071534 
071624 



067120 
071410 
071554 
071624 



067130 
071410 
071534 
071624 



067U0 
07U10 
071534 
071624 



067' 50 
071410 
C71554 
071624 
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E«TU2 
EHT1 
EDT1 
EFT1 



SEQ 0042 



.•ERROR 143 



E«TU3 
EHT1 
EDT1 
EFT1 



.-ERROR 144 



EMT144 

EHT1 
EDT1 
EFT1 



.•ERROR 145 



EMT145 
EHT1 
EDT1 
EFT1 



.•ERROR 146 



EMT146 
EHTI 
EDT1 
EFT1 



.-ERROR 147 



EMT147 
EHTI 
EDT1 
EFT1 



.-ERROR 150 



EMT150 
EHTI 
EDT1 
EFT1 



RMERI NOT CLEARED BY DRIVE CLEAR 



R«AS NOT CLEARED BV DRIVE CLEAR 



RMMRI NOT CLEARED BV DRIVE CLEAR 



RWR2 NOT CLEARED BV DRIVE CLEAR 



RMER2 NOT CLEARED BY DRIVE CLEAR 



RMEC2 NOT CLEARED BY DRIVE CLEAR 



318 
319 
32C 



.-ERROR 151 



MEDIUM NOT ON LINE 



rZP^O RM05/3/2 FCTNL TST 2 
FRROR fxOlNTER TABlE 

005302 067160 
00330A 07K10 



003306 071534 
003310 071624 



32' 
322 
323 



003312 067172 

003314 071410 

003316 071554 

005320 071624 



l*IAC»»0 V04.00 4-APR-81 



EMT151 
EHTI 
EDT1 
EFT1 
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; ERROR 152 



EMT152 
EHTI 
EDT1 
Ef'1 



DRIVE FAULT 



324 
525 
326 



003322 
005324 
005326 



327 
328 
529 



005352 
005334 
003536 
003540 



330 
331 
352 



005542 
005344 
003546 
005550 



355 
554 
555 



005552 
005554 
005556 
003360 



336 
337 
538 



003562 
005364 
005566 
003570 



559 
340 
341 



067204 
071410 
071534 
071624 



067222 
071410 
071534 
071624 



067240 
071410 
071554 
071624 



067252 
071410 
071554 
071624 



067264 
071410 
071554 
071624 



.•ERROR 153 



EMT153 
EHTI 
EDTi 
EFT1 



; ERROR 154 



EMT154 
EHTI 
EDT1 
EFT! 



;fRR0R 155 



EMTISS 
EHTI 
EDT1 
Ef T1 



.ERROR 156 



EMT156 
EHTI 
fcDTI 
Ef T1 



lERROR 157 



UNSAFE SHOULD BE SET BECAUSE DVC IS SET 



UNSAFE SHOULD NOT BE SET. AC IS LOW 



VOLUME VALID NOT SET B^ PACK ACK 



OFFSET HODE NOT SET BY OFFSET COMMAND 



OFFSET MODE NOT RESET BY RTC COMMAND 



003372 067276 



EMT157 
EHTI 
EDT1 
EFT1 



.•ERROR 160 RMOF N. 
EMIT 60 



RESE^ BV RIP COMMAND 



:R'*»fiO HMOS/3/2 FCTNL TST 2 
F^tROM POINTER TABLE 

003374 07H^0 
003376 071 S34 
003400 071624 
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34? 
343 
344 



00340^ 
003404 
003406 
003410 



345 
346 
347 



003412 
005414 
003416 
003420 



548 

349 

351 



005422 
005424 
003426 
003430 



552 
353 
35^ 



003432 
003434 
003456 
003440 



355 
356 
557 



003442 
CO 3444 
003446 
003450 



358 
559 
360 



003452 
003454 
003456 
003460 



561 
362 
363 



067306 
071410 
071534 
071624 



067320 
071410 
071534 
071624 



071204 
07147? 
071570 
071660 



067342 
071410 
071534 
071624 



0673*^0 
071410 
071534 
071624 



067356 
071410 
071534 
071624 
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EHT1 
EDT1 
EFT1 



SfO C<K' 



;F«R0R 161 



EMT161 
EhTI 
EDT1 
EFTI 



.-ERROR 162 



EMT162 
EHTI 
EDTI 
EFTI 



; ERROR 163 



EMT336 
EHT^36 
EDT336 
EFT356 



.•ERROR 164 



E«n64 
EHTI 
EDTI 
Ef n 



.ERROR 165 



EMT165 

EH71 
EDTI 
EMI 



.•ERROR 166 



RMDA NOT RfSET 8^ RIP roMMAND 



RMDC NOT RESET 8V RIP COMMAND 



DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH 
yRJTE BUFFER 



OPI SHOULD NOT BE SET 



IVC SHOULD NOT BE SET 



lAE SHOULD NOT BE SET 



003462 067564 



EMT166 
EHTI 
EDTI 
Ef T1 



.-ERROR 167 NEM SHOtUD NOT BE SET 
EMT167 



PdRCf* POINTER TA8l£ 

003A6<> 07U''0 
003470 071624 



364 
365 
366 



003472 067372 

003474 07U10 

003476 071534 

003500 071624 



367 
368 
369 



003502 
003504 
003506 
003510 



370 
371 
372 



003512 
003514 
003516 
003520 



067404 
071410 
071534 
071624 



0674 U 
071410 
071554 
071624 
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EHT1 
EDTI 
Ef T1 



SfO 0045 



.•ERROR 170 



EWT170 
EHT1 
EDTI 
EFT1 



.•ERROR 171 



FMn71 
EHT1 
EDTI 
EFTl 



.•ERROR 172 



EMT172 

EHT1 
EDTI 
EFTl 



INCORRECT '*IOL" STATUS DURING DIAGNOSTIC MODE 



•ATA" NOT SET DURING RETURN TO CENTERLINE 



■ATA" NOT SET BV OFFSET COMMAND 



373 
374 
375 



003522 
003524 
003526 
003530 



067424 
07H10 
071 53^. 
071624 



.•ERROR 173 



EMT173 
EHT1 
EDTI 
EFTl 



RMER2 NOT INITIALIZED BY UNI8US INIT 



376 
377 
378 



003532 
003534 
003536 
003540 



379 
380 
381 



003542 
003544 
003546 
003550 



067434 
071410 
071534 
071624 



067446 
071410 
071534 
071624 



.•ERROR 174 



EMT174 
EHTl 
EDTI 
EFTl 



; ERROR 175 



EMT175 
EHTl 
EDTI 
EFTl 



RMER? NOT INITIALIZED BY CONTROLLER CLEAR 



SELECTED DEWCE IS JN WRITE PROTECT 



582 
383 
384 



005552 
003554 



067454 
071410 



lERROR 176 CANNOT SET DIAGNOSTIC ifcoE 



fMT1/'6 
EHTl 



ffiRCJR POINTER TASlE 



005556 071534 
003560 071624 



^85 
386 
387 



003562 
003564 
003566 
003570 



388 
389 
390 



003572 
003574 
003576 
003600 



391 
392 
393 



003602 
003604 
003606 
003610 



394 
395 
396 



003612 
003614 
003616 
003620 



397 
598 
399 



003622 
003624 
003626 
003630 



400 
401 
402 



003632 
003634 
003636 
003640 



403 
404 
405 



003642 
005644 
005646 



000000 
000000 
000000 
000000 



067464 
071410 
071534 
071624 



067476 
071410 
071554 
071624 



067510 
071410 
071554 
071624 



067522 
071410 
071534 
071624 



067554 
071410 
071554 
071624 



067552 
071410 
071554 
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EDn 
FFT1 



.•ERROR 177 

0 
0 
0 
0 



; ERROR 200 



—RESERVED FOR POWER MONITOR BIT FAILURE— 



INCORRECT "PIP" STATUS DURING DIAGNOSTIC MODE 



EMT200 
EHT1 
EDT1 
EFTl 



; ERROR 201 



INCORRECT "yRL" STATUS DURING DIAGNOSTIC MODE 



EMT201 
EHT1 
EDTI 
EFTl 

;£RR0R 202 INCORRECT "SKI" STATUS DURING DIAGNOSTIC MODE 

EMT202 
EHT1 
EDTI 
EFTl 



.•ERROR 203 



INCORRECT •T)VC" STATUS DURIVG DIAGNOSTIC MODE 



EMT205 
EHT1 
EDTI 
EFTl 



; ERROR 204 



'W WAS NOT RESET BV MAINTENANCE UNIT READY 



EMT204 
EHT1 
EDTI 
EFTl 

.-ERROR 205 SELECTED DEVICE HAS A PERSISTENT "SKI" ERROR 

EMT205 

EHTI 

EDTI 



SEO 0046 



fR«G« POINTER TABLE 



i <> 
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003650 071 62^ 



<.06 
407 
<.08 



00%5? 
0036S4 
005656 
003660 



409 

4;o 

411 



003662 
003664 
003666 
003670 



412 
415 
414 



003672 
003674 
003676 
003700 



415 
416 
417 



003702 
003704 
005706 
003710 



418 
419 
420 



003712 
003714 
005716 
003720 



421 
422 
423 



003722 
003724 
003726 
003730 



424 

425 
426 



003732 
005734 
003756 
:03740 



067562 

071410 
071554 
071624 



067572 
0714^0 
071554 
071624 



067604 
0714^0 
071554 
071624 



067612 
071410 
071554 
071624 



067626 
071410 
071554 
071624 



067642 
071410 
071554 
071624 



06765? 
071422 
071*144 
071654 



EFTl 



.-ERROR 206 

Em206 
EHT1 
EDTi 
Ef T1 



; ERROR 207 

EMT207 
EHFI 
EDTI 
EFTl 



; ERROR 210 

EMT210 
EHT1 
E0T1 
EFTl 



; ERROR 211 

EMT211 
EHT1 
EDTI 
EFTl 



; ERROR 212 

EMT212 
EHT1 
EDTI 
EFTl 



;ERR0R 215 

EMT215 
EHT1 
EDTI 
EFTl 



; ERROR 214 

EMT214 
EHT2 
EDT2 
EFT2 



'taC" DID NOT SET DURING DIAGNOSTIC MODE 



UNEXPECTED LOSS OF "MOL" - MEDIUM IS OFF LINE 



UNEXPECTED LOSS OF VOLUME VALID - "VV 



UNEXPECTED MECHANICAL MOTION - * PIP" 1 



UNEXPECTED DEVICE FAULT - 'DVC" = 1 



UNEXPECTED SEEK INCOMPLETE ERROR - "SKI" 1 



DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 



J A 
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f^RROR POIMTER ^ABl£ 



4?9 



003742 067672 

003744 071422 

003746 071 544 

003750 071634 



; ERROR 215 



EMT215 
EHT2 
EDT2 
EFT2 



DRIVE DID NOT DETECT "IVC" ERROR DURING RECALIBRATE 



4 30 
431 
432 



003752 
003754 
003756 
003760 



067704 
071410 
071534 
071624 



;ERR0R 216 



EMT216 
EHTI 
EDT1 
EFT1 



INCORRECT "IVC" STATUS 



433 
454 



003762 
003764 
003766 
003770 



436 
437 
438 



003772 
003774 
003776 
004000 



439 
440 
441 



004002 
004004 
004006 
004010 



067714 
071410 
071534 
071624 



067724 
071410 
071534 
071624 



067734 
071410 
071534 
071624 



.■ERROR 217 



EWT217 
EHTI 
EDT1 
EF71 



.•ERROR 220 



EMT220 
EHTI 
EDT1 
EFT1 



.•ERROR 221 



EMT221 
EHTI 
EDTI 
EFT1 



INCORRECT "lAE" STATUS 



INCORRECT "V/LE" STATUS 



INCORRECT 'TOPI" STATUS 



442 
443 
444 



004012 
004014 
004016 
004020 



067744 
071410 
071534 
071624 



; ERROR 222 



EriT222 
EHTI 
EDTI 
EFT1 



m DID NOT DETECT RMR ERROR 



44S 
446 
447 



004022 
004024 
004026 
004030 



067754 
071446 
071560 
071650 



;ERR0R 223 RM DID NOT DETECT PARITY ERROR ON MASS8US CONTROL BUS 



EMT223 

EHT223 
EDT223 
EFT223 



RM05/3/2 FCTNL TST 2 
FRROR POINTER TABLE 



450 



004032 
004034 
004036 
004040 



451 
452 
453 



00404? 
004044 
004046 
004050 



454 
455 
456 



C04052 
004054 
00A056 
004060 



457 
458 
459 



004062 
004064 
004066 
004070 



460 
461 
462 



004072 
004074 
004076 
004100 



463 
464 
465 



004102 
004104 
004106 
004110 



466 
467 
468 



004112 
004114 
004116 
004120 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
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; ERROR 224 

0 
0 
0 
0 



; ERROR 225 

0 
0 
0 
0 



.ERROR 226 

0 
0 
0 
0 

.•ERROR C.7 

0 
0 

0 
0 

; ERROR 230 

0 
0 
0 
0 

.•ERROR 231 

0 
0 
0 
0 

.•ERROR 232 

0 
0 
0 
0 



469 
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UNUSED • 

t 



UNJSED 



UNUSED 

f 

UNUSED 



UNUSED 



lWUSED 



UNUSED 



rZRWNBO RM05/3/2 fCTlW. TST 
FRROR POINTER TABLE 



A 70 
471 



004 1?2 
00^1 
00^126 
OCA 150 



A 74 



00A132 
0041 34 
004136 
004 '40 



475 
476 
477 



004142 
C04144 
004146 
004150 



478 
479 
480 



004152 
004154 
004156 
004160 



48 1 
482 
483 



004162 
004164 
004166 
004170 



484 
485 
486 



004172 
004174 
004176 
004200 



487 
488 
489 



004202 
C04204 
004206 
004210 
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000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



OOOUOO 
000000 
000000 
000000 



;ERft0« 233 

0 
0 
0 
0 



.•ERROR 234 

0 
0 
0 
0 

.•ERROR 235 

0 
0 
0 
0 

.•ERROR 236 

0 

0 
0 
0 

.•ERROR 237 

0 
0 
0 
0 



: ERROR 240 

0 
0 
0 
0 



; ERROR 241 

0 
0 
0 
0 



UNUSED 



UNUSED 



UNUSED 



UNUSED 
} 

UNUSED 



UNUSED 



JNUSED 



^90 



.-ERROR 242 



UNUSED 



/RMMBv. H»K)5/^/2 fCTNL TST 2 
FRROR POINTER TABlE 



n 4 
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492 



004212 000000 

004214 OO'VXK) 

004216 CvvCDO 

004220 000000 



^93 
49<, 

49S 



004222 000000 

004224 000000 

0042^6 000000 

004230 000000 



497 
498 



004232 
004234 
C04256 
004240 



499 
500 
501 



004242 
004244 
004246 
004250 



502 
505 
504 



004252 
004254 
004256 
004260 



505 
506 
507 



004262 
004264 
004266 
004270 



508 
509 
510 



004272 
004274 
004276 
004300 



511 
512 
513 



000000 
OOOCCO 
000000 
000000 



000000 
000000 

ooooco 

000000 



070030 
071410 
071534 
071624 



070040 
071410 
071534 
071624 



070052 
071410 
071534 
071624 



SEO 0051 



0 
0 
0 
0 



; ERROR 243 

0 
0 
0 
0 



; ERROR 244 

0 
0 
0 
0 



; ERROR 245 

0 
0 
0 
0 



.-ERROR 246 



EMT246 
EHT1 
EDT1 
EFT1 



; ERROR 247 



UNUSED 



UNUSED 



UNUSED 



"ATA" NOT RESET BY GO WHEN "ERR 



•ATA" NOT RESET BY WRITING RMAS 



EMT247 
EHT1 
EDT1 
EFT1 



.•ERROR 250 "ATA" WAS RESET BY GO WHEN "ERR" 1 

E«T250 
EHT1 
EDTI 
EFT1 



.•ERROR 251 PROGRAM INTERRUPT WAS NOT GENERATED 



CZRMNBO RM05/5/2 FCTNL fST 2 
ERROR POINTER TA8LE 

004302 070066 

00A304 07U22 

004306 071544 

004310 071634 

514 
515 
516 

004312 070074 

004314 0''1422 

004316 071544 

004320 071634 



517 
518 
519 



004322 070102 

004324 071410 

004326 071534 

004330 071624 



520 
521 
522 



004332 070120 

004334 071410 

004336 071534 

004340 071624 



523 
524 
52b 



0043';2 
004344 
004346 
004350 



526 
527 
528 



004352 
004354 
004356 
004360 



529 
530 
531 



004362 
004364 
004366 
004370 



070130 
071410 
071534 
071624 



070140 
071460 
071560 
071650 



070150 
071410 
071534 
071624 



N 4 
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EWr251 
EHT2 
EDT2 
EFT2 



SEO 0052 



532 
533 
554 



; ERROR 252 



PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 



EMT252 
EHT2 
EDT2 
EFT2 



; ERROR 253 



OFFSET MODE WAS NOT RESET BY WRITING RMDC 



EMT253 
EHT1 
EDT1 
EFT1 



.-ERROR 254 



INCORRECT "ILF" STATUS 



EMT254 
EHTl 
EDTl 
EFTl 



; ERROR 255 



INCORRECT "ATA" STATUS 



004372 070162 



EMT255 
EHTl 
EDTl 
EFTl 



.-ERROR 256 INCORRECT "ILR" STATUS 

EMT256 
EHT256 
EDT223 
EFT223 

.•ERROR 257 INVALID lAE STATUS DURING SEARCH COMMAND 

EMT257 
EHTl 
EDTl 
EFTl 

.■ERROR 260 "IVC" WAS NOT DETECTED DURING SEARCH COMMAND 
EMT260 



FRRDR POINTER T/^E 



004376 
004400 



535 
536 
537 



004402 
004404 
004406 
004<,10 



538 
539 
540 



004412 
004414 
004416 
004420 



541 
542 
543 



004422 
004424 
004426 
004430 



544 
545 
546 



004432 
004434 
004436 
004440 



0714'0 
071534 
07^624 



0701 74 
071410 
071534 
071624 



070214 
071410 
071534 
071624 



070224 
071410 
071534 
071624 



070234 
07K10 
071534 
071624 
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EHT1 
EDTI 
EFTl 



; ERROR 261 



DRIVE EXECUTED SEARCH WITH ERROR SET 



EnT?61 
EMTl 
EDTI 
EFTl 

.■ERROR 262 "IBf" ERROR NOT SET DURING DIAGNOSTIC MODE 

EMT262 
EHT1 
EDTI 
EFTl 



.•ERROR 263 



EMT263 
EHT1 
EDTI 
EFTl 



.•ERROR 264 



E1T264 
EHT1 
EDTI 
EFTl 



";KI" ERROR DURING SEARCH COMMAND 



"IVC" ERROR DURING SEARCH - LOST VOLUME VALID 



548 
549 



004442 
004444 
004446 
004450 



550 
551 
552 



004452 
004454 
004456 
004460 



553 
554 
555 
556 



070254 
071410 
071534 
071624 



070274 
071410 
071534 
071624 



004462 070306 



.•ERROR 265 



EMT265 
EHT1 
EDTI 
EFTl 



.•ERROR 266 



EM T 266 
EHT1 
EDTI 
EFTl 



.•ERROR 267 



EMT267 



ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS vALl 



DEVICE FAULT (DVC) DURING SEARCH 



SKI SHOULD HAVE BEEN SET BECAUSE CYLINDER 
ADDRESS IS TOO LARGE 



t^sRW TABLE 

004464 O^U'O 
004466 071 534 
004470 071624 



TST 2 WACTO V04.00 4-APR-81 



557 
558 
559 



004472 
004474 
004476 
004500 



560 
561 

562 
563 



004502 
004504 
004506 
C04510 



070524 
071410 
071534 
071624 



070340 
071410 
071534 
071624 



564 
565 
566 



004512 070356 

004514 071410 

004516 071534 

004520 071624 



567 
568 
569 



004522 
004524 
004526 
004530 



570 
571 
572 
573 



004532 
004534 
004536 
004540 



574 
575 
576 
577 



004542 
004544 
004546 
004550 



578 
579 
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070374 
071410 
071534 
071624 



070412 
071410 
071534 
071624 



070430 
071410 
071534 
071624 



SEO 0054 



EHT1 
EDT1 
EFT1 



; ERROR 270 



OPI ERROR DLtRING SEARCH BECAUSE MOL = 0 



EMT270 
EHT1 
EDT1 
EFT1 



; ERROR 271 



OP] ERROR DURING SEARCH BECAUSE ON CYLIW^R 
DIDN'T DROP 



EMT271 
EHT1 
EDFI 
EFTl 

.•ERROR 272 LOST MOL DURING SEARCH. OPI IS fyWT SET 

EMT272 
EHT1 
EDT1 
EFTl 



.•ERROR 273 



PIP STIL SET AFTER SEARCH 



EMT273 
EHT1 
EDT1 
EFTl 



ERROR 274 



PARITY ERROR OCCURRED WHILE WRITING REMOTE 
REGISTERS BUT MXF DID NOT SET 



EMT274 
EHT1 
EDT1 
EFTl 



; ERROR 275 



MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA 
COMMAND STARTED 



EMT275 
EHTI 
EDTl 
EFTl 

(iROR 276 'tiPI" ERROR DURING DATA TRANSFER BECAUSE 'WOL" WAS 



/R»1NBC RMOS/i/^ fCTML TST 2 
ERROR POINTER TABLE 



MACHO V04.00 
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580 
581 



00455? 
004554 
004556 
004560 



582 
58? 
584 
585 
536 



004562 
004564 
004566 
004570 



587 
588 
589 
•^90 



004572 
004574 

004576 
004600 



070442 
071410 
071534 
071624 



070456 
071410 
071534 
071624 



070474 
071410 
071534 
071624 



EMT276 
EHT1 
EDT1 
EFT1 



ERROR 277 



EMT277 
EHT1 
EDT1 
EFT1 



.•ERROR 300 



EMT300 
EHT1 
EDT1 
EFT1 



S£0 0O55 



ZERO 



"OPl" ERROR DURING DATA TRANSFER BECAUSE 1) ON 
CYLINDER DIDN'T DROP OR 2) SEARCH TIMED OUT OR 
3) RUN TIMED OUT 



"IVC" ERROR DURING DATA TRANSFER BECAUSE VOLUME 
WAS NOT VALID 



591 
592 
593 
594 



004602 
004604 
004606 
004610 



595 
596 
597 



004612 
004614 
004616 
004620 



598 
599 
600 



004622 
004624 
004626 
004630 



070514 
071410 
07'»534 
071624 



070536 
071410 
071534 
071624 



070550 
071410 
071534 
071624 



.-ERROR 301 



EMT301 
EHT1 
EDT1 
EFT1 



; ERROR 302 



EMT302 
EHT1 
EDT1 
EFT1 



; ERROR 303 



EMT303 
EHT1 
EDT1 
EFT1 



ERRONEOUS "IVC" ERROR DURING DATA TRANSFER - VOLUME 
IS VALID 



"ILR" ERROR DURING DATA TRANSFER 



"ILF" ERROR DURING DATA TRANSFER 



601 
602 
603 



004632 070562 
004634 071410 
004636 071534 



; ERROR 304 



EMT304 

EHT1 

EDT1 



"RMR" ERROR DURING DATA TRANSFER 



"ZHMNBO RM05/^/2 FCTML TST 2 
FRRCK POIN'ER TABLE 

071624 



E 5 
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EFn 



604 
605 
606 



004642 
004644 
004646 
004650 



070574 
07U10 
071554 
071624 



; ERROR 505 



EWT305 
EHT1 

Eon 

EFT1 



INCORRECT "lAE" STATUS DURING DATA TRANSFER 



607 
608 
609 



004652 
004654 
004656 
004660 



070606 
071410 
071554 
071624 



.•ERROR 306 



EMT306 
EHT1 
EDT1 
EFT1 



"SKJ" ERROR DURING DATA TRANSFER 



6^0 
611 
612 



0046^2 
0C4664 
004666 
00467C 



070616 
O/K-'O 
071534 
071624 



; ERROR 307 



EMT307 
EHT1 
EDT1 
EFTI 



DRJVE DID NOT DETECT SKI ERROR DUE TO CYLINDER 



613 
614 
615 



004672 
004674 
004676 
004700 



070636 
071410 
071554 
071624 



; ERROR 510 



EMT310 
EHT1 
EDT1 
EFTI 



DEVICE FAULT DURING DATA TRANSFER 



616 
617 
613 



004702 
004704 
004706 
004710 



070650 
071410 
071534 
071624 



; ERROR 311 



EMT311 
EHTl 
EDTl 
EFTI 



LOSS OF BIT CLOCK DURING DATA TRANSFER 



619 
620 
621 



004712 
004714 
004716 
004720 



070662 
071410 
071534 
071624 



.-ERROR 312 



EMT312 
EHTl 
EDTl 
FFT1 



LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 



622 
623 
624 



004722 
004724 

004 726 
004750 



070674 
071410 
071534 
071624 



; ERROR 315 



EMT315 
EHTl 

EDTl 
EFTI 



UNSAFE ERROR DURING DATA TRANSFER (DVC 0) 



fRRCW POINTER t^BlE 



F 5 
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SEO 005? 



627 



004732 
004 73A 
004736 
004 7A0 



628 
629 
630 



0047A2 

0O4746 
004750 



631 
652 
653 



004752 
004754 
004756 
004760 



634 
655 
636 



004762 
004764 
004766 
004770 



070714 
071410 
071534 
071624 



0707^6 
071410 
071554 
071624 



070740 
071410 
071534 
071624 



070752 
071410 
071534 
071624 



.-Ef^POR 314 



E«T314 
EHT1 
EDT1 
EFT! 



.-ERROR 315 



EMT3i5 
EHTI 
EDTI 
EFTI 



; ERROR 316 



EMT316 
EHTI 
EDTI 
EFTI 



.-ERROR 317 



E«T317 
EHTI 
EDTI 
EFTI 



DRIVE TIMING ERROR DURING DATA TRANSFER 



WRITE LOCK ERROR 



ERRONEOUS WRITE LOCK ERROR 



HEADER CRC ERROR DURING DATA TRANSFER 



637 
638 
639 



004772 
004774 
004776 
005000 



640 
641 
642 



005002 
005004 
005006 
005010 



64 5 
644 
645 



005012 
005C14 
00S016 
.505020 



070762 
071410 
071534 
071624 



C70772 
071410 
071534 
071624 



071002 
071410 
071534 
071 &24 



.•ERROR 320 



EMT320 
EHTI 
EDTI 
EFTI 



; ERROR ??1 



EMT321 
EHTI 
EDTI 
EFH 



; ERROR 322 



E«T322 
EHTI 
EDTI 
EFTI 



FORMAT ERROR DURING DATA TRANSFER 



HEADER COMPARE ERROR DURING DATA TRANSFER 



HEADER ERRORS SHOULD NOT BE SET 



i 



PRRCR PCIMTER TABLE 



G 5 
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648 



005022 
005024 
005026 
005030 



649 
650 
65^ 



005032 
i)05034 
005036 
005040 



652 
653 
654 



005042 
005044 

005046 
005050 



655 
656 
657 



005052 
005054 
005056 
005060 



658 
659 
660 



005062 
005064 
005066 
005070 



661 
662 
665 



005072 
005074 
005076 
005100 



664 
665 
666 



005102 
005104 
005106 
005110 



071010 
071410 
071534 
071624 



071020 
071410 
071534 
071624 



071032 
071410 
071534 
071624 



071044 
071410 
071534 
071624 



071062 
071410 
071554 
071624 



071074 
071410 
071534 
071624 



071104 
071410 
071534 
07162<. 



SfO 0056 



.ERROR 323 



DATA CHECK ERROR DURING DATA TRANSFER 



EMT323 
EHTl 
EDT1 
EfJI 



.-ERROR 324 



COr^RECTABLE DATA CHECK ERROR DURING DATA TRANSFER 



EMT324 
EHTl 
EDTl 
EFTl 



; ERROR 325 



UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 



EWT325 
EHTl 
EDTl 
EFTl 



.-ERROR 526 



DATA PARITy ERROR DURING READ COMMMAND 



EWT326 
EHTl 
EDTl 
EFTl 



.•ERROR 327 OFFSET MODE NOT RESET BY WRITE COMMAND 

EMT327 
EHTl 
EDTl 
EFTl 

;fRROR 330 ' DATA PARITY ERROR DURING WRITE COMMAND 

EMT330 
EHTl 
EDTl 
EFTl 



; ERROR 331 



WRITE CLOCK FALURE DURING WRITE COMMAND 



bMT331 
EHTl 
EDTl 
EFTl 



H S 



fRRCR POIMTfR TABlE 



668 
669 



005112 
0051 K 
005116 
005 1?0 



670 
671 
672 



0051P2 
005124 
005126 
005130 



673 
67A 
675 



005132 
C0513A 
005136 
005 UO 



676 
677 
678 



005 142 
005 U4 
005 U6 
005150 



679 
680 
681 



005152 
0051 54 
005156 
005160 



682 
683 
684 



005162 
005164 
005166 
005170 



685 
686 
687 



005172 
005174 
005176 
005200 



071 M6 
071410 
071534 
071624 



071150 
071410 
071554 
071624 



071146 
071410 
071534 
071624 



071164 
071410 
071534 
071624 



071204 
071472 
071570 
071660 



071214 
071504 
071600 
071670 



071224 
C71472 
071570 
071660 
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.•ERROR 332 



EWT332 
EHT1 
EDTI 
EFT1 



; ERROR 333 



EMT333 
EHT1 
EDTI 
EFTI 



; ERROR 334 



EMT354 
EhTI 
EDTi 
EFT1 



; ERROR 335 



EMT335 
EHTI 
EDTI 
EFTI 



.•ERROR 336 



.■ERROR 337 



.•ERROR 340 



DATA LATE ERROR DURING DATA 'RANSFER 



PIP STIL SET AFTER DATA TRANSFER - SKJ = 0 



EMT336 
EHT336 
EDT336 
EFT336 



EMT337 
EHT337 
EDT337 
EF^337 



EnT340 
EHT336 
EDT336 
EFT 336 



LOST MOL DURING DATA TRANSFER - OPI = 0 



LOST VOLUME VALID DURING DATA TRANSFER - IVC 



DATA READ DOES NOT COMPARE WITH DATA WRITTEN 



WRITE CHECK ERROR NOT DETECTED 



WRITE CHECK ERROR AT UNEXPECTED ADDRESS 



688 
689 



.•ERROR 341 



INCORRECT DATA DURING WRITE CHECK ERROR 



PRROR POINTER TABLE 



I 5 
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690 



005202 0712% 

005204 07}t.72 

005206 071570 

005210 071660 



EHT336 
EDT336 
EFT336 



691 
t9? 
693 



005212 
0052 K 
005216 
005220 



071?<.4 
07U10 
071 5 3A 
071624 



; ERROR 342 



EWT342 

EHTI 
EDT1 
Ef T1 



••JVC" ERROR NOT DETECTED DUR1M6 DATA TRANSFER 



694 
695 
696 



005222 
005224 
C05226 
005230 



071256 
071410 
07-534 
071624 



; ERROR 343 



EMT343 
EHTI 
EDT1 
EFT1 



■TER" NOT DETECTED DURING DATA TRANSFER 



697 
698 
699 



005232 
005234 
005236 
005240 



071270 
071516 
071610 
071700 



.-ERROR 344 



EMT344 
EHT344 
EDT344 
EFT344 



"HCE" NOT DETECTED DURING DATA TRANSFER 



700 
701 
702 



005242 
005244 
005246 
005250 



071302 
071410 
071534 
071624 



.•ERROR 345 



EMT345 
EHTI 
EDT1 
tFTI 



'BSE" NOT DETECTED DURING DATA TRANSFER 



703 
704 
705 



C05252 
005254 
005256 
005260 



071312 
071410 
071554 
071624 



.ERROR 346 



EMT346 
EHTI 
EDT1 
EFT1 



HEADER ERROR WAS DETECTED U/ HCI SET 



706 
707 
708 



005262 
005264 
005266 
005270 



071326 
071410 
G71534 
071624 



; ERROR 347 



EMT347 
EHTI 
E0T1 
EfTI 



DATA TRANSFER NOT ABORTED U/ COMP ERROR SET 



709 
710 
711 



.•ERROR 350 



LOST VOLUME VALID DURING SEARCH - "IVC" 0 



IkkUa POINTER TASLt 

00527? 071 5^0 
005274 07U10 



J 5 
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005276 071534 
005300 071624 



7^2 

715 



005502 
005304 
005306 
005310 



715 
716 
717 



005512 
005314 
005516 
C05320 



718 
710 
720 



005522 
005524 
005526 
005350 



721 
722 
725 



071 556 
071410 
071554 
071624 



071 566 
000000 
000000 
000000 



071372 
071550 
071622 
071710 



005552 071402 

005554 07K10 

005536 071554 

005340 071624 



EMT350 
EMT1 
EDTI 
EfTI 



;fRHO« 351 



EMT551 
EHT1 
EDTI 
EFTI 



\imm 352 



EMT352 
0 
0 
0 



.•ERROR 353 



EMT355 
EHT353 
EDT353 
EFT553 



; ERROR 354 



EMT354 
EHT1 
EDTI 
EFTI 



•ATA" DID NOT SET DURING SEARCH 



PROGRAM TIMEOUT WHJLE TESTING RMLA 



LOOK AHEAD TEST FAILS 



BSE SHOULD NOT BE SET 



724 
725 



;PUT ERROR TABLE HERE 



inm^O RM05/5/? FCTNL TST ? 
EPROR TABLE USAGE 



2 
3 
4 
5 
6 
7 

8 

9 
10 

n 

12 

u 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
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SfO 0062 



.S8TTL ERROR TABLE USAGE 

THE ERROR TABLE ABOVE CONSISTS Of FOUR WORD ENTRIES FOR EACH ERROR 
NUMBER. I.E.. 

EMI - ERROR MESSAGE TABLE ADDRESS 
EHT - ERROR HEADER TABl E ADDRESS 
EOT - ERROR DATA TABLE ADDRESS 
EFT - ERROR FORMAT TABLE ADDRESS 

THE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS 
FOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADDRESS 
OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND 
TYPED BY THE ERROR TYPE SUBROUTINE. IF THE EMT ENTRY IS ZERO, THERE IS 
NO MESSAGE TO BE TYPED FOR THE ERROR. 

SIMILARLY, THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES 
OF HEADER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR. EACH ENTRY 
IN THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF 
DATA. HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND 
HEADER. THAT IS, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA, 
BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE 
MUST ALSO HAVE A FORMAT. 

IN SUMMARY, 

EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE, 

EACH TABLE IS A LIST 0(- ADDRESSES WHICH DEFINES THE LOCATIONS 

OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT. 



^l»n^BO RM05/5/2 FCTNL TST 2 
FRROR TABLf USAGE 



I 
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2 








3 


00534? 


011600 




A 


00534A 


005740 




5 


005 3A6 


022626 




6 


005350 


104401 


005356 




005354 


000417 






0054 H 






7 


005414 


010046 




8 


005416 


104402 




9 


005420 


000240 




10 








11 








^2 








13 








1A 


005422 


012737 


-[77777 


15 


005430 


000402 




16 








17 


005432 


005037 


001330 


18 


005436 


000240 




19 


005440 


005227 


000000 


20 


005444 


001375 




2} 


005446 


000005 




22 








21 


















005450 


01 2706 


001114 




005454 


005026 






005456 


022706 


001 1 54 




005462 


001374 






005464 


012706 


001100 



005470 
005476 
005504 
005512 
005520 
005526 
005534 
005542 
005550 
005556 
005562 
005566 
005574 
005602 



005610 
005614 
005622 
005630 
005636 
005644 



012737 

012737 

012737 

012737 

012737 

012737 

012737 

012737 

013737 

005037 

005037 

112737* 

012737 

012737 



056764 
000340 
057560 
000340 
062614 
000340 
062722 
000340 
031760 
001206 
001210 
000001 
005574 
005602 



013746 000004 

012737 005650 

012737 177570 

012737 177570 

022777 -[77777 
001012 



SfO 0063 



.•THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 



BADTMO: MOV 

TST 



;;65$: 

64$: 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
0000P6 
031752 



001131 
001122 
001124 



000004 
001154 
001 1 56 
173310 



CMP 

TYPE 

BR 

.ASCIZ 

MOV 

TVPOC 

NOP 



(SP).RO 
-(RO) 

(SP)*.CSP)* 
.65$ 
64$ 



SAVE PC WHERE THE TIME OUT OCCURED 
ADJUST PC -2 
RESTORE STACK POINTER 
;TyPE ASCIZ STRING 
;GET OVER THE ASCIZ 



<CRLF>/UNEXPECTED BUS TIMEOUT. PC=/ 
RO.-(SP) .-SETUP FOR TYPING OUT PC 



,S8TTL START OF PROGRAM 



001330 START1 



MOV 
BR 



START: CLR 
START2: NOP 
INC 
BNE 
RESET 



#-1.CHGADR 

START? 

CH6ADR 

#0 
.-4 



;PUT 'HALTCO)' INSTRUCTION HERE IF YOU WISH 
;T0 STOP ON UNEXPECTED TIMEOUT. 



.•CHANGE RH/RM BUS ADDRESS 



;N0 CHANGE IN ADDRESS 

;TTy LOOP. WAIT FOR INCREMENT 
;0F WORD 

.•RESET THE WORLD 



.S8TTL INITIALIZE THE COMMON TAGS 
;; CLEAR THE COMMON TAGS ($CMTA6) AREA 
*$CMTAG.R6 
(R6)-^ 
#SWR.R6 
.-6 

#STACK.SP 
FEW VECTORS 
#$SCOPE.a*IOTVEC 

*340.a;riOTVEC+2 

*$ERROR,a/rEMTVEC 



C05646 000403 



MOV 

CLR 
CMP 
BNE 
MOV 

.-.•INITIALIZE A 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
M0V8 
MOV 
MOV 
.-.-SIZE FOR A 
;; EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 

BR 



FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 
DONE? 

LOOP BACK IF NO 
SETUP THE STACK POINTER 



;;IOT VECTOR FOR SCOPE ROUTINE 
.•LEVEL 7 

;;EMT VECTOR FOR ERROR ROUTINE 
*340.a*EMTVEC-^2 ;; LEVEL 7 

*$TRAP.a*TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340,a*TRAPVEC-^2;LEVEL 7 
Xr$PWRDN.a#PWRVEC ; .-POWER FAILURE VECTOR 
*340.a#PWRVEC+2 ; .-LEVEL 7 

$ENDCT.$EOPCT ..SETUP END-OF -PROGRAM COUNTER 
$TIMES ;; INITIALIZE NUMBER OF ITERATIONS 

$ESCAPE ;; CLEAR THE ESCAPE ON ERROR ADDRESS 

*1,$ERMAX ; .-ALLOW ONE ERROR PER TEST 

#.,$LPADR ;;INITIALIZE THE LOOP ADDRESS FOR SCOPE 

*.,$LPERR ;; SETUP THE ERROR LOOP ADDRESS 

HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 



-I", SETUP FOR A 
a!fERRVEC.-(SP) 
*64$.a*ERRVEC 
#DSWR.SWR 
#DDISP, DISPLAY 
*-1.aSWR 
66$ 

65$ 



SOFTWARE SWITCH REGISTER. 
SAVE ERROR VECTOR 
SET UP ERROR VECTOR 
SETUP FOR A HARDWARE SWICH REGISTER 
;AND A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWARE SWR 
•BRANCH IF NO TIMEOUT TRAP OCCURRED 
:AND THE HARDWARE SWR IS NOT - -1 
;8RANCH IF NO TIMEOUT 



rZRH^eO RM05/3/2 FCTNL TST 2 
IMMALIZE THE COMMON TAGS 
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005654 


000002 




005656 


012737 


000176 


00566A 


012737 


000174 


005672 


012637 


000004 


005676 


005037 


001230 


005703 


132737 


000200 


0C5710 


00U03 




005712 


012737 


001244 


005720 






24 






25 005720 


012737 


005342 


26 005726 


012737 


000300 



27 
28 



29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 



43 
44 
45 
46 



005734 


005227 


-[77777 


005740 


001035 




C05742 




032122 


005750 


001431 




005752 


104401 


005760 


005756 


000426 




006034 






006034 


005737 


000042 


006040 


001012 




006042 


123727 


001242 


006050 


001406 




006052 


023727 


001 1 54 


006060 


001005 




006062 


104407 




006064 


000403 




006066 


112737 


000001 


006074 







006074 
006100 
006106 
006110 
006116 
006124 
006126 
006132 
006136 
006140 
006144 

006172 
006172 
006174 
006200 
006202 



005037 
122737 
001160 
013737 
122737 
103002 
105037 
005737 
001425 
104401 
000412 



005046 
113716 
104403 
001 



001332 
000016 

000040 
000007 

001332 
000042 

006146 



001352 



SEO 0064 



001154 
001156 



001243 
001154 



000004 
000006 



000042 



000001 
0001 76 

001 1 50 



000041 

001332 
001332 



64 S: MOV 
RT] 

65f: MOV 
MOV 

66S: MOV 

CLR 
BITS 
BEQ 
MOV 

67t: 

.•SETUP "TIMEOUT 
MOV 
MOV 



#65$. (SP) 



;;SET UP FOR TRAP RETURN 
; .-POINT TO SOFTWARE SWR 



'SUREO.SUR 
*DISPREG. DISPLAY 
(SP)*.a#ERRVEC .-.RESTORE ERROR VECTOR 



SPASS 

#APTSIZE.$ENVM 
67S 

ASSURE G, SWR 



.-.-CLEAR PASS COUNT 
.-.-TEST USER SIZE UNDER APT 
;; YES. USE NON-APT SWITrH 
;;NO.USE APT SWITCH REGISTER 



• TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
#8ADTM0,ERRVEC .-SETUP FOR UNEXPECTED TIMEOUT 
#PR6.ERRVEC*2 .'LEVEL 6 



.S8TTL 
;:TyPE 



;;69$: 

68$: 

.S8TTL 



TYPE PROGRAM NAME 

THE NAME OF THE PROGRAM 

INC #-1 

BNE 68$ 

CMP «$ENDAD.a#42 

BEQ 68$ 

TYPE .69$ 

BR 68$ 

.ASCIZ <CRLF>aCZRMNBO 



IF FIRST PASS 
.-FIRST TIME? 
.-BRANCH IF NO 
;ACT-1 1 ? 
;8RANCh' IF YES 
.-TYPE ASCIZ STRING 
.-GET OVER THE ASCIZ 
RM05/3/2 FUNCTIONAL 



TEST. PT 2S<CRIF> 



GET VALUE FOR SOFTWARE SWITCH REGISTER 



TST 


a«42 


;.-ARE WE RUNNING UNDER XXDP/ACT? 


BNE 


70$ 


; .-BRANCH IF YES 


CMP8 


$ENV,#1 


;;ARE WE RUNNING UNDER APT? 


BEQ 


70$ 


;. -BRANCH IF YES 


CMP 


SWR,#SWREG 


; .-SOFTWARE SWITCH REG SELECTED? 


BNE 


71$ 


; .-BRANCH IF NO 


GTSWR 




.-.-GET SOFT-SWR SETTINGS 


BR 


71$ 




M0V8 


#1 .$AUT08 


.-.-SET AUTO-MODE INDICATOR 



70$: 
71$: 



.-THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
;PAPER TAPE (MANUAL), ACT11. XXDP CHAIN OR DUMP 



1$: 



;;73$: 
72$: 



CLR 

CMP8 

BNE 

MOV 

CMP8 

BHIS 

CLR8 

TST 

BEO 

TYPE 

BR 

.ASCIZ 

CLR 
M0V8 
TYPOS 
.BYTE 



XXDP 

#16,S#41 

3$ 

a#40,xxDP 

#7,XXDP 
1$ 

XXDP 

a«42 

2$ 

.73$ 
?2$ 

<CRLF>/NOT 

-(SP) 
XXDP.(SP) 

1 



.-CLEAR "XXDP" LOAD DEVICE STORAGE 
; LOADED FROT^'AN RM05/3/2 ? 
.-BRANCH IF NOT 

;GET DEVICE INDICATOR AND NUMBER 

;IS IT A VALID NUMBER ? 

;YES 

.-NO. DEFAULT TO DRIVE 0 
.-CHAIN MODE OR ACT11 AUTO ACCEPT ? 
;8R IF NEITHER 
;;TYPE ASCIZ STRING 
.-.-GET OVER THE ASCIZ 
TESTING DRIVE / 

.-CLEAR WORD ON STACK 
.-GET DRIVE ADDRESS 
.-TYPE THE ADDRESS 
.'ONLY 1 CHARACTER 



CZRMNeO RM05/3/2 FCTNL TST 2 MACRO V04.00 
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SEO 006S 



47 006203 

48 006204 

49 006210 
50 

51 006212 

52 006216 

53 006220 
006224 

006246 

54 006246 

55 006250 

56 006254 

57 006256 

58 006257 

59 006260 
006264 



000 
104401 
000517 

005227 
001114 
104401 
000410 



005046 
113716 
104403 
001 
000 
104401 
000431 



C01217 

M7777 
006226 



001332 



006266 



.8rTE 0 
TYPE .SCRLF 
BR 3$ 



2$: 



;;75$: 
^4S: 





006350 








60 


006^50 


104401 


0C6356 






006354 


AAA/ TC 

000455 








006A50 








64 










65 


/\AZ / Cf\ 

006450 


00575^ 


AAAAy "3 

00004? 




66 


r\r\^/ c/ 

006h^4 


AA 1 C ^ 1 

001 d61 






67 


006h56 


\JlCf5f 




AA1 TAA 
UUl 3UU 


Z. D 

68 










69 










*7A 
fV 


AA^/ iL/ 








71 


AAZ. / / 

006464 




AAA T A A 
000? UU 


AA1 O/ 7 

U01?45 


72 


00647? 


UOl 146 






75 










ft* 


0U64 ti 


AACAA1 






7C 
fj 


UUO*«f o 




vU 1 c/ 0 




76 


006502 


104401 


064350 




77 










78 


006506 


136157 


064666 


001 300 


79 


006514 


001531 






80 


006516 


104401 


001217 




81 


006522 


010146 








006524 


104403 








006526 


002 








006527 


000 






82 


006530 


104401 


064560 




83 










84 


006534 


012760 


000040 


000010 


85 


006542 


010160 


000010 




86 


006546 


005760 


000012 




87 


006552 


032760 


010000 


000010 


88 


006560 


001051 






89 


006562 


032760 


004000 


000000 


90 


006570 


001450 






91 


006572 


016002 


000026 




92 


006576 


012737 


064366 


006^76 


93 


006604 


022702 


020025 




94 


006610 


001430 







;;77$: 
76$; 



;;78$: 
3$: 

.■CHECK 



INC 
BNE 
TYPE 
BR 

.ASCI2 

CLR 

l*10V8 

TYPOS 

•BYTE 

.BYTE 

TYPE 

BR 

.ASCIZ 

TYPE 
bR 

.ASCJZ 

FOR AUTO 
TST 
BEQ 
MOV 



*-1 
3$ 

,75$ 
-^4$ 

<CRLF>/TO TEST DRIVE / 



.•SUPRESS LEADING ZEROS 
; CR-LF 

.-GET NUMBER OF DRIVES 

.•FIRST TIME THRU HERE : 
;N0 

..TYPE ASCIZ STRING 
.-.-GET OVER THE ASCIZ 



-(SP) 
XXDP,(SP) 

1 

0 

.77$ 
76$ 



CLEAR WORD ON STACK 
GET DRIVE ADDRESS 
TYPE DRIVE ADDRESS 
ONLY 1 CHARACTER 
SUPRESS LEADING ZEROS 
;TYPE ASCIZ STRING 
.-GET OVER THE ASCIZ 



/. HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF> 

,78$ .-.-TYPE ASCIZ STRING 

3$ ;;GET OVER THE ASCIZ 

/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF> 
MODE OR STANDLONE MODE 



3^42 
STANDALONE 
*3 77. $DEVM 



RUNNING IN AUTO MODE ? 
BR IF ^0 

SET DEVICE MAP FOR ALL DRIVES 



.•PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 
XSIZ: 

.•SIZING ALLOWED ? 
;N0 

;START FROM DRIVE 0 
.LOAD THE BASE ADDRESS 
;TYPE 'UNIT STATUS:' 

1$: BITS ATNTBL(R1),$DEVM .-IS DEVICE PRESENT IN MAP ? 

8R IF NO 
CR-LF 

SAVE R1 FOR TYPE OUT 
GO TYPE— OCTAL ASCII 
TYPE 2 DIGITCS) 
SUPPRESS LEADING ZEROS 
TYPE 4 BLANKS 

CLEAR MASS BUS 
LOAD THE DRIVE ADDRESS 
ACCESS DRIVE REGISTER 
IS DRIVE PRESENT ? 
BR IF NO 

IS DRIVE AVAILABLE ? 
BR IF NO 

SAVE DRIVE TYPE REGISTER IN P? 
ASSUME RM02 DEVICE 
SINGLE PORT RM02 ? 
BR IF YES 



BITB 


*8IT7,$ENVM 


BNE 


12$ 


CLR 


R1 


MOV 


$8ASE.R0 


TYPE 


.SXSTAT 


BITB 


ATNTBL(R1),$DE 


BEQ 


11$ 


TYPE 


,$CRLF 


MOV 


R1,-(SP) 


TYPOS 




•BYTE 


2 


.BYTE 


0 


TYPE 


.8LNKS4 


MOV 


*CLR,RMCS2(R0) 


MOV 


R1,RMCS2(R0) 


TST 


RMDS(RO) 


BIT 


*NED,RMCS2(R0) 


BNE 


3$ 


BIT 


*DVA.RMCS1(R0) 


BEQ 


4$ 


MOV 


RMDT(R0).R2 


MOV 


*$RM02.10$ 


CMP 


#20025, R2 


BEO 


2$ 



vA^jf FOR SOFTWARE SWITCH REGISTER 
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95 

96 

97 

98 

99 

00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

K 

15 

16 

17 

18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
55 
36 
57 
58 
59 
40 
4' 



006612 
006616 
006620 
006626 
006632 
006634 
006640 
006642 
006650 
006654 
006656 
006662 
006664 
006670 
006672 
006700 
006702 

006704 
006710 

006712 
006716 
006724 

006726 
006732 
006740 

006742 
006746 
0C6750 
006754 
006756 
006762 

006764 
006770 
006774 
006776 

007000 
007002 
007006 

007010 
007014 



022702 


024025 


001425 




012737 


064373 


022702 


020024 


001417 




022702 


024024 


001414 




012737 


064400 


022702 


020027 


001406 




022702 


024027 


001403 




104401 


/ y AC 

06440^ 


000412 




032760 


010000 


001412 




000417 




104401 


^^0'.445 


000402 




104401 


064460 


146157 


064666 


000425 




104401 


064477 


146157 


064666 


000415 




005757 


001 532 


001 406 




125701 


001352 


001 560 




104401 


064426 


000755 




104401 


064510 


104401 


064562 


104401 




000000 




005201 




020127 


000007 


005657 




104401 


001217 


000157 


007476 



5$: 



4S: 



6$: 



7$: 



81: 
9$: 

10$: 

11$: 

1?$: 



:np 


•24025. R2 


DUA^ PORT RM02 ? 


BEO 


2$ 


BR If YES 


»10V 


«$RM05.10$ 


ASSUME RM05 DEVICE 


CMP 


♦20024. R2 


SINGLE PORT RM05 7 


BEO 


2$ 


BR IF YES 


CMP 


*24024.R2 


DUAL PORT RM05 ? 


BEO 


2$ 


BR If YES 


MOV 


#$RM05.10$ 


ASSUME RMOS DEVICE 


CMP 


#2002 7. R2 


SINGLE PORT RM05 ? 


BEO 


2$ 


•BR IF YES 


CMP 


*24027.R2 


DUAL PORT RM05 ? 


BE 2 


2$ 


BR IF YES 


1 TPt 




• r\D r V/C fclAT AL< DMA^.7/0 

OH JVC NUl AN HnV^/ j/£ 


BR 


5$ 


; CHECK NEXT DRIVE 


BJT 


*MOL.RMDS(R0) 


;IS MEDIUM ON LINE ? 


DC A 


6> 


;oR i r NO 


BR 


7$ 




TYPE 


.NOTPRS 


; DRIVE NOT PRESENT 


BR 


5$ 


;CHECK NEXT DRIVE 


TYPE 


.NOTAVL 


.•DRIVE NOT AVAILABLE 


BICB 


ATNT8L(R1).$DEVM 


.-CLEAR DEVICE 



BR 11$ 

TYPE .UNTOFF 

BJC8 ATNT8L(R1).$DEVM 

BR 9$ 

TST XXDP 

BEO 8$ 

CMPB XXDP.Rl 

BNE 5$ 

TYPE .LODEV 

BR 5$ 

TYPE .UNTON 

TYPE .8LNKS2 
TVPE 

.WORD 0 

INC Rl 

CMP Rl ,07 

BLE 1$ 

TYPE .$CRLF 

JMP CMNSTART 



CHECK NEXT DRIVE 

DRIVE OFFLINE 

;CLEAR DEVICE FROM BIT MAP 
PRINT DRIVE TYPE 

LOADED FROM RM05/3/2 ? 
NO 

IS THIS THE DRIVE ' 
BR IF NO 

DRIVE IS LOAD DEVICE 



.-DRIVE ONLINE 
.•TYPE 2 BLANKS 
.•PRINT DRIVE TYPE 
;MESSAGE ADDRESS HERE 

.-INCREMENT THE DRIVE ADDRESS 
.•ALL DRIVES ARE CHECKED ? 
.•BRANCH IF NOT 

; CR-LF 

.-JUMP TO COMMON START 



smndalOne imput routines 



2 
3 

4 

5 
6 
7 

8 
9 

10 

n 
1? 

13 
K 
15 
16 
17 
18 
19 
?0 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 



41 
42 
4^ 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



007020 
007020 

007024 
007030 



007032 
007036 
007040 
007044 
007052 
007054 
007060 
007064 
007066 
007072 
007076 



007100 
007100 
0071 OA 
007106 
007112 



007116 
007116 
007122 
007126 
007130 
007134 
0071 36 
007142 
007144 

39 007152 

40 007154 
C07160 
007162 



34 
35 
36 
37 
38 



0071 70 
007174 
007176 
007202 
007204 
007210 
007212 
007216 
007220 
007226 
007230 
007234 
007236 



004737 

005227 
001023 



104401 
104411 
012637 
123727 
001005 
104401 
104401 
000414 
104401 
104401 
000407 



005737 
001457 
005037 
104401 



104401 
013746 
104402 
104401 
104413 
012637 
001412 
022737 
101403 
104401 
000756 
013737 

104401 
005046 
113716 
104402 
104401 
104413 
0126'7 
001412 
022737 
101003 
104401 
000755 
113737 



061230 
}77777 

063450 

001176 
001176 

001 1 76 
101360 

064554 
001217 

001 330 

001330 
001217 

064025 
001276 

064562 

001176 

160000 

064035 

001176 

064077 

001272 

064562 

001176 

001000 

064106 

001176 
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.S8TTL STANDALONE INPUT ROUTINES 



sto out' 



STANDALONE: 
JSR 



PC.SmiNT 



.•INITIALIZE fONSOLE 



0001 31 



INC 


#-1 


; FIRST TinE THRU HERE ^ 


BNE 


21 


;8R IF NO 


OPERATOR WANTS HELP 


TEXT 


TYPE 


.MSHELP 


;UANT HELP ? 


RDCHR 


.-GET RESPONSE 


MOV 


(SP)+.$TMP1 


.•SAVE AND ECHO RESPONSE 


CMP8 


$TW1 Y 


.WAS IT A YES RESPONSE ? 


BNE 


1$ 


;N0 


TYPE 


.STMPI 


.•TYPE "Y* 


TYPE 


.HELP 


;YES - TYPE HELP TEXT 


BR 


3$ 




TYPE 


.N 


.•TYPE 'N' 


TYPE 


.SCRLF 


; CR-LF 


BR 


3$ 





1$: 



.-SEE IF USER WANTS TO CHANGE UNI8US ADDRESS 
2$: 

TST CHGADR 
BEQ 7$ 
CLR CHGADR 
TYPE ,$CRLF 



CHANGE RH/RM BUS ADDRESS 
BR IF NO 

NO CHANGE NEXT TIME 
CR-LF 



.DIALOGUE TO CHANGE THE UNI8US ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 
3$: 



001176 

001276 4$: 
5$: 



001176 
001272 6S; 



TYPE 


.CNSLOl 


■TYPE CURRENT BUS ADDRESS 


MOV 


$8ASE.-(SP) 


.-SAVE $8ASE FOR TYPE OUT 


TYPOC 




•;G0 TYPE— OCTAL ASCI I (ALL 


TYPE 


.8LNKS2 ; 


•TYPE 2 BLANKS 


RDOCT 




GET NEW BUS ADDRESS 


MOV 


tsp)*.$TMPi ; 


CARRIAGE RETURN ? 


BEQ 


5$ 


•YES-SKIP TO NEXT ENTRY 


CMP 


/ri 60000. STMPl 


;8ASE ADDRESS IN I/O PAGE ? 


BLOS 


4S 


■YES 


TYPE 


.CNSL02 


■TYPE WARNING MESSAGE 


BR 


3$ 


;TRY AGAIN 


MOV 


$TMP1.$8ASE 


; STORE NEW BUS ADDRESS 


TYPE 


.CNSL03 




CLR 


-(SP) 




M0V8 


$vEcn.(SP) 


■GET CURRENT VECTOR ADDRESS 


TYPOC 






TYPE 


,8LNKS2 


■TYPE 2 BLANKS 


RDOCT 


GET NEW VECTOR ADDRESS 


MOV 


(SP)*.$TMP1 


■CARRIAGE RETURN? 


BEQ 


7$ 


■YES-SKIP TO NEXT ENTRY 


CMP 


#1000.$TMP1 


•VECTOR ADDRESS < 1000 ? 


BHI 


6$ 


;YFS. 1 


TYPE 


.CNSL04 


•TYPE WARNING MESSAGE 


BR 


5$ 


■RETRY 


M0V8 


$TMP1,$VECn 


■STORE NEW VECTOR ADDRES^ 



rZRMNeO RM05/3/2 FCTNl TST 2 
STANDALONE INPVJT ROUTINES 



57 
58 

59 0072A4 

60 007250 

61 007252 

62 007256 
65 007262 
6A 007266 

65 007272 

66 00727A 

67 007300 
o8 007306 

69 007310 

70 0073H 

71 007322 
72 

73 007326 
?A 00733A 

75 007336 

76 C073A2 

77 007350 

78 007352 

79 007360 

80 007362 
81 

82 00736A 

83 007366 
8A 007372 

85 007400 

86 007402 

87 007406 

88 007412 

89 007420 

90 007422 

91 007430 

92 007432 

93 007436 
94 

95 007440 

96 007444 

97 007450 

98 007456 

99 007464 

100 007466 

101 007472 



005227 
001002 
104401 
104401 
005057 
104401 
104411 
012637 
023727 
001007 
104401 
012737 
000137 

023727 
001436 
104401 
023727 
002430 
023727 
003427 
000423 

104411 
012637 
023727 
001432 
104401 
104401 
023727 
002404 
023727 
003403 
104401 
00071 1 

013701 
042701 
156137 
122737 
101337 
104401 
000137 



M7777 

064142 
001217 
001 300 
064326 

001 1 76 
001176 

063434 
000377 
006464 

001176 

001176 
001176 

001176 



001 1 76 
001176 

063445 
001 1 76 
001176 

001176 

064304 



001176 
1777/0 
064666 
000377 

001217 
006464 



MACRO V04.00 4-APR-81 



•DIALOGUE TO 
H: INC 
BNE 
TYPE 

8$: TYPE 
9S: CLR 
TYPE 
RDCHR 
MOV 
CMP 
BNE 
TYPE 
MOV 
JMP 

10$: CMP 
BEQ 
TYPE 
CMP 
BLT 
CMP 
BLE 
3R 

IIS: RDCHR 
MOV 
CMP 
BEQ 
TYPE 
TYPE 
CMP 
BLT 
CMP 
BLF 

12$: TYPE 
BR 

13$: MOV 
BJC 
BISB 

Ci-^IPB 
BHI 

'4$: TYPE 
JMP 



000101 

001 300 

000015 

000060 
000067 

00001 5 

000060 
000067 



001 300 
001 300 
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SEO 0068 



'UT DEVICE NUMBERS 

#-1 .-FIRST TINE THRU ? 

8$ ;8R IF NO 

.CNSL07 ;TYPE INPUT INSTRUCTIONS 

.SCRLF ; CR-LF 

$DEVM .-CLEAR DEVICE MAP 

.MSDRVS .-TYPE 'DRIVECS): ' 

(S:-') + ,$TMPl ;6ET RESPONSE 

$TMP1.*'A ;IS INPUT "A" ? 

10$ ;N0 

.ALL ;YES. TYPE "ALL" AND GO 

#377.$DEVM ;SET DEVICE MAP FOR ALL DRIVES 

XSI2 ;AUTO SIZE. 

$TMP1.#CR .-CARRIAGE RETURN ? 

12$ ;YES 

.$TMP1 .-ECHO RESPONSE 

$TMP1.*'0 .-NUMBER < 0 ? 

12$ .-YES 

$TMP1,*'7 .-NUMBER > 7 ? 

13$ .-NO 

12$ .-ILLEGAL INPUT 



(SP)*,$TMP1 ;6ET RESPONSE 

$TMP1.*CR .-CARRIAGE RETURN ? 

14$ ;YES 

.COMMA .-TYPE ' 

.STMPI ;ECHO RESPONSE 

$TMP1.*'0 .-NUMBER < 0 ? 

12$ ;YES 

$TMP1.*'7 ;NUr«ER > 7 ? 

13$ ;N0 

.CNSL08 .-TYPE CR-LF " ? ILLEGAL INPUT" 

9$ .-RETRY 

STMPI. R1 ;R1 - DRIVE NUMBER 
**C7,R1 

ATNT8L(R1) ,$DEVM ;SET DEVICE IN MA^ 

#377,$DEVM .-DONE ? 

11$ ;N0 

.$CRLF ; CR-LF 

XSIZ ;G0 SIZE DEVICES 



STANDALONE INPU^ ROUTINES 



MAfRO \/0<..00 



E 6 
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S£0 006^ 



2 
3 
<• 
5 
6 
7 
8 
9 
'0 

n 
12 

13 
K 
IS 
16 



17 
18 
19 
20 
21 
22 
25 
2A 
25 
26 
27 
28 
29 
30 



0074.76 
007476 
007502 
007506 
007510 
0075K 
007520 
007524 
007530 
007554 
007536 
007540 
007542 
007546 
007550 
007552 
007554 
007555 
C07556 
007564 
007570 
007572 
007574 
007576 
007600 
007602 
007604 



007610 
007614 
007616 
007622 



007652 

31 007652 

32 007656 

33 007660 

34 007664 

35 007670 
56 

57 007670 
38 007672 
59 007676 

40 007700 

41 007704 

42 007706 
45 007712 
44 

45 007716 

46 007722 

47 007726 

48 007732 

49 007736 
007742 
007746 



104401 
01 5700 
001004 
104401 
104401 
012701 
010137 
012702 
005005 
030200 
001413 
104401 
010311 
010346 
104403 
001 
000 
116561 
062701 
006302 
105702 
0OH02 
005203 
000756 
005011 
104401 



004737 
000425 
104401 
000413 



005737 
001002 
000137 
000137 



000240 
105737 
001007 
005737 
001002 
000137 
000137 

105037 
005037 
005037 
004737 
012746 
012746 
000002 



064520 
001300 

065445 
064547 
001470 
001466 
000001 



063-«45 



064666 
000002 



001217 

056460 
007624 

000042 

005432 
032112 

001300 

000042 

005432 
032112 

001116 
001206 
001326 
061230 
000240 
007750 



.-ASSEKeiE TEST 
TMNSTART: 



1$: 



QUE FROM DEVJCc MAP 



2$: 



000001 



3$: 



4$: 



.•SIZE 



;;65$ 
64$: 



5$: 
6$: 

READY: 



1$: 
2$: 



TYPE 


.DRiVES 


MOV 


$DEVM.RO 


BNE 


IS 


TYPE 


.COMMA 


TYPE 


.NONE 


MOV 


#TSTQUt*2.R1 


MOV 


R1.TSTQUE 


MOV 


#1.R2 


CLR 


R3 


BIT 


R2.R0 


BEO 


3$ 


TYPE 


.COMMA 


MOV 


R3.(R1) 


MOV 


R3.-(SP) 


7YP0S 




.BYTE 


1 


.BYTE 


0 


MOVB 


ATNT8L(R3).1(R1) 


ADD 


#2,R1 


ASL 


R2 


TST8 


R2 


BEO 


4$ 


INC 


R3 


BR 


2S 


CLR 


(R1J 


TYPE 


.$CRLF 



FOR CLOCK 
JSR 
BR 
TYPE 
BR 

.ASCI7 



PC.SIZCLtC 
6$ 
.65$ 
64$ 

<CRLF>/NO 'L' 



OR 



TYPE 'DR]VE(S) TO BE TESTED* 

RO - DEVICE MAP 

BR If DRIVES TO TEST 

TYPE • 

TYPE 'NONE' 

R1 = ADDRESS OF FIRST ENTRY IN OUE 

INITIALIZE ENTRY POINTER 

R2 = DEVICE POINTER 

R3 = DEVICE NUMBER 

IS THIS DEVICE IN MAP ' 

NO . . 

TYPE • 

YES - ENTER DEVICE NU^BER IN QUE 

.•SAVE R3 FOR TYPEOUT 

;G0 TYPE— OCTAL ASCII 

.•TYPE 1 DIGIT(S) 

.■SUPPRESS LEADING ZEROS 

ENTER ATTENTION BIT IN QUE 

ADVANCE ENTRY POINTER 

ADVANCE DEVICE POINTER 

DONE ALL DEVICES ? 

YES 

ADVANCE DEVICE NUPBER 
ENTER NEXT DEVICE 
TERMINATE TEST QUE 
TYPE CR-LF 



SEE IF CLOCK PRESENT 
YES - CLOCK IS PRESENT 
;TYPE ASCIZ STRING 
.-GET OVER THE ASCIZ 
'P' CLOCK/ 



TST 


a#42 


•ANY MONITOR PRESENT ? 


BNE 


5$ 


•BR IF YES 


JMP 


START 


•JUMP TO START 


JMP 


$GET42 


•RETURN CONTROL TO MONITOR 


NOP 




-READY TO START TEST 


TSTB 


SDEVM 


•ANY DRIVES IN MAP ? 


BNE 


2$ 


•BR IF YES 


TST 


a«42 


•ANY MONITOR PRESENT ? 


BNE 


1$ 


■BR IF YES 


JMP 


START 


•JUMP TO START 


JMP 


S6ET42 


•RETURN CONTROL TO MONITOR 


CLRB 


STSTNM 


•RESET TEST NUMBER 


CLR 


$TIMES 


■INITIALIZE NUMBER OF ITERATIONS 


CLR 


CTLFG 


■CLEAR CONTROL-C FLAG 


JSR 


PC.$TKINT 


•INITIALIZE ITY 


MOV 


#PR5.-(SP) 


•;PUT NEW PS ON STACK 


MOV 


#64$. -(SP) 


•;PUT NEW PC ON STACK 


RTI 


•;POP NEW PC AND PS 



">* AMD ALONE INPL^ 



FCTNL TST 2 
ROUTINES 





007750 






5C 

if \J 


007750 


117737 


1 71512 


51 


007756 


005037 


001512 










55 








5^ 








55 








56 


007762 


012737 


002000 


57 


007770 


013700 


001276 


58 


00777A 


01 2760 


000040 


59 


010002 


1 1 7760 


171460 


oO 


010010 


016002 


000026 


61 


0100K 


042702 


1 7777^ 


62 


010020 


022702 


000007 




0100^<» 


001003 




6A 


010026 

V ' Www 




011000 


65 








66 








67 








68 


C1003A 


104401 


001217 


69 


010040 


104401 


064342 


70 


010044 


013746 


001234 



010050 
010052 
010053 

71 010054 

72 010056 

73 010060 
7U 010062 
75 010064 



104403 
002 

000 
005004 
005304 
001376 
005304 
001376 



inACRO V04.00 
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StO 007' 



001234 



001334 

000010 
000010 



001 534 



64 1: 



M0V8 STSTQUE.tJNIT 
CLR MEDEN8 



.•LOAD DRJVE N'JMBER 
.•CLEAR MEDIA ENA8LE 



.-CLEAR MASS8US CONTROLLER. SELECT DRIVE AND DETERMINE THE LAST TRACK 
;0F THE DIFFERENT DRIVE TYPES 

ASSUME LAST TRACK FOR RM02/3 - 4. 
RO = UNI BUS ADDRESS 
CLEAR NASSeUS 

.•SELECT DEVICE UNDER TEST 
GET RMDT AND 
SAVE DRIVE TYPE 
IS IT AN RM05 ? 
NO. MUST BE AN RM02 
YES—SET LAST TRACK 

TYPE DRIVE NUMBER TO BE TESTED($UNI T) 



MOV 


*TA4,LSTRK 


MOV 


SSASE.RO 


MOV 


*CuR.RMCS2(R0) ; 


MOVB 


aTST0UE.RMCS2(R0) 


MOV 


RMDT(R0).R2 


BIC 


*1 77770. R2 


CMP 


*7.R2 


BNE 


5$ 


MOV 


*TA16:TA2.LSTRIC , 



BITS 



OR RM03 
- 18. 



TYPE 
TYPE 
MOV 

TYPOS 
.BYTE 
.BYTE 

CLR 
DEC 
BNE 
DEC 
BNE 



.SCRLF 

.MS6DRV 

$JNIT.-(SP) 



2 

0 

R4 

R4 

.-2 

R4 

.-? 



CR-LF 

TYPE 'DRIVE* 

SAVE SUNIT FOR TYPE OUT 

TYPE DRIVE NUMBER 

GO TYPE— OCTAL ASCII 

TYPE 2 OIGIT(S) 

SUPPRESS LEADING ZEROS 
THESE TWO LOOPS ARE ADDED TO 
WAIT FOR TTY 



HACRO VOA.OO 4-APR-81 '1 



G 6 

.43:33 PAGE 13 



.••TfSr 1 



CONTROLLER ACCESS TEST 



010066 
010066 
010070 
010072 
010076 
010102 
010106 

? 

5 0101U 

4 010116 
010122 

5 010126 

6 010134 
7 

8 010142 

9 010146 

10 0)0152 

11 010156 

12 010162 

13 010166 

14 010172 

15 010176 

16 010202 

17 010206 

18 010212 

19 010216 
010222 

20 010226 
21 

22 010230 

23 010232 
010236 

24 010242 

25 010244 

26 010250 

27 010252 

28 010256 

29 010262 
50 010266 
31 

52 



010266 
010266 
010270 
010272 
010276 
010302 
010506 

?3 
54 

<S 010514 
<t :'0522 



000004 
000240 
012706 
013700 
013701 
012737 

005001 
01 3746 
013746 
012737 
012737 

110160 
010160 
016002 
010160 
016002 
016046 
010160 
CI 6002 
012660 
010160 
016002 
012637 
012637 
000417 

022626 
012637 
012657 
104110 
005737 
C01002 
0001 37 
005057 
000137 



000004 
000240 
012706 
013700 
013701 
012737 



001100 
001276 
001466 
000001 



000004 
000006 
010230 
000300 

000001 
000002 
0C0002 
000004 
000004 
000010 
000010 
000010 
000010 
000022 
000022 
000006 
000004 



000006 
000004 

000042 

005422 
001300 
031 724 



00' 100 
001276 
001466 
000002 



TST1 : 



001226 



000004 
000006 



2$: 
5$: 



SCOPE 




NOP 




MOV 


*STACK.SP 


MOV 


t8ASE ,R0 


MOV 


TSTQUE.R1 


MOV 


*1 ,$TESTN 


CLR 


R1 


MOV 


ERRVEC ,-(SP) 


MOV 


ERRVEC+2.-(SP) 


MOV 


#1$, ERRVEC 


MOV 


*PR6, ERRVEC +2 


Move 


Rl .RMCS1 +1 (RO) 


MOV 


Rl ,RMWC (RO) 


MOV 


RMWC (RO) ,R2 


MOV 


Rl .R/iBA(RO) 


MOV 


RMBA(RO) ,R2 


MOV 


RMCS2(R0) ,-(SP) 


MOV 


R1.RMCS2(R0) 


MOV 


RMCS2(R0) .R2 


MOV 


(SP)*,RMCS2(R0) 


MOV 


Rl ,RMDB(RO) 


MOV 


RMD8(R0) ,R2 


MOV 


(SP)*,ERRVEC*2 


MOV 


(SP)*, ERRVEC 


BR 


3$ 


Lrr 




MOV 


{SP)*,ERRVEC+2 


MOV 


(SP)*. ERRVEC 


EMT 


110 


TSl 


a>»42 


8NE 


2$ 


JMP 


STARTl 


CLR 


$DEVM 


JMP 


$EOP 



•TEST 2 



TST2: 



0V737 000000 



001226 
001444 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNJ8US ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL 



BOX 



;;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC*2 ON STACK 



.•MOVE HI BYTE TO RMCS1 
;MOVE WORD COUNT REGISTER 

.-MOVE BUS ADDRESS REGISTER 

;;PUSH RMCS2(R0) ON STACK 
;MOVE CONTROL STATUS REGISTER 

;;POP STACK INTO RMCS2(R0) 
;MOVE DATA BUFFER 

;;POP STACK INTO ERRVEC ^2 
;;POP STACK INTO ERRVEC 
;N0 BUS TIMEOUT OCCURRED 

.•ADJUST STACK 

;;POP STACK INTO ERRVEC +2 
;;POP STACK INTO ERRVEC 

.•STAND ALONE MODE ? 
;N0.' ! 

.•YES-GO GET $8ASE 
.•FUDGE NO DRIVES IN MAP 
.•RETURN TO $EOP 



FORMAT ZEROS 



*STACK,SP 
SSASE.RO 
TSTQUE.RI 
*2,fTESTN 



;SE^UP 'PARAMETERS FOR GENERATING 
MOV iirO.RMOfO 

1$: 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI6US ADDRESS 

(Rl) = DEVICE BEING TESTED 

;?ET TEST NUMBER IN APT MAIl BOX 

DATA BUFFER 
18 BIT FORMAT 



fORMAT ZEROS 



Tsr 2 "lACRO V04.0U 
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5^ 010522 
58 010350 

39 010336 

40 010544 

41 010352 
42 
43 



01273P 
012757 
012737 
012737 
012737 



000000 001446 MOV #0..RHDC0 

COOOOO 001420 «0V #0-R«0A0 

177376 001414 MOV #-258..R«UC0 

101560 001416 MOV *8UFCWE.RM8A0 

000062 001412 MOV *WH.RMCS10 

;V£«^IFY THAT SECTOR IS NOT BAD 



CYLINDER 0 
TRACK = 0. SECTOR - 0 
2 ♦ 256 WORDS (2*S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 





010360 


004737 


053152 






JSR 


PC.8ADSCT 


.•CALL BAD SECTOR MODULE 




010364 


000405 








BR 


2$ 


;G0 TO 2$ IF NO ERROR 




010366 


104401 


063346 






TypE 


.SCTMSG 


;TyPE BAD SECTOR MESSAGE 




010372 


104000 








EMT 




; ERROR # DEFINED BY BADSCT SUBROUUNf 




010374 


000157 


011130 






JMP 


20$ 


;G0 TO 20$ IF ERROR 


44 


010400 








2$: 








45 


010400 


012737 


065000 


001174 




MOV 


•ZEROS. STMPO 


.-USE ALL ZEROS DATA PATTERN 


46 


010406 


012737 


000001 


001 1 76 




MOV 


•LST-iPl 




47 


010414 


004737 


035104 






JSR 


PC.GENBUF 


;60 GENERATE DATA BUFFER 


48 


010420 








3$: 









49 
50 
51 



CI 0420 
010424 



004737 
154150 



0321 76 



.-PREPARE DEVICE 
JSR 
.WORD 



FOR DATA TRANSFER 
PC.TSTPRP 
154150 



010426 
010430 
01043? 
010434 

52 010440 

S5 

54 

55 010440 

56 010446 

57 010452 

58 010456 

59 010462 

60 010466 

61 010472 
62 

63 010476 
010502 
010504 
010506 
010510 

64 010514 
65 

66 

67 010514 

68 010520 

69 010524 
70 

71 
'2 



000404 
000240 
104000 
U001 57 



012737 
012702 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000157 



004737 
004737 



011130 

000005 
001553 
000006 
000034 
000032 
000000 
000200 

036240 
011130 



035704 
036602 



4$: 



BR 
NOP 
EMT 
JMP 



4$ 



20$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE £ VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 20$ IF ERROR 



001412 



.■SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 



5$: 



MOV 

MOV 

M0V8 

M0V8 

M0V8 

Move 

M0V8 

JSR 

BR 

NOP 

EMT 

JMP 



ASEEK.GO.RMCSIO .-CHANGE COMMAND TO SEEK 



ftPUllHX.RZ 
#RMDA,(R2)* 
*RMDC.(R2)* 
*RM0F,(R2)+ 
*RMCS1,(R2)* 
*200.(R2)* 

PC .PUT 
5$ 



20$ 



.•WRITE REGISTER INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 20$ IF ERROR 



.•SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC.GETSTS ; SETUP FOR STATUS 

JSR PC.riMOUT .-WAIT FOR SEEK TO COMPLETE 

6$: 



0'0524 004737 035770 



;G0 READ SEEK STATUS 

JSR PC. GET 



;G0 READ REGISTER(S) WITH GET SUBROUTINE 



FO»»HAT ZEROS 



010530 
010532 
010534 
010536 
73 010542 

76 010542 
0^0546 
010550 
010552 
010554 
010556 

77 010562 
78 

80 010562 

81 010570 

82 010574 
8? CI 0600 

84 010604 

85 010610 
86 

87 010614 
010620 
010622 
010624 
010626 

88 010632 
89 

90 

9 010632 

92 

95 010636 
010642 
010644 
010646 
010650 

94 010654 

95 

96 

97 C10654 
010660 
010662 
010664 
010666 
010670 
' 10674 
> 0674 
: 0700 
.-.0702 
010704 
010706 
010710 
:00 010714 
101 010714 
010720 



000404 

000240 
104000 
000157 



004757 
000405 
000240 
104000 
004756 
000137 



012737 
012702 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



004757 

004737 
0U0404 
000240 
104000 
0001 37 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 



Tsr 2 

011150 
044104 

011130 

000063 
001556 
000002 
0C0004 
000000 
000200 

036240 

0M130 

036602 
035770 

011130 

036766 

01 1 1 50 
051502 

011130 
037620 
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BR 
NOP 
EMT 
JMP 



7$ 



20$ 



GO TO 7% If NO EKROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUeRO-jUNF 

GO TO 20S If ERROR 



; VERIFY THE RESULTS OF THE SEEK COWAND 



8$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.SEKSTS 
8$ 



pc.a<sp)* 

20S 



GO VERIFY RESULTS OF SEEK OPERATION 
GO TO 8S IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY SEKSTS SUBROUTINE 
60 BACK FOR MORE ERROR CHECKS 
GO TO 20$ IF ERROR 



00^412 



.•SETUP AND tXECUTE WRITE HEADER AND DATA COMMAND 



9$: 



MOV 
MOV 

M0V8 
M0V8 
M0V8 

Move 

JSR 

BR 

NOP 

EMT 

JMP 



*wh:go,rmcsio 

*PUTINX+3,12 
*RMUC.(R2)+ 
<rRM8A.(R2)* 
ArRMCS1,(R2) + 
*200.(R2)+ 

PC, PUT 
9$ 



20S 



.-WRITE HEADER AND DATA 
.-EXTEND REGISTER INDEX TABLE 



GO WRITE R^GISTER(S) WITH PUT SUBROUTINE 

GO "0 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SVBROUTINE 

GO TO 20$ IF ERROR 



;WAIT FOR WRITE COMMAWO TO COMPLETE AND READ STATUS 

JSR PC.TIMOUT ;WAIT FOR COMMAND TO COMPLETE 



'0$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
10$ 



20$ 



;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 10$ IF NO ERROR 

.RETURN HERE IF ERROR 

.•ERROR * DEFINED BY GET SUBROUTINE 

;G0 TO 20$ IF ERROR 



.-VERIFY RESULTS OF WRITE COMMAND 
JSR PC.PRIERR 
11$ 



11$: 



12$: 



BR 
HOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 
BR 



pc,a(sp)* 

20$ 

PC.DTASTS 
12$ 



pc.a(sp)+ 

20$ 

PC.SECERR 
13$ 



GO CHECK FOR PRIMARY ERRORS 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

60 TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 13$ IF NO ERROR 



•? fOWAT ZEROS 
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SCO 0074 



102 
105 
104 
105 
106 
1C7 
108 



109 

no 
Ml 

V2 
113 
IK 



115 
116 
117 
118 



119 
120 



^21 
1?2 



^?3 
124 
125 
126 



010722 
010724 
010726 
010750 
010734 



010754 
010742 

010750 
010754 
010756 
010760 
010762 
010766 



010772 
010776 
011000 
011002 
011004 
011010 



011010 
011014 
011016 
011020 
011022 
011024 
011030 
011030 
011034 
011036 
011040 
011042 
011044 
C11050 
011050 
011054 
011056 
011060 
011062 
011064 
011070 



011070 
011074 
011076 

oinoo 

011102 
011104 



000240 
104000 
004756 
000157 



011150 



13$: 



NOP 
EMT 
jSR 
JMP 



pc.a(sp)» 

20S 



«ETURN HERE If ERROft 

ERROR » DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 



012737 000073 
012737 102564 



;READ HEADER AND DATA FOR SECTOR JUST WRITTEN 
001412 MOV ffRH.GO.RMCSIO ;READ HEADER £ DATA COMMAND 

00U16 MOV xreuFTWO.RMBAO ;CHANGE BUS ADDRESS 



004757 
000404 
000240 
104000 
000157 



036240 



011150 



010766 004757 056602 



004757 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000157 

004757 
000405 
000240 
104000 
004756 
000157 

004757 
000405 
000240 
104000 
004736 
000137 



004757 
101560 
102564 
000402 
000240 
104000 



055770 
011130 
056766 

011130 
051502 

011130 
037620 

01 r 30 
055542 



14$: 



JSR 

BR 

NOP 

EMT 

Jf*P 



PC. PUT 
US 



20f 



;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 14$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.ERROR ft DEFINED BY PUT SUBROUTINE 

;G0 TO 20$ IF ERROR 



;WA1T FOR READ TO COMPLETE AND GET STATUS 

JSR PCTIMOUT .-WAIT FOR READ TO COMPLETE 



15$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, GET 
15$ 



20$ 



;G0 READ REGISTER(S) WITH GET S'^ROUTINE 

;G0 TO 15$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.ERROR * DEFINED BY GET SUBROUTINE 

;G0 TO 20$ IF ERROR 



.•VERIFY THE 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 



RESULTS OF READ OPERATION 



16$: 



17$: 



18$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



VERIFY DATA 
JSR 
.WORD 
.WORD 
BR 
NOP 
EMT 



PC.PRIERR 
16$ 



pc.acsp)* 

20$ 

PC.DTASTS 
17$ 



pc.acsp)* 

20$ 

PC. SECERR 
18$ 



pc.a(SP)> 

20$ 



PC . CMPBUF 
BUFONE 
BUF TWO 
19$ 



60 CHECK FOR PRIMARY ERRORS 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 



GO COMPARE WRITE, READ DATA BUFFERS 

STARTING ADDRESS OF WRITE BUFFER 

STARTING ADDRESS Of READ BUFFER 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPBUF SUBROUTINE 



ZRMNBO 

T? 

127 
128 
129 
130 
131 
132 
133 
13^ 
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SfO 007S 



011106 
011106 
011114 
011116 
011124 
011130 



032737 
001005 
012737 
000137 



CI 0000 001444 



010000 
010322 



001444 



19S: 



20$: 



BIT #F«T16.RTOfO 

BNE 20S 

MOV 4rFMT16,RM0F0 

JMP IS 



TEST 16 BIT MODE VET ? 

res 

SET 16 BIT MODE AND 
TEST AGAIN. 



011130 
01 1 1 30 
011132 
011134 
011140 
011144 
011150 



•TEST 3 



ZbRO FILL TEST 



000004 
000240 
012706 
013700 
013701 
012737 



001100 
001276 
001466 
00000^ 



001226 



135 










136 










137 


C11156 


012737 


OGOOOO 


001446 


138 


011164 


012737 


000000 


001420 


139 


on 1 72 


012737 


010000 


001444 


140 


011200 


012737 


177376 


001414 


141 


011206 


012757 


101360 


001416 


142 


011214 


012737 


000062 


001412 


143 










144 













011222 


004737 


035152 






JSR 




011226 


000405 








BR 




011230 


104401 


063346 






T^PE 




011234 


104000 








EMT 




011256 


000137 


011764 






JMP 


145 


011242 








1$: 




146 


011242 


012737 


065000 


001174 




MOV 


147 


011250 


012737 


000001 


001176 




MOV 


148 


011256 


004757 


055104 






JSR 


',49 


011262 








2$: 




150 














151 










.•PREPARE DEVICE 


152 


011262 
011266 


004737 
154130 


052176 






JSR 
.WORD 



TST3: 

SCOPE .-SCOPE CALL 

NOP .-START OF TEST 

MOV ffSTACK.SP .-INITIALIZE STACK POINTER 

MOV $8ASE,R0 ;R0 - UNI8US ADDRESS 

MOV TSTQUE.Rl .-(RD = DEVICE BEING TESTED 

MOV *5.$TESTN ;;SET TEST NUMBER IN APT MAIL 

;SETJP PARAMETERS FOR GENERATING DATA BUFFER 

MOV #0.RMDCO " 

MOV tfO.RMDAO 

MOV #FMT16.RM0F0 

MOV /(r-258..RMWCO 

MOV *8UFONE.RMBA0 

MOV tfWH.RMCSlO 

.-VERIFY THAT SECTOR IS NOT BAD 
PC.8ADSCT 
1$ 

.SCTMSG 
18S 



BOX 



#ZEROS,STMPO 

*1.$TMP1 

PC.GEN8UF 



.-CYLINDER = 0 

.-TRACK = 0. SECTOR = 0 

;16 BIT FORMAT 

;2 ♦ 256 WORDS (2*S COMP) 

.-DATA BUFFER ADDRESS 

; WRITE HEADER AND DATA 



;CALL BAD SECTOR MODULE 
;G0 TO 1$ IF NO ERROR 
.-TYPE BAD SECTOR MESSAGE 
.•ERROR » DEFINED BY BADSCT SUBROUTINE 
;G0 TO 18$ IF ERROR 

.•USE ALL ZEROS DATA PATTERN 

;G0 GENERATE DATA BUFFER 



153 
154 
155 
156 
157 



011270 
011272 
011274 
011276 
011302 



011302 
011310 



000404 
000240 
104000 
000157 



012737 
012702 



01 1 764 



000005 
001555 



5$: 



BR 

NOP 
EMT 
JMP 



FOR DATA TRANSFER 

PC.TSTPRP ;PREPARE DEVICE FOR TfST 

154130 .•TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALIBRATION 
3$ -GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 
ERROR » DEFINED BY TSTPRP SUBROUTINE 
18$ ;G0 TO 18$ IF ERROR 



0014^2 



.-SETUP PARAMETERS AND EXEC 
MOV *SEEK.GO.R/ 
MOV #PUTINX,R2 



^E SEEK TO GET DRIVE ON CYLINDER 
S10 .-CHANGE COMMAND TO SEEK 

;WRITE REGISTER INDEX TABLE 



158 
159 
160 
161 
162 
163 
164 



1o5 
166 
167 
168 
169 
170 
171 
172 
173 



174 
175 
176 
177 



178 
179 
180 
^81 
182 
183 
184 
185 
186 
187 
188 
189 



190 
191 
192 
193 
194 
195 



ftM05/?/2 fCTNL 
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TST 2 inACRO V04.0C 4-APR-81 11:43:3? 



L 

PAG€ 



6 

13-5 



011314 
011320 
011324 
011330 
011354 

011340 
011344 
011346 
011350 
011352 
011356 



011356 
011362 
011366 



C1 1366 
011372 
011374 
011376 
011400 
011404 



011404 
011410 
011412 
011414 
011416 
011420 
011424 



011424 
011432 
011440 
011444 
011450 
011454 
011460 

011464 
011470 
011472 
011474 
011476 
011502 



112722 
112722 

112722 
112722 

004737 
000404 
000240 
104000 
000137 



004737 
004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 



012737 
012737 
012702 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



011502 004737 



011506 
011512 
011514 



004737 
000404 
000240 



000006 
000034 
000032 
000000 
000200 

036240 



01 1 764 



035704 
036602 



035770 



01 1 764 



044104 



01 1 764 



1 77776 
000063 
001556 
000002 
000004 
000000 
000200 

036240 



011764 

036602 
055770 



4$: 



M0V8 
M0V8 
M0V8 
M0V8 
M0V8 

JSR 

BR 

NOP 

EMT 

JMP 



#RWDA.(R2)* 
#RMDC.(R2)* 
#R«0F.(R2)* 
#RMCS1 .(R2)* 
*200,(R2)* 

PC. PUT 
4$ 



18$ 



GO WRJTE REGISTER(S) WJTH PUT SueROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HEAE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

60 TO 18J IF ERROR 



.-SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO ''OMPLETE 
JSR PC.GETSTS .-SETUP FOR STATUS 

JSR PC.TJMOUT ;WA1T FOR SEEK TO COMPLETE 



5S: 

;G0 READ SEEK STATUS 



6S: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
6$ 



18$ 



GO READ REGJSTER(S) WJTH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 



.-VERIFY THE RESULTS OF THE SEEK COMMAND 



7%: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.SEKSTS 
7$ 



pc.a(SP)+ 

18$ 



60 VERIFY RESULTS OF SEEK OPERATION 
GO TO 7$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY SEKSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 18$ IF ERROR 



001414 
001412 



; SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 



8$: 



MOV 

MOV 

MOV 

MOVB 

M0V8 

MOVB 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



/)r-2. RMWCO 
/(TWH.'GO.RMCSIO 
#PUTINX*3.R2 
#RMWC.(R2)+ 
#RM8A,(R2)* 
#RMCS1 .(R2)+ 
#200.(R2)+ 

PC. PUT 
8$ 



18$ 



FORMAT PARTIAL SECTOR 
WRITE HEADER AND DATA 
EXTEND REGISTER INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PUT SUBROUTINE 

60 TO 18$ IF ERROR 



;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

JSR PC.TIMOUT .-WAIT FOR COMMAND TO COMPLETE 



JSR 

BR 

NOP 



PC. GET 
9$ 



GO READ R£GISTER(S) WITH GET SUBROUTINE 
GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 



'96 
197 
198 
199 



200 
201 



?02 
203 



20A 
205 
206 
207 
208 
209 
21U 
211 



212 
213 
2U 
215 
216 
217 



218 
219 
220 
221 



222 
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SEO 0077 



011516 
011520 
011524 



011524 
01 1 550 
011532 
011534 
011536 
011540 
011544 
011544 
011550 
011552 
011554 
011556 
011560 
01 1 564 
011564 
011570 
011572 
011574 
01 1 576 
011600 
011604 



011604 
011612 
011620 

011626 
011632 
011634 
011636 
011640 
011644 



104000 
000137 



004757 
000405 
000240 
104000 
004736 
000137 

004757 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



012/37 
012737 
012737 

004737 
000404 
000240 
104000 
000137 



011644 004737 



011650 
011654 
011656 
011660 
011662 
011666 



011666 
011672 
01 1674 
011676 
011700 
011702 
011706 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 



CI 1764 
036766 

011764 
051502 

01 1 764 
037620 

01 1 764 



1 77376 
000073 
102364 

036240 



011764 

036602 
035770 

011764 

036766 

011764 



9$: 

.-VERIFY 



10$: 



11$: 



12$: 



EMT 
JMP 



RESULTS 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



18$ 



.•ERROR # DEFINED BY GET SUBROUTINE 
.•GO TO 18$ IF ERROR 



OF WRITE COMMAND 
PC.PRIERR 
10$ 



pc.a(SP)* 

18$ 

PC.DTASTS 
11$ 



pc.a(SP)* 

18$ 

PC.SECERR 
12$ 



pc,a(sp>* 

18$ 



GO CHECK FOR PRIMARY ERRORS 

GO TO *0$ If NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRfERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

60 TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 



001414 
001412 
001416 



;READ HEADER AND DATA FOR SECTOR JUST WRITTEN 



13$: 



MOV 
MOV 
MOV 

JSR 

BR 

NOP 

EMT 

JMP 



*-258.,RMWC0 

#RH.'G0,RMCS10 
*8UFTW0,RMBA0 

PC. PUT 
13$ 



18$ 



2 * 256 WORDS (2'S COMP) 
READ HEADEF? £ DATA COMMAND 
CHANGE bIJS ADDRFSS 

GO WRITE Hti3lSTER(S) WITH PUT SUBROUTINE 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

60 TO 18$ IF ERROR 



;WAIT FOR READ TO CCJMPLETE AND GET STATUS 

JSR PC.TIMOUT .-WAIT FOR READ TO COMPLETE 



14$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, GET 
14$ 



18$ 



;60 READ REGISTER(S) WITH GET SUbftOUTINE 

;G0 TO 14$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR (t DEFINED BY GET SUBROUTINE 

;60 TO 18$ IF ERROR 



.•VERIFY THE RESULTS OF READ OPERATION 



15$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.PRIERR 
15$ 



pc.acsp)* 

18$ 



60 CHECK FOR PRIMARY ERRORS 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PRIERR SUBROUTINE 
60 BACK FOR MORE ERROR CHECKS 
GO TO 18$ IF ERROR 
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SEO 0078 



223 



224 
22S 



226 

227 
228 
229 



230 
231 
232 



011706 
011712 
011714 
011716 
011720 
011722 
011726 
011726 
011732 
011734 
011736 
011740 
01 1 742 
011746 



01 1 746 
011752 
011754 
011756 
011760 
01 1 762 
011764 



233 
234 
235 
236 
237 
238 
239 
240 
241 
242 



243 
244 
245 
246 
247 
248 
249 
250 



01 1 764 
011764 
01 1 766 
011770 
011774 
012000 
012004 



012012 
012020 
012026 
012034 
012042 
012050 



004737 
U00405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



004737 
101360 
102364 
000402 
000240 
104000 



000004 

000240 
012706 
013700 
013701 
012737 



05150? 

01 1 764 
03762C 

011764 
055342 



16$: 



17$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



.■VERIFY DATA 
JSR 
.WORD 
.WORD 
BR 
NOP 
EMT 

18$: 



PC.DTASTS 
16$ 



pc,a(SP)* 

18$ 

PC.SECERR 
17$ 



PC,a(SP)+ 
18$ 



PC.CMPBUF 
BUFONE 
BUF TWO 
18$ 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERKOR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 



GO COMPARE WRITE, READ DATA BUFFERS 

STARTING ADDRESS OF WRITE BUFFER 

STARTING ADDRESS OF READ BUFFER 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # UfcFINED BY CMP8UF SUBROUTINE 



•**•»»•*♦♦***♦»*♦****♦♦♦*♦♦»♦•♦****♦*******♦*****»♦********•**•* 

*TEST 4 FORMAT CHECK ZEROS 

•A************************************************************** 

TST4: 

SCOPE CALL 



001100 
001276 
001466 
000004 



001226 



SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 



*STACK,SP 
$8ASE,«0 
TSTQUE.R1 
*4,$TESTN 



START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



.•SETUP PARAMETERS FOR GENERATING DATA BUFFER 



012737 


000000 


001446 


MOV 


/i'O.RMDCO 


.•CYLINDER - 0 


012737 


000000 


001420 


MOV 


*0,RMDAO 


; TRACK = 0. SECTOR - 0 


012737 


010000 


001444 


MOV 


*FMT16.RM0F0 


;16 BIT FORMAT 


012737 


177376 


001414 


MOV 


*-258..RMWCO 


;2 ♦ 256 WORDS (2*S COMP) 


012737 


101360 


001416 


MOV 


*8UF0NE,RM8A0 


.•DATA BUFFER ADDRESS 


012737 


000062 


001412 


MOV 


/(fWH.RMCSlO 


.•WRITE HEADER AND DATA 



.•VERIFY THAT SECTOR IS NOT BAD 



012056 


004737 


033152 






JSR 


PCBADSCT 


012062 
012064 


000405 








BR 


1$ 


104401 


063346 






TYPE 


.SCTMSG 


012070 


104000 








EMT 




012072 


000137 


012554 






JMP 


18$ 


012076 








1$: 






012076 


012737 


065000 


C01 1 74 




MOV 


*ZEROS.$TMPO 


012104 


012737 


000001 


001 1 76 




MOV 




012112 


004737 


035104 






JSR 


PC.GENBUF 


012116 








2$: 







;CALL BAD SECTOR MODULE 

;G0 TO 1$ IF NO ERROR 

;TYPE BAD SECTOR MESSAGE 

; ERROR # DEFINED BY BADSCT SUBROUTINE 

;60 TO 18$ IF ERROR 

;USE ALL ZEROS DATA PATTERN 

;G0 GENERATE DATA BUFFER 



012116 004737 032176 



.•PREPARE DEVKE FOR DATA TRANSFER 

JSR PC.TSTPRP ;PREPARE DEVICE FOR TEST 
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SCO 007^- 



012124 
012126 
012130 
012132 

251 012136 

252 

253 

254 012136 

255 012144 

256 012150 

257 012154 

258 CI 2160 

259 012164 

260 012170 
261 

262 012174 
012200 
012202 
012204 
012206 

263 012212 
264 

265 

266 012212 

267 012216 

268 012222 
269 

270 

271 012222 
012226 
012230 
012232 
012234 

272 012240 
?73 

274 

275 012240 
012244 
012246 
012250 
012252 
012254 

276 012260 
277 

278 

279 012260 

280 012266 

281 Q}2272 
262 0122^6 



000404 
000240 
104000 
000137 



012737 
012702 
■\\2722 
}^2722 
112722 
112722 

yy2722 

004737 
C00404 
000240 
104000 
000137 



004737 
004737 



004737 
000404 
000240 
104000 
000157 



004737 
000405 
000240 
104000 
004736 
000137 



012737 
012702 
112722 
U2722 



.WCSD 154130 



012554 



000005 001412 

001553 

000006 

000034 

OC0032 

000000 

000200 

036240 



012554 



035704 
036602 



035770 
012554 
044104 

012554 



000063 001412 
001556 
000002 
000004 



3$: 



BR 

NOP 
EWT 
JMP 



3S 



18t 



TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE ft VERIFY DEVICE AVAIlABlE 

CLEAR CONTROLLER ft SELECT DEVICE 

VERIFY CONTRaLER CLEAR OPERATIOM 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF '•SKI" OR •T>IP*' IS SET 

VERIFf REiALiaiATION 

GO TC 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY ^stprp suBROLiTINE 

GO TO 18$ IF ERROR 



.•SETUP PARAMETERS AND EXECUTE SEEK "O GET DRIVE ON CYLINDER 



4$: 



MOV 
»10V 
'•10V8 
M0V8 
MOVB 
M0V8 
M0V8 

JSR 

BR 

NOP 

EMT 

JMP 



#SEEK!GO.RMCS10 .'CHANGE COMMAND TO SEEK 
#PUTINX,R2 .-WRITE REGISTER INDEX TABLE 

*RMDA.(R2)* 
#RMDC.(R2)+ 
#R«0F.<R2)* 
#RMCS1.(R2)* 
#200. (R2)* 



PC.PlJT 
4$ 



18$ 



GO WRITE REGISTER(S) WHh PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF fRROR 

ERROR * DEFINED BY PUT SlBRa-TINE 

GO TO 18$ IF EPROR 



.•SETUP FOR RFADING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC.GETSTS ; SETUP FOR STATUS 

JSR PC.TIMOUT ;WAIT FOR SEEK TO COMPLETE 

5J: 



;G0 READ SEEK STATUS 

JSR PC. GET 
BR 6$ 
NOP 
EMT 

JMP 18$ 

6$: 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED B>' GET SUBROUTINE 

GO TO 18$ IF ERROR 



.-VERIFY THE RESULTS OF THE SEEK COMMAND 



7$: 



JSR 
BR 
NOP 
EMT 
JSR 
JM" 



PC.SEKSTS 
7$ 



PC.a(SP)* 
18$ 



GO VERIFY RESULTS OF SEEK OPERATION 
GO TO 7$ IF NO cPROR 
RETURN HERE IF ERROR 
ERROR n DEFINED BY SEKSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 18$ IF ERROR 



; SETUP AND EXECUTE WRITE HEADER AND DA^A COMMAND 

MOV f JH.'GO.RMCSIO ;WR1TE HEADER AND DATA 
MOV *PUTINX+3.R2 ;EXTEND REGISTER INDEX TABLE 
M0V8 *RMWC.(R2)* 
MOVe #RMBA.(R2)* 
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?83 012302 
28<. 012306 
?85 

286 012312 
012316 
012320 
012322 
012324 

287 012530 
288 

289 

290 012330 
291 

292 012334 
012340 
012342 
012344 
012346 

293 012352 
294 

295 

296 012352 
0123S6 
012360 
012362 
0^2364 
012366 

297 012372 

298 012372 
012376 
012400 
012402 
012404 
012406 

299 012412 

300 012412 
012416 
012420 
012422 
012424 
012426 

301 CI 2432 
302 

303 

304 012432 
305 

306 012440 
012444 
CI 2446 
012450 
012452 

307 012456 
308 

509 

310 012456 
311 

312 01246^ 



112722 
112722 

004737 
000404 
000240 
104000 
000137 



004737 

004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



012737 

004737 
000404 
000240 
104000 
000137 



004737 
004737 



000000 
C00200 

036240 
012554 

036602 
035770 

012554 

036766 

012554 
051502 

012554 
037620 

012554 

000053 
036240 

012554 

036602 
035770 



SEO OOP 



8S: 



MOVB 
MOVB 

jSR 

BR 

NOP 

EMT 

JW 



»RMCS1,(R2)* 
#200.(R2>» 

PC. POT 
8$ 



18S 



GO WRITE REGISTERvS; WITH PUT SUBROUTI'^E 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BV PUT SUBROUTINf 

GO TO 18S IF ERROR 



;UAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

JSR PC.TIMOUT ;WAIT FOR COPflAND TO COMPlETE 



9$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
9$ 



18$ 



;G0 READ REGISTER(S) WITH GET SlBROUTINE 

;G0 TO 9$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.ERROR # DEFINED BV GET SUBROUTINE 

;G0 TO 18S IF ERROR 



.-VERIFY RESULTS 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 



10$: 



11$; 



12$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



OF WRITE COMMAND 
PC.PRIERR 
-0$ 



pc.a(sp)* 

18$ 

PC.DTASTS 
11$ 



pc.a(sp)* 

18$ 

PC.SECERR 
12$ 



pc.acsp)* 

18$ 



GO CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR a DEFINED BY PRIERR SLIBRWJTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

60 TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR M DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 



00H12 



.•WRITE CHECK HEADER AND DATA FOR SECTOR JUST WRITTEN 



13$: 



MOV 

JSR 

BR 

NOP 

EMT 

JMP 



*WCH.'G0,RMCS10 .'WRITE CHECK COMMAND 



PC. PUT 
13$ 



18$ 



;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 13$ IF NO ERROR 

.•RETURN HERE IF ERROR 

;FPPOR # DEFINED BY PUT SUBROUTINE 

;G0 TO 18$ IF ERROR 



.-WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 

JSR PC.TIMOUT ;WAIT FOR READ TO COMPLETE 



JSR 



PC.GET 



;G0 RFAD REGISTER<S) Ul^H GE f SUBROUTINE 



ZS«1^eO RM05/3/2 FCTNL TST 
»ORHAT CHECK ZEROS 



P1ACR0 VM.OO 



D 7 

4-APR-81 V:<,3:3?PAGE 13-10 



313 
3U 
315 
316 



317 
318 



319 
320 



321 
322 
323 
324 
325 



012466 
012470 
012472 
012474 
012500 



012500 
012504 
012506 
012510 
0125^2 
0125U 
012520 
012520 
012524 
012526 
012530 
012532 
012534 
012540 
012540 
012544 
012546 
012550 
012552 
012554 

012554 



012554 
012554 
012556 
012560 
012564 
012570 
012574 

326 
327 

328 012602 

329 012610 

330 012616 

331 012624 

332 012632 

333 012640 
334 

335 

012646 
012652 
012654 
012660 
012662 
356 012666 
337 012666 



000404 
000240 
1C4000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000403 
000240 
104000 
004736 



000004 
000240 
012706 
013700 
013701 
012737 



012737 
012737 
012737 
012737 
012737 
012737 



004737 
000405 
104401 
104000 
000137 

012737 



012554 



036766 



012554 
051502 



012554 
037620 



001100 
001276 
001466 
000005 



000000 
000000 
010000 
177376 
101360 
000062 



033152 
065346 
013514 
065000 



14$: 



BR 

NOP 

E.1T 



I4t 

IBS 



GO TO 14$ IF NO ERRO*? 

RETURN HERE IF ERROR 

ERROR « DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 



.-VERIFY THE RESULTS OF WRITE CHECK OPERATION 



15$: 



16$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 
BR 
NOP 
EMT 
JSR 



PC. PR I ERR 
15$ 



pcacsp)* 

18$ 

PC.DTASTS 
16$ 



pc.a(SP)* 
18$ 

PC.SECERR 
17$ 



PC.a(SP)* 



GO CHECK FOR PRIMARY ERRORS 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK ^OR MORE ERROR CHECKS 
GO TO 18$ IF ERROR 

GO VERIFY RESULTS OF DA A TRANSFER 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SU6R0UMNE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



17$: 
18$: 

•»*»»»••*»»♦*•••*»*••»•**•*»•»*•*»***•*»»**•»•***»••»»*»»*•**•*» 

West 5 format check zeros w/ wce error 

•••*••*•**•*•»*•****•••*•***••••*•**•*•»•*»**••••**•••*♦•»»»•*♦» 

tST5: 

SCOPE CALL 



001226 



001446 
001420 
001444 
001414 
001416 
001412 



SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 



#STACK,SP 
$8ASE,R0 
TSTQUE,R1 
*5.$TESTN 



START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



.-SETUP PARAMETERS FOR GENERATING DATA BUFFER 



001 1 74 



MOV *0.RMDCO 

MOV *0.RMDAO 

MOV *FMT16.RMOF0 

MOV *-258..RMWCO 

MOV *8UF0NE.RMBA0 

MOV *UH,RMCS10 

.•VERIFY THAT SECTOR IS NOT BAD 

JSR PC.8ADSCT 

BR 1$ 

TYPE .SCTMSG 
EMT 

JMP 20$ 

1$: 

MOV #ZEROS,$TMP0 



CYLINDER = 0 
TRACK = 0. SECTOR = 0 
16 BIT FORMAT 
2 + 256 WORDS (2'S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 



.-CALL BAD SECTOR MODULE 

;G0 TO 1$ IF NO ERROR 

.-TYPE BAD SECTOR MESSAGE 

.-ERROR * DEFINED BY BADSC^ SUBROUTINE 

;G0 TO 20$ IF ERROR 

;USE ALL ONES DATA PATTERN 



rZRMNBO 

!38 
539 

5^3 



3A4 
345 
3A6 
347 
348 
349 
350 
351 
352 
353 
354 
355 



356 
357 
558 
359 
360 
361 
362 
363 
364 



365 
366 
367 
368 



369 
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SEO ooe. 



012674 
012702 
0127C6 



012706 
012'12 



012714 
012716 
012720 
012722 
012726 



013012 
013016 
013020 
01 3022 
013024 
013030 



013030 
013034 
01 3036 
013040 
013042 
013044 
01 3050 



CI 2737 
004737 



004737 
154130 



000001 
C35104 



0321 76 



001i:'6 



2$: 



liOV 
JSR 



*1.$TliP1 
PCGENBUF 



;G0 GENERATE OAT A BUFFER 



; PREPARE DEVICE FOR DATA TRANSFER 



JSR 
.WORD 



PC.TSTPRP 
154130 



000404 
000240 
104000 
0001 37 



0^3514 



3$: 



BR 
NOP 
EMT 
JMP 



3$ 



20$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE t VERIFY DEVICE AVAkASLE 
CLEAR CONTROLLER t SEI Ed DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF •'SKI" OR "PIP" IS SET 
VERIFY RECAL I8RATI0N 
GO TO 3$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
GO TO 20$ IF ERROR 



012726 


012737 


000005 001412 


MOV 


012734 


012702 


001553 


MOV 


012740 


112722 


000006 


M0V8 


012744 


112722 


000034 


M0V6 


012750 


112722 


000032 


M0V8 


012754 


112722 


000000 


M0V8 


012760 


112722 


000200 


M0V8 


012764 


004737 


036240 


JSR 


012770 


000404 




BR 


012772 


000240 




NOP 


012774 


104000 




EMT 


012776 


000137 


013514 


JMP 


01 3002 






4$: 








.-SETUP FOR Rl 


013002 


004737 


035704 


JSR 


013006 


004737 


036602^ 


JSR 


013012 






5$: 



.-SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
*SEEK!G0.RMCS10 ;LHANGE COMMAND TO SEEK 



#PUTINX.R2 
XfRMDA.(R2)* 
#RMDC,(R2)* 
*RM0F.(R2)* 
*RMCS1.(R2)* 
»200,(R2)* 

PC. PUT 
4$ 



20$ 



PCGETSTS 
PC.TIMOUT 



.-WRITE REGISTER INDEX TABLE 



004737 035770 
000404 
000240 
104000 

000137 013514 



;G0 READ SEEK STATUS 

JSR PC. GET 
BR 6$ 
NOP 
[MT 

JMP 20$ 

6$: 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROft 

ERROR * DEFINED Bv PUT SUBROUTINE 

GO TO 20$ IF ERROR 



.-SETUP FOR STATUS 

.-WAIT FOR SEEK TO COMPLETE 



GO READ REGISTER (S) WITH GET SUBROUTINE 

60 TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 20$ IF ERROR 



004737 
000405 
000240 
104000 
004736 
000137 



044104 



013514 



VERIFY THE RESULTS OF THE SEEK COMMAND 



JSR 
BR 
NOP 
EMT 

JSR 
JMP 



PC.SEKSTS 
7$ 



pc,a(SP)+ 
20$ 



GO VERIFY RESULTS OF SEEK OPERATION 
GO TO 7$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY SEKSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 20$ IF ERROR 



570 
371 
^72 
373 
37A 
375 
376 
577 
378 
379 



580 
381 
382 
583 
384 
385 



586 
387 
388 
389 



390 
391 



39? 
393 



594 
395 
396 
397 
398 
399 
400 

401 
40? 
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SfO 008' 



013050 
013056 
013062 
013066 
013072 
01 3076 

013102 
013106 
013110 
013112 
013114 
013120 



CI 3124 
013130 
013132 
013134 
013136 
013142 



013142 
013146 
013150 
013152 
013154 
013156 
013162 
013162 
013166 
013170 
013172 
013174 
013176 
013202 
013202 
013206 
013210 
013212 
013214 
013216 
013222 



0^2737 
012702 
112722 
112722 
112722 
^^2722 

004737 
000404 
000240 
104000 
000137 



013120 004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 

000405* 

000240 

104000 

004736 

000137 

004737 
000405 
0002^0 
104000 
004736 
000137 



000063 
001556 
000002 
000004 
000000 
000200 

036240 



013514 

036602 
035770 

013514 

036766 

0135U 
051502 

013514 
037620 

013514 



013222 ^05137 102362 



013226 012737 



013234 
01 3240 



004737 
000404 



000053 
036240 



001412 



; SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 



8$: 
.•WAIT 



MOV 
MOV 

Move 
Move 
Move 
Move 

JSR 

BR 

NOP 

EMT 

JMP 



*WH!G0.RMCS10 
#PUTINX*3.R2 
#RMWC.(R2)* 
*RMBA.(R2)* 
*RMCS1,(R2)* 
#200. (R2)* 

PC.PUT 
8$ 



9$: 



FOR WRITE 

JSR 

JSR 

BR 

NOP 

EMT 

JMP 



20$ 



COMMAND TO 
PC.TJMOUT 

PC, GET 
9$ 



20S 



10$: 



11$: 



12$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



.•WRITE HEADER AND DATA 
.•EXTEND REGISTER INDEX TABLE 



GO WRITE REGISTERCS) WITH PUT SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SOBROUTINE 

GO TO 20$ IF ERROR 



COMPLETE AND READ STATUS 

;WAIT FOR COMMAND TO COMPLETE 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 9$ IF NO ERROR 

RPTURN HERE IF ERROR 

ERKOR It DEFINED BY GET SUBROUTINE 

60 TO 20$ IF ERROR 



.-VERIFY RESULTS 
jSR 
BR 
NOP 
EMT 
JSR 
JMP 



OF WRITE COMMAND 
PC.PRIERR 
10$ 



PC.a(SP)*- 
20$ 

PC.DTASTS 
11$ 



PCSCSP)* 
20$ 

PC.SECERR 
12$ 



pc.a(sp)* 

?0$ 



.•ALTER DATA BUFrER 

COM BUF TWO-2 



GO CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY SECERR SUBRO-JTINE 

GO BACK FOR MORE ERROR CHECKS 

60 TO 20$ IF ERROR 



.•COMPLEMENT LAST DA^A WORD 



00U12 



.-SETUP AND WRITE CHECK HEADER AND DATA COMMAND 

MOV *WCH.G0.RMCS10 .-WRITE CHECK COMMAND 



JSP 
BR 



PC.PUT 
13$ 



;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
;G0 rO 13$ IF NO ERROR 



7t«»««0 FCTNL TST 2 »WC«0 VOA 
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403 
40A 
405 
406 
407 
408 



409 
410 
411 
412 



413 
414 
415 
416 
4-7 
418 
419 



420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
4 56 
457 



4 58 



013242 
01 32'.4 
013246 
013252 



000240 
104000 
000157 



013252 004737 



013256 
013262 
01 3264 
013266 
013270 
013274 



01 5274 
013300 
01 5502 
CI 5304 
015506 
013310 
013314 



013314 
013322 

013324 
013550 
015552 
015534 
013336 
015340 

013344 
015552 
01 5360 
013366 
013370 
013372 



015572 
01 5400 
01 5406 



015414 
015422 

015430 
013434 
013436 
013440 
01 3442 
013446 



004737 
000404 
000240 
104000 
000137 



004 737 
000405 
000240 
104000 
004736 
000137 



032737 
001023 

004737 
000405 
000240 
104000 
004736 
000137 

015757 
052737 
013757 
104337 
000451 



0V737 
013757 
162''57 



112757 
112757 

004757 
000404 
000240 
104000 
000157 
015737 



013514 

056602 
055770 

013514 

036^66 

013514 

040000 

051502 

013514 

001546 
040000 
001346 



102562 
001542 
000002 



000022 
000200 

055770 



013514 
001 360 



13$: 



NOP 
EMT 
JMP 



20$ 



RETURN HERE IF ERROR 

ERROR # DEFINED BY F^UT SUBROUTiNf 

GO TO 20$ IF ERROR 



;WAIT FOR WRITE CHECK COMMAND TO COMPLETE AND READ STATUS 

jSR PC.TIMOUT ;WAIT FOR COMMMAND TO COMPLETE 



14$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
14$ 



20$ 



.•CHECK FOR PRIMARY ERRORS 



1j$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PCPRIERR 
15$ 



PC,a(SP)* 
20$ 



;G0 READ REGISTER(S) WITH GET SUBROUTIV 

;G0 TO 14$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY GET SsJBROUTINE 

;G0 TO 20$ IF ERROR 



GO CHECK FOR PRIMARY ERRORS 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR (t DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 



001346 



.•MAKE SURE THE WRITE CHECK ERROR WAS DETECTED 



001140 
001140 
001142 



001134 
001156 
001 1 56 



001524 
001525 



16$: 



17$: 



BIT 
BNE 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

MOV 
BIS 
MOV 
EMT 
BR 



*WCE.RMCS2I 
17$ 

PC.DTASTS 
16$ 



pc.a(SP)* 
20$ 

RMCS2I.$GDDAT 

#WCE.$GDDAT 

RMCS2I,$BDDAT 

537 

20$ 



IS WRITE CHECK ERROR SET?? 
YES!.' 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 

LOAD EXPECTED STATUS 

LOAD RECEIVED STATUS 



.-VERIFY THE ADDRESS OF THE WRITE CHECK ERROR 



MOV *8UF T WO-2 . $GDADR 
MOV RMeAI.$BDADR 
SUB #2,$8DADR 



LOAD EXPECTED ADDRESS 
LOAD RECEIVED ADDRESS 
DECREMENT RECEIVED ADDRESS 



;GET WCE DATA AND VERIFY IT IS OK 

M0V6 #RMD8,GETINX ; SETUP FOR READING RMD8 
M0V8 #200. GET I NX* 1 



001142 18$: 



JSR 

BR 

NOP 

EMT 

JMP 

MOV 



PC, GET 
18$ 



20$ 

RMD8I .SBDDAT 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINE9 BY GET SUBROUTINE 

GO TO 20$ IF ERROR 

LOAD RECEIVED DATA WORD 



/f^i^O f<M05/5/2 FCTML TST 2 MAC^O V04.00 
'5 fORMAT CneCK ZEROS W/ WCE ERROR 



A 59 
-42 

443 
444 
445 
446 
44? 
448 
449 
450 



015454 
015462 
013466 
013474 
013476 
013500 
013502 
013510 
013512 
013514 



013757 
005157 
025757 
001402 
104540 
000405 
023737 
001401 
104341 



10236? 
001140 
001134 



001 KG 
001136 



001140 001142 



19$: 
20$: 
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my 


BUF-TW0-2.$GDDAT 


.•LOAD EXPECTED DAIA WORD 


COM 


$GDDAT 




CMP 


$GDADR,$BDADR 


;I£ ADDRESS 0K*>? 


BEQ 


19$ 


;VES.. 


EMT 


340 




BR 


20$ 




CMP 


$GDDAT.$BDDAT 


lis DATA WORD OK?' 


BEO 


20$ 


;VES. . 


EMT 


341 





013514 
013514 
013516 
013520 
013524 
01 5550 
015554 



•TEST 6 



FORMAT ONES 



000004 
000240 
012706 
01 3700 
015701 
012757 



001100 
001276 
0CK66 
000006 



001226 



451 










452 










453 


013542 


012737 


000000 


001446 


454 


013550 


012737 


000000 


00U20 


455 


013556 


012737 


010000 


001444 


456 


015564 


012737 


1 77376 


0014U 


457 


013572 


012757 


101360 


001416 


458 


015600 


012737 


000062 


001412 


459 










460 











TST6: 

SCOPE .-SCOPE CALL 

NOP .-START Of TEST 

MOV ffSTACK.SP .-INITIALIZE STACK PQINTfR 

MOV $8ASE,R0 ;R0 UNIBUS ADDRESS 

MOV . TSTQUE.R1 ;(R1) = DEVICE BEING TESTED 

MOV #6.$TESTN ;;SET TEST NUMBER IN APT MAIL 

.•SETUP PARAMETERS FOR GENERATING DATA BUFFER 



BOX 



MOV 


*0,RMDCO 


.-CYLINDER - 0 


MOV 


*0.RMDAO 


.•TRACK = 0, SECTOR - 0 


MOV 


#FMT16.RM0'^0 


;16 BIT FORMAT 


MOV 


#-258..RMWC0 


.-2 * 256 WORDS (2'S COMP) 


MOV 


*8Uf0NE,RMBA0 


.-DATA BUFFER ADDRESS 


MOV 


*WH.RMCS10 


; WRITE HEADER AND DATA 



.-VERIFY THAT SECTOR IS NOT BAD 





013606 


004737 


053152 






JSR 


PC.8ADSCT 


.-CALL BAD SECTOR MODULE 




013612 


000405 








BR 


1$ 


;G0 TO 1$ IF NO ERROR 




013614 


104401 


065346 






TYPE 


.SCTMSG 


.-TYPE BAD SECTOR MESSAGE 




013620 


104000 








EMT 


.-ERROR * DEFINED BY BADSCT SUBPOUTiNE 




013622 


000157 


014334 






JMP 


18$ 


;G0 TO 18$ IF ERROR 


461 


015626 








1$: 








462 


01 5626 


012737 


064736 


001174 




MOV 


#ONES.$TMP0 
#1.$TMP1 


.-USE ALL ONES DATA PATTERN 


463 


013654 


012737 


000001 


001 1 76 




MOV 




464 


015642 


004737 


035104 






JSR 


PCGENBU*^ 


.-GO GENERATE DATA BUFFER 


465 


01 3646 








2$: 








466 


















467 










.-PREPARE 


DEVICE 


FOR DATA TRANSFER 


468 


013646 


004757 


032176 




JSR 


PC.TSTPRP 


.-PREPARE DEVICE FOR TEST 


013652 


154150 








.WORD 


154130 


.-TASK DESCRIPTOR AS FOLLOWS: 



469 



01 3654 
013656 
013660 
015662 
015666 



000404 
000240 
10AOO0 
000137 



014334 



3$: 



BR 
NOP 
EMT 
JMF 



3$ 



18$ 



SELECT DEVICE 6 VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER I SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALI8RATI0N 
60 TO 3$ IF NO Et^ROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
60 TO 18$ IF ERROR 



A 70 
^.71 
^72 
473 
47A 
475 
476 
477 
478 
479 
480 



481 
482 
483 
484 
485 
486 
487 
488 
489 



490 
491 
492 
493 



494 
495 
496 





rST 2 ".ACRO 


FORMA' 


ONES 






0177^7 


000005 0014*2 




01 ?70? 


001553 


01^700 


1 1?7?? 


000006 


013704 




000034 


013710 




000032 


01 37'' 4 


1 1 P7?? 


000000 




1 1?72? 


000200 


ni ^7?4 




056240 


01 3730 


000404 




013732 


000240 




01 3734 


1 04000 




013736 


000137 


014334 


01 ^^74? 






013742 


004737 


035704 


CI 3746 


004737 


036602 


013752 
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01 3752 
01 3756 

013760 
013762 
01 3764 
013770 



013770 
013774 
013776 
014000 
014002 
014004 
01401 0 



004737 
C00404 
000240 
104000 
000137 



U04737 
000405 
000240 
104000 
004736 
000137 



035770 
014334 
044104 

014334 



;SEIUP PARAMETERS AND EXECUTE SEEK TO GET DRJVE ON CVLINOER 



4$: 



MOV 

MOV 

M0V8 

M0V8 

MOVB 

M0V8 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



*SEEK!G0.RMCS10 .-CHANGE COMTIAND TO SEEK 



*PUTINX.R2 
*RMDA.(R2)*^ 
#RMDf.(R2)> 
*RM0F.(R2)* 
*RMCS1,(R2)* 
#200. (R2)* 

PC. PUT 
4$ 



18S 



;WRJTE REGISTEh INDEX TABLE 



GO WRITE REG!STER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO '8$ IF ERROR 



.-SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 

JSR PC.GETSTS .-SETUP FOR STATUS 

JSR PC.TIMOUT .-WAIT FOR SEEK TO COMPLETE 

5$: 



;60 READ SEEK STATUS 



6$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
6$ 



18S 



GO READ REGISTER(S) WITH GET SUBROUTINE 

CO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 



;VERIFY THE RESULTS OF THE ^iEEK COMMAND 



7$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.SEKSTS 
7$ 



pc,a(SP)* 

18$ 



GO VERIFY RESULTS OF SEEK OPERATION 
GO TO 7$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR t DEFINED BY SEKSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 18$ IF ERROR 



497 


014010 


012737 


000063 001412 




MOV 


498 


C14016 


012702 


001556 




MOV 


499 


014022 


112722 


000002 




MOVB 


500 


014026 


11272? 


000004 




M0V8 


501 


014032 


112722 


000000 




MOVB 


502 


014036 


112722 


000200 




MOVB 


503 












504 


014042 


004737 


036240 




JSR 




014046 


000404 






BR 




014050 


000240 






NOP 




014052 


104000 






EMT 




014054 


000137 


014334 




jMP 


505 


014060 






8$: 




506 












507 








.-WAIT 


FOR WRITE 


508 


OU060 


004737 


036602 


JSR 


509 













.-SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 



*WH.'G0,RMCS10 
#PUriNX+3.R2 
*RMWC.(R2)* 
tfRMBA,(R2)* 
*RMCS1 .(R2)* 
*200.(R2)+ 

PC. PUT 
8$ 



18$ 



PC.TIMOUT 



.-WRITE HEADER AND DATA 
.-EXTEND REGISTER INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED 8/ PUT SUBROUTINE 

GO TO 18$ IF ERROR 



".■WAIT FOR COMMAND TO COMPLETE 



("ZR^NBO RM05/5/2 fQINL 
FORMAT ONES 



510 



51 1 

513 
5K 



51s 
516 



517 
518 



519 
520 
521 
522 
523 
52A 
525 



526 
527 
528 
529 
530 
531 



532 
533 
534 
535 



0U064 
0U070 
0U072 
0U07A 
0H076 
0K102 



0U102 
01A106 
0H110 
0U112 
0U114 
0U116 
0U122 
0U122 
01A126 
0U130 
OK132 
CU13A 
0U136 
0UK2 
0KK2 
0UK6 
01A150 
OU152 
0K15A 
0K156 
0U162 



0K162 
01A170 

0U176 
0U202 
0U204 
0K206 
0K210 
0K2U 



0U220 
0U22A 
0K226 
0U230 
0U232 
01A236 



0U236 

01A2A4 
0K2A6 
CK250 



0OA737 
OOOAOA 
0002A0 
ICKOOO 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



012737 
012737 

004737 
000404 
000240 
104000 
000137 



TST 2 MACRO V04.00 

035770 

0K334 

9$: 

036766 



J 7 
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ScQ 006/ 



014214 004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 



JSR 

BR 

HDP 

EMT 

JMP 



PC. GET 
9$ 



;VERIf V 



014334 
051502 

014334 
037620 

014334 



000073 
102364 

036240 



014334 

036602 
035770 

014334 
056766 



10$: 



111: 



12$: 



RESJLTS 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



18$ 



CP WRITE COMMAND 
' .PRIERR 
1US 



PC.a(SP)* 
18$ 

PC.DTASTS 
11$ 



PCaCSP)* 
18$ 

PCSECERR 
12$ 



PC.a(SP)* 
18$ 



GO READ REGISTER(S) WJTH GET SUBROUTINE 

GO 10 9$ J F NO ERROR 

RETURN HFRE If ERROR 

ERROR M DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 



GO CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUUNE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO VERIFY RESULTS OF DATA fttANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTAST3 SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # OEflNEO BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 



001412 
001416 



.-READ HEADER AND DATA FOR SECTOR JUST WRITTEN 

MOV *PH.'G0.RMCS10 ;READ HE/'JER i DATA COMMAND 
MOV /dBUFTWO.RMBAO ."CHANGE BUS ADDRESS 



13$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. PUT 
13$ 



18$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 



;WAIT FOR READ TO COMPLETE AND GET STATUS 

JSR PC.TIMOUT ;WAIT FOR READ TO COMPLETE 



!4$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
14$ 



18$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 



.•VERIFY THE RESULTS OF READ OPERATION 



JSR 
BR 
NOP 
EMT 

JSR 



PC. PRIERR 
15$ 



pc,a(SP)+ 



GO CHECK FOR PRIMARY ERRORS 
GO ro 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 



T6 



RM05/3/2 fCTML 
FORMAT ONES 
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SEO 0088 



OU252 

556 0K256 

557 0K256 
0K262 
0U264 
0K266 
0K270 

558 0U276 

559 0U276 
014302 
014304 
014506 
014310 
014512 

540 014516 

541 

542 

545 014516 
C14322 
014524 
014326 
014350 
014532 

544 014334 

545 

546 



014534 
014534 
014336 
014340 
014344 
014350 
014354 

547 
548 

549 014362 

550 0U370 

551 014376 

552 014404 

553 014412 

554 014420 
555 

556 

0144^6 
014432 
014434 
014440 
014442 

557 014446 

558 014446 

559 014454 

560 014462 

561 014466 
562 



000137 

004757 
000405 
000240 
104000 
004756 
000137 

004737 
000405 
000240 
104000 
004756 
0001 37 



004757 
101560 
102564 
000402 
000240 
104000 



000004 
000240 
012706 
015700 
015701 
012737 



012737 
012737 
012737 
012737 
012737 
012737 



004737 
000405 
104401 
104000 
000137 

012737 
012737 
004737 



014354 
051502 

014334 
057620 

014334 
035342 



001100 
001276 
001466 
000007 



000000 
000000 
010000 
177376 
101360 
000062 



033152 

063346 

015124 

064736 
000001 
035104 



15$: 



16$: 



17$; 



jSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



18$ 



.•VERIFY DATA 
JSR 
.WORD 
.WORD 
BR 
NOP 
EMT 

18$: 



PC.DTASTS 
16$ 



pc.a(sp)* 

18$ 

PC.SECERR 
17$ 



pc.a(SP)* 

18$ 



PCCMPBUF 
BUFONE 
BUF TWO 
18$ 



;G0 TO 18$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

60 TO 17$ IF NO ERROR 

RETURN HFRE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 



GO COMPARE WRITE, READ DATA BUFFERS 

STARTING ADDRESS OF WRITE BUFFER 

STARTING ADDRESS OF READ BUFFER 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY CMP8UF SUBROUTINE 



•**•*•••••*••••******•*•♦•***•*»•***••*•*•*•*******•**••••*••••• 

'•TEST 7 FORMAT CHECK ONES 

••••**»••*••♦***••*•*»•*•*•**•************»*********•••**»•*•*•• 

tST7: 

SCOPE CALL 



001226 



001446 
001420 
001444 
001414 
001416 
001412 



SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 



*STACK,SP 
$eASE,RO 
TSTQUE,R1 
#7.$TESTN 



START OF TEST 

INITIALIZE STACK POINTER 

RO = UNJ8US ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



.•SETUP PARAMETERS FOR GENERATING DATA BUFFER 



001 1 74 
001176 



MOV *0.R«DCO 

MOV /IfO.RMDAO 

MOV *fMTl6.RM0F0 

MOV #-258. ,RMWCO 

MOV #8UF0NE,RMBA0 

MOV WH.RMCSIO 

; VERIFY THAT SECTOR IS NOT BAD 

JSR PCSADSCT 

BR 1$ 

TYPE .SCTMSG 
FMT 

JMP 18$ 

1$: 

MOV /lfONES.$TMPO 

MOV *1,$TMP1 

JSR PC.GENBUF 

2$: 



CYLINDER = 0 
TRACK = 0. SECTOR " 0 
16 BIT FORMAT 
2 ♦ 256 WORDS {2'S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 



CALL BAD SECTOR MODULE 

GO TO 1$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR # DEFINED BY BADSCT SUBROUTINE 

GO TO 18$ IF ERROR 



;USE ALL ONES DATA PATTERN 
;G0 GENERATE DATA BUFFER 



m 



'"ZRMNBC RM05/5/2 fCTML TST 2 
n FORMAT CHECK ONES 



MACRO VOA.OO 



L 7 
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SEO OUS'y 



563 

56^ 0K466 



0UA74 
0U476 
0U500 
OK502 

565 0U506 

566 

567 

568 OK 506 

569 0U5K 

570 CU520 

571 0U52A 

572 0K530 
5^3 0K534 
574 014540 
575 

576 014544 
014550 
014552 
014554 
014556 

577 014562 
578 

579 

580 014562 

581 014566 

582 014572 
583 

584 

585 014572 
014576 
014600 
014602 
014604 

586 014610 
587 

588 

589 014610 
014614 
014616 
014620 
014622 
014624 

590 014630 
591 

592 

593 014630 

594 014636 



004737 
154130 



000404 
000240 
104000 
000137 



012737 
012702 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



004737 
004737 



004737 
000404 
000240 
104000 
0001 37 



004737 
000405 
000240 
104000 
004736 
000137 



012737 
012702 



C321 76 



.•PREPARE DEVICE FOR DATA TRANSFER 



JSR 
.WORD 



PC.TSTPRP 
154130 



015124 

000005 001412 

001553 

0C0006 

000034 

000032 

000000 

000200 

036240 
015124 



035704 
036602 



3$: 



BR 
NOP 
EMT 
JMP 



5$ 



18$ 



PREPARE DEVKE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE £ VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER ft SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI'" OR "PIP" IS SET 
VERIFY RECALIBRATION 
GO TO 3$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY TSTPRP SUBROUTINE 
GO TO 18$ IF ERROR 



.•SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
tfSEEK.GO.RMCSIO .-CHANGE COMMAND TO SEEK 
#PUTINX.R2 .-WRITE REGISTER INDEX TABLE 

#RMDA.(R2)+ 
#RMDC.(R2)* 
#RM0F,(R2)* 
#RMCS1,(R2)* 



4$; 



MOV 
MOV 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 

JSR 

BR 

NOP 

EMT 

JMP 



#200. (R2)* 

PC. PUT 
4$ 



18$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 



.•SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC.GETSTS ;SETUP FOR STATUS 

JSR PC.TIMOUT ;WAIT FOR SEEK TO COMPLETE 

5$: 



035770 
015124 
044104 

015124 



000063 001412 
001556 



;G0 



6$: 



READ SEEK 
JSR 
BR 
NOP 
EMT 
JMP 



STATUS 
PC. GET 
6$ 



18$ 



.•VERIFY THE RESULTS OF THE 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.SEKSTS 
7$ 



pc.afsp)* 

18$ 



GO READ RE6ISTER(S) WITH GET SUBROUTINE 

60 TO 6S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

60 TO 18$ IF ERROR 



SEEK COMMAND 

GO VERIFY RESULTS OF SEEK OPERATION 
GO TO 7$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR ft DEFINED BY SEKSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 18$ IF ERROR 



7$: 

; SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 

MOV ffWH.GO.RMCSIO .-WRITE HEADER AND DATA 

MOV #PUTINX + 3.R2 .-EXTEND REGISTER INDEX TABLE 



CZRMfJBO 

T7 

595 
596 
597 
598 
599 
600 



601 
602 
603 
60A 
605 
606 



ftM05/3/? FCTNL TST 
FORMAT CHECK ONES 
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0K642 
014646 
014652 
014656 

014662 
014666 
014670 
014672 
014674 
014700 



607 
608 
609 
610 



611 
612 



613 
614 



615 
616 
617 
618 
619 
620 



621 
622 
623 
624 



112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



014700 004737 



014704 
014710 
014712 
014714 
01 471 6 
014722 



014722 
014726 
014730 
014732 
014734 
014736 
014742 
014742 
014746 
014750 
014752 
014754 
014756 
014762 
014762 
014766 
014770 
014772 
014774 
014776 
015002 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



000002 
000004 
000000 
000200 

036240 

015124 

036602 
035770 

015124 

036766 

015124 
051502 

015124 
037620 

015124 



SEO 0090 



015010 
015014 
015016 
015020 
015022 
015026 



004737 
000404 
000240 
104000 
000137 



036240 



015124 



8S: 



M0V8 
M0V8 
M0V8 

novB 

JSR 

BR 

NOP 

EMT 

JMP 



*RMUC.(R2)* 
*RM8A,(R2)* 
#RMCS1,(R2)+ 
#200. (R2)* 

PC .PUT 
8S 



18J 



GO WRITE REGISTER<S) WTH PUT SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE If ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 18S IF ERROR 



.•WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

JSR PC.TIMOUT .-WAIT FOR COMMAND TO COMPLETE 



9$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
9$ 



18$ 



.•VERIFY RESULTS 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 



10$: 



11$: 



12$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



OF WRITE COMMAND 
PC.PRIERR 
lOS 



pc.a(SP)* 
18$ 

PCDTASTS 
11$ 



PC.a(SP)* 

18$ 

PC.SECERR' 
12$ 



PC.a(SP)+ 

18$ 



GO READ RE6ISTER(S) WITH GET SUBROUTINE 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERKOR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 



GO CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR It DEFINED BY PR I ERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TC 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 



015002 012737 000053 001412 



; WRITE CHECK HEADER AND DATA FOR SECTOR JUST WRITTEN 
MOV #WCH!G0.RMCS10 .'WRITE CHECK COMMAND 



13$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, PUT 
13$ 



18$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 



015026 004737 036602 



;WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 

JSR PC.TIMOUT .-WAIT FOR READ TO COMPLETE 
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625 
626 



627 
628 
629 
630 



631 
632 



633 
63A 



635 
636 
637 
638 
639 



015032 
015036 
01 5040 
015042 
01 5044 
015:50 



015050 
015054 
01 5056 
015060 
015062 
015064 
01 5070 
01 5070 
01 5074 
015076 
015100 
015102 
015104 
015110 
015110 
015114 
015116 
015120 
015122 
015124 

015124 



640 

641 

642 

643 

644 

645 

646 

647 

648 

649 



015124 
015124 
015126 
015130 
015134 
015140 
C15144 



015152 
015160 
015166 
015174 
015202 
015210 



015216 
015222 
015224 
015230 
015232 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000403 
000240 
104000 
004736 



000004 
000240 
012^06 
013700 
013701 
012737 



012737 
012737 
012737 
012737 
012737 
012737 



004737 
000405 
104401 

10,000 
000137 



035770 
015124 
036766 

015124 
051502 

015124 
037620 



001100 
001276 
001466 
000010 



000000 
000000 
010000 
1 77376 
101360 
000062 



033152 
063346 

016062 



14$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC-GET 
14$ 



18$ 



.•VERIFY THE RESULTS OF WRITE 
JSR PC.PRIERR 



5$: 



16$: 



BR 

NOP 
EMT 
JSR 
JMP 

JSR 
BR 
NOP 
EMT 

JSR 
JMP 

JSR 
BR 
NOP 
EMT 
JSR 



15$ 



PC,a(SP)* 
18$ 

PC.DTASTS 
16$ 



pcacsp)* 

18$ 

PCSECERR 
17$ 



PC.a(SP)* 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR M DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 



CHECK OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 18$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
60 TO 16$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 17$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY SEC ERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 



17$: 
18$: 

••»»»»*»**»»*•»♦*»*♦*»»*♦♦**♦*♦*•***»»**♦»»♦*♦*♦********♦*•****** 



;*TEST 10 
tSTIO: 



FORMAT CHECK ONES W/ WCE ERRORS 



001226 



001446 
001420 
001444 
001414 
001416 
001412 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



*STACK,SP 
$8ASE.R0 
TSTQUE.R1 
*10.$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI BUS ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT HAIL BOX 



;SETUP PARAMETERS FOR GENERATING DATA BUFFER 



MOV #0,RMDCO 

MOV *0,RMDAO 

MOV *FMT16,RM0F0 

MOV *-258..RMWC0 

MOV #8UF0NE,RM8A0 

MOV *UH.RMCS10 

.'VERIFY THAT SECTOR IS NOT BAD 

JSR PC.8ADSCT 

BR 1$ 

TYPE .SCTMS6 
EMT 

JMP 20$ 



CYLINDER = 0 
TRACK = 0. SECTOR 0 
16 BIT FORMAT 
2 + 256 WORDS (2"S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 



CALL BAD SECTOR MODULE 

GO TO 1$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR » DEFINED BY BADSCT SUBROUTINE 

GO TO 20$ IF ERROR 



6S0 
651 
652 
6S5 
654 
655 
656 
157 



fOmA^ CHECK ONES y/ 



658 
659 
660 
661 
66? 
663 
6^4 
665 
666 
667 
668 
669 



670 
671 
672 
675 
674 
675 
676 
677 
678 



6"9 
680 
681 
682 
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SEO C-C**^ 



015236 
015236 
015244 
015252 
015256 



015256 
0^5262 



015264 
015266 
015270 
CI 5272 
015276 



015276 
015504 
015510 
015514 
015520 
015324 
015530 

0^5554 
015540 
015542 
015544 
015546 
01^552 



015552 
015556 
01 5362 



015362 
015366 
015570 
015372 
015374 
015400 



01540*: 
015404 
015406 
015410 
C1S4'.? 



012737 
C12737 
004737 



004757 
15<.130 



00040^ 
000240 
104000 
000157 



012757 
012702 
112722 
112722 
U2722 

004757 
000404 
000240 
104000 
000157 



004757 
004757 



004757 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004756 



C647% 
000001 
055104 



052176 



001174 
001176 



1S: 



2»: 



MOV 

JSR 



#ONES.tT«PC 

#1.STW1 

PC.GEKfiUF 



:JSE ALL ONES DATA PATTERN 
:G0 GENERATE DATA BUFFER 



;PRtPARt DEVICE 
JSR 
.WORD 



FOR DATA TRANSFER 
PC.TSTPRP 
154130 



016062 



000005 OOU'2 

001555 

000006 

000054 

000052 

000000 

000200 

056240 



016062 



055704 
036602 



035770 
016062 
044104 



5$: 



BR 
MOP 
EMT 
JMP 



5$ 



20S 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOJLOWS: 
SELECT DEVICE l VERIFY DEVICE AVAUASLE 
CLEAR CONTROLLER ft SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOL'JME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR 'PIP" IS SET 
VERIFY RECALIBRATION 
GO TO 5$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 20S IF ERROR 



;SETJP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 



4$: 



WOV 
MOV 

Move 
wove 

(10 V8 

wove 

M0V8 

JSR 

BR 

NOP 

EMT 

J«P 



#seek:go.rmcsio 

4rf>UTINX,R2 

#RMDA,(R2)* 

#R«)C.(R2)* 

#R«0F,(R2)* 

#R«CS1,(R2)» 

#200. (R2)* 

PC. PUT 
4S 



20S 



CHANGE COMMAND 
;WRITE REGISTER 



TO SEEK 
INDEX TABLE 



60 WRITE REGISTER(S) WITH PUT SUBROUTlrjE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 20$ IF ERROR 



; SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC.GETSTS ;SETUP FOR STATUS 

JSR PC.TIMOUT .-WAIT FOR SEEK TO COMPLETE 

5$- 



;G0 READ SEEK STATUS 



6S: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
6S 



20$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 20$ IF ERROR 



.•VERIFY THE RESULTS OF THE SEEK COMMAND 



JSR 
BR 
VOP 
EMT 
JSR 



PC.SEKSTS 
7$ 



PC.3(5P)* 



60 VERIFY RESULTS OF SfEK OPERATION 
GO TO 7$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY SEKSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 



' 1 



ftM05/3/2 FCTNL TST 2 
FOfWAT CHECK ONES U/ 



MAC«D 1/04.00 
uCE ERRORS 
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SEO 009': 





01 ^CM. 

W 1 J** » 


onoi ^7 

WW 1 J* 


m606? 


























ooo 


01 S4?0 


012737 


000063 001412 






012702 


001556 






1 1P72P 


V/VVVvC 




V 1 -'••JO 


1 12722 


000004 


600 


015442 


^^?722 


000000 

V Www V 


o~ 1 


015446 


112722 


000200 










693 


01 5452 


004737 


036240 




015456 


000404 






01 5460 


000240 






01 5462 


104000 






015464 


0001 57 


016062 


694 


015470 






695 








696 








697 


015470 


004737 


036602 



698 
699 



700 
701 
702 
703 



704 

705 



r 

707 



708 
709 
710 
■^11 
712 
713 
714 
'15 



015474 
015500 
015502 
015504 
015506 
015512 



015512 
015516 
015520 
015522 
015524 
015526 
015532 
015532 
015536 
015540 
015542 
015544 
CI 5546 
015552 
015552 
015556 
01 5560 
015562 
015564 
015566 
015572 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
0001 37 

004737 
000405 
000240 
104000 
004736 
000137 



035770 
016062 
036766 

016062 
051502 

016062 
037620 

016062 



20$ 



.GO TO 20S If ERROR 



.-SETUP AND EXECUTE yRITE HEADER AND DATA COMMAND 



8$: 



MOV 

M0V8 
M0V8 
M0V8 
M0V8 

JSR 

BR 

NOP 

EMT 

JMP 



«UH!G0.RMCS10 
#PUTINX»3.R2 
#R«UC.(R2)» 
#RM8A,(R2)* 
#RMCS1.(R2)^ 
#200. (R2)* 

PC .PUT 
8S 



20$ 



.WRITE HEADER AND DA'A 
.•EXTEND REGISTER INDEX tar,E 



GO WRITE REGISTER(S) WITH PUT Sl«8R0uTINF 

GO TO 8$ IF NO E^^ROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 20$ IF ERROR 



;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

JSR PC.TIMOUT ;WAIT FOR COMMAND TO COMPLETE 



9$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
9$ 



20$ 



;G0 READ REGISiER(S) WITH GET SUBROUTINE 

;G0 TO 9$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED Br GET SUBROUTINE 

.GO TO 20$ IF ERROR 



.-VERIFY RESULTS 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 



"0$: 



' 1$: 



12$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

8ft 

NOP 

EMT 

JSP 

JIV 



OF WRITE COMMAND 

PC.PRIERR 

10$ 



pc,a(SP)* 

20$ 

PC.DTASTS 
11$ 



PC,S(SP)* 
20$ 

PC.SECERR 
12$ 



PC.i(SP>» 
20$ 



GO CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERP SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ ir ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECER9 SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 



015572 005137 102362 

015S76 012737 000053 0014^2 



;A.TER DATA BUFFER 

COM BUF TWO-? 



.•COMPLEMENT DATA WORD 



.■SETUP AND WRITE CHECK HEADER AND DATA COMMAND 

MOV *WCH.'G0.RMCS10 .-WRITE CHECK COMMAND 



:aMNBO (m05/l/2 FCTNL TST 2 
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SEO 009A 



^16 



717 
718 
719 
720 
721 
722 



723 
724 
725 
726 



727 
723 
729 
730 
731 
732 
733 



734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 



750 



015604 
015610 
015612 
015614 
015616 
015622 



015626 
01 5632 
015634 
015636 
015640 
015644 



015644 
015650 
015652 
015654 
015056 
015660 
015664 



015664 
015672 

015674 
015700 
015702 
015704 
015706 
015710 
015714 
015722 
015730 
015736 
015740 



015740 
01 5746 
015754 



015762 
015770 

015776 
016002 
01600A 
016006 
016010 
016014 



004737 
000404 
000240 
104000 
000137 



015622 004737 



004737 
000404 
000240 
104000 
000137 



C04737 
000405 
000240 
104000 
004736 
000137 



032737 
001022 

004737 
()00405 
000240 
104000 
004736 
000137 
013737 
052737 
013737 
104337 



012737 
013737 
162737 



112737 
112737 

004737 
000404 
000240 
104000 
000137 
013737 



036240 

016062 

036602 
035770 

016062 

036766 

016062 

OAOOOO 
051502 



016062 
001346 
040000 
001346 



102362 
001342 
000002 



000022 
000200 

035770 



016062 
001360 



13$: 



jSR 

BR 

NOP 

EMT 

JMP 



PC .PUT 
13l 



20$ 



GO WRITE RFGJSTER(S) W] TH POT SUBROUTINE 

GO TO 13$ If NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED Br PUT SUBROUTINE 

GO TO 20$ IF ERROR 



;WAIT FOR WRITE CHECK COMMAND TO COMPLETE AND READ STATUS 

JSR PC.TIMOUT ;UA1T FOR COMMMAND TO rOMPLETE 



14$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
14$ 



20$ 



001346 



001140 
001140 
001142 



001134 
001136 
001136 



001524 
001525 



.•CHECK FOR PRIMARY ERRORS 



15$: 



.SR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.PRIERR 
15$ 



Pc.a(SP>* 
20$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 20$ IF ERROR 



GO CHECK FOR PRIMARY ERRORS 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERRCI^ 

ERROR » DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 



;MAKE SURE THE WRITE CHECK ERROR WAS DETECTED 

BIT #WCE.RMCS2I ;IS WRITE CHECK ERROR SET?? 
BNE 17$ ;YESI.' 



16$: 



'7$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

MOV 

BIS 

MOV 

EMT 



PC.DTASTS 
16$ 



PC.aCSP)* 
20$ 

RMCS2I,$GDDAT 

*WCE.$GDDAT 

RMCS2I.$BDDAT 

337 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 20$ IF ERROR 

LOAD EXPECTED STATUS 

;LOAD RECEIVED STATUS 



;VFRIFY THE ADDRESS OF THE WRITE CHECK ERROR 

MOV #8UFTW0-2,$GDADR ;LOAD EXPECTED ADDRESS 

MOV RMBAI,$BDADR ;LOAD RECEIVED ADDRESS 

SUB #2.$8DADR .-DECREMENT RECEIVED ADDRESS 

;GET WCE DATA AND VERIFY IT IS OK 

M0V8 /TRMDB.GETINX .-SETUP FOR READING RMDB 
M0V8 *200.GETINX*1 



001142 18$: 



JSR 

BR 

NOP 

EMT 

JMP 

MOV 



PC. GET 
18$ 



20$ 

RMD8I.$BDD4I 



GO READ RE6ISTER(S) WITH GET SUBRCjnNE 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 20$ IF ERROR 

LOAD RECEIVED DATA WORD 



""ZfiMftBO RM05/5/2 FCTNL TS' 2 
no FQJWAT CHECK ONES W/ 
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SEQ 009'- 



016022 

752 016030 

753 01603A 

754 016042 

755 016044 

756 016046 

757 016050 

758 01605C 

759 016056 

760 016060 

761 016062 
7o2 

765 



016062 
016062 
016064 
016066 
CI 6072 
016076 
016102 

7o4 

765 

766 016110 

767 016116 

768 016124 
^69 016132 

770 016140 

771 016146 
772 

773 



013737 
005137 
023757 
001402 
104540 
000405 

023737 
001401 
104341 



102362 
001140 
001134 



001140 
001136 



001140 001142 



19$: 



20$: 



MOV 
COM 
CMP 
BEQ 
EMT 

BR 

CMP 
BEQ 
EMT 



BUf TW0-2.$6DDAT ;L0AD EXPECTED DATA WORD 
$GDDAT 

$GDADR.$BDADR :IS ADDRESS 0K'>? 

19$ .-YES.': 

540 

20$ 



$GDDAT,$BDDAT 
20$ 

34 f 



DATA WORD OK?? 
;VES. : 



000004 
000240 
012706 
01 3700 
013701 
012737 



012737 
012737 
012737 
012737 
012737 
012757 



;«TEST 11 
tSTIl: 



FORMAT MULTIPLE SECTORS 



001100 
0C1276 
00 i 466 
00001 1 



010000 
000000 
000000 
1 76774 
101560 
000062 



001226 



001444 
001446 
001420 
001414 
00H16 
001412 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



*STAC<,SP 
$8ASE,R0 
TSTQUE.R1 
*11,$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK PO'NTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAR 



BOX 



.•SETUP PARAMETERS FDR GENERATING DATA BUFFER 





016154 


004757 


033152 




JSR 




016160 


000405 






8R 




016162 


104401 


065546 




TVPE 




016166 


104000 






EMT 




016170 


000157 


016656 




JMP 


774 


016174 








1$: 


775 


016174 


012737 


065000 


001 1 74 


MOV 


776 


016202 
016210 


012737 


000001 


001176 


MOV 


777 


004737 


055104 




JSR 


778 


016214 








2$: 


779 












780 










.•PREPARE DEVICE 


781 


016214 
016220 


004737 
154130 


052176 




JSR 
• WORD 



MOV #FMT16.RM0F0 

MOV *0,RMOCO 

MOV *0.RMDAO 

MOV *-258.»2,RMWC0 

MOV *8UF0NE.RMBA0 

MOV *yH.RMCSl0 

;VERIFy THAT SECTOR IS NOT BAD 
PC.BADSCT 
1$ 

.SCTMSG 
17$ 

*ZEROS.$TMP0 
*1.$TMP1 
PC.GENBUF 



16 BIT FORMAT 
CYLINDER = 0 
TRACK = 0. SECTOR P 
WORD COUNT FOR 2 SECTORS (2'S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 



.■CALL BAD SECTOR MODULE 

;G0 TO 1$ IF NO ERROf< 

.-TYPE BAD SECTOR MESSAGE 

.ERROR * DEFINED BY BADSCT SUBROUTINE 

;G0 TO 17$ IF ERROR 

;USE ALL ZEROS DATA PATTERN 

;G0 GENERATE DATA BUFFER 



FOR DATA TRANSFER 
PC.TSTPRP 
154150 



016222 
016224 
016226 
016^50 



000404 
000240 
104000 
000157 



016656 



BR 

\oo 

EMT 
JMP 



3$ 



'8$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER % SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SE" 
VERIFY RECALI8RATI0N 
GO TO 3$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 18$ IF ERROR 



RM05/^/? FCTNL TST ? 
FOR»WT MULTIPLE SECTORS 
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7B2 016234 

783 

784 

785 016234 
016242 

787 016246 

788 016252 

789 016256 

790 016262 

791 016266 
792 

795 016272 
016276 
016300 
016302 
016304 

794 016510 

795 

796 

797 016310 

798 0163U 

799 016320 
800 

801 

802 016320 
016324 
016326 
0^6330 
016332 

805 016336 
804 

805 

806 016336 
016342 
016344 
016346 
016350 
016352 

807 016356 
808 

809 

810 016356 

811 016364 

812 016370 

813 016374 
3H 016400 
815 016404 
816 

S17 016410 
016414 
016416 
0^6420 

0"'6422 
8'8 C16426 



012737 
012702 
112722 
112722 
112722 
112722 
^^2722 

004737 
000404 
000240 
104000 
0001 37 



004737 
004737 



035704 
036602 



3$: 



000005 001412 

001553 

000006 

000034 

000032 

000000 

000200 

036240 



016656 



;SETuP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON nrntfi 



41: 



MOV 
MOV 

Move 

M0V8 

wove 

M0V8 
M0V8 

JSR 

8R 

NOP 

EMT 

JMP 



*SEE»c:GO,RMCS10 ;CHANGE command TO .EEk 



#PUTJNX.R2 
#R«DA.(R2)* 
#RMDC.(R2)* 
*RM0F,(R2>* 
*RMCS1 .(R2)* 
*200.(R2)* 

PC.PUT 
4$ 



.-WRITE REGISTER INDf X TA8LE 



18$ 



004737 035770 
000404 
000240 
104000 

000137 016656 



004737 044 ■'04 

000405 

000240 

104000 

004736 

000^57 016656 



012737 000063 001412 

012702 001556 

1 12722 000002 

n2722 000004 

U2722 000000 

112722 000200 

004737 036240 
000404 
000240 
104000 

000137 016656 



.•SETUP FOR READING STATUS 
JSR PC.GETSTS 
JSR PC.TIMOUT 

5t: 

;G0 READ SEEK STATUS 



AND 



6$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC.GET 
6$ 



18$ 



60 WRITE REGISTER(S) WITH PUT SUBROUTINE 

60 TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED Br PUT SUBROUTINE 

GO TO 18$ IF ERROR 



THEN WAIT FOR SEEK TO COMPLETE 
; SETUP FOR STATUS 
;WAIT FOR SEEK TO COMPLETE 



60 READ RE6ISTER(S) WITH GET SUBROUTINE 

60 TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BV GET SUBROUTINE 

GO TO 18$ IF ERROR 



.-VERIFr THE RESULTS OF THE SEEK COMMAND 



7$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.SEKSTS 
7$ 



PC.a(SP)* 
18$ 



GO VERIFY RESULTS OF SEEK OPERATION 

60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SEKSTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 



; SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 



8$: 



MOV 

MOV 

M0V8 

M0V8 

M0V8 

M0V8 

JSR 

BR 

NOP 

EMT 

JMP 



#WH.'G0.RMCS10 

*PUTINX+3,R2 

*RMWC,(R2)* 

#RM8A.(R2)+ 

#RMCS1.(R2)* 

*200,(R2)* 

PC.PUT 
8$ 



18$ 



.•WRITE HEADER AND DATA 
.•EXTEND REGISTER INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 



016426 004737 036602 



.•WAIT FOR WRITE COMMAND TO COMPLETE AN[> READ STATUS 

JSR PC.TIMOUT .-WAIT FOR COMMAND TO COMPLETE 



fOR»W' *lULri«>LE SECTORS 
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d23 016432 
016436 
016440 
016442 
0'6444 

824 016450 

825 

826 

827 016450 
016454 
016456 
016460 
016462 
016464 

828 016470 

829 016470 
016474 
016476 
016500 
016502 
016504 

830 016510 

831 016510 
016514 
016516 
016520 
016522 
016524 

832 016530 
833 

854 

855 016530 
856 

837 016536 
016542 
016544 
016546 
016550 

858 016554 

839 

840 

841 016554 
842 

843 016560 
016564 
016566 
016570 
016572 

844 016576 
845 

846 

847 016576 
016602 
016604 

016606 
016610 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004756 
000137 

004737 
000<.05 
000240 
104000 
004736 
000137 



C35770 
016656 
036766 

016656 
051502 

016656 
037620 

016656 



9$: 



BR 
NOP 
EMT 
JMP 



PC. GET 
9$ 



.•VERIFY RESULTS 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 



18S 



OF WRITE COfWAND 
PC.PRIERR 
10$ 



10$: 



'1$: 



12$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 
BR 
NOP 
EMT 

JSR 
JMP 



PC.5)(SP)* 
18$ 

PC.DTASTS 
11$ 



PL.a(SP)* 
18$ 

PC.SECERR 
12$ 



PC.a(SP)+ 
18$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO 10 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 



GO CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 



012737 000053 001412 

004757 036240 
000404 
000240 
104000 

000137 016656 



004737 036602 

004737 035770 
000404 
000240 
104000 

000137 016656 



00473/ 036766 

000405 

000240 

104000 
004736 



.•WRITE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN 

MOV #wch:go,rmcsio .-write check command 



15$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. PUT 
13$ 



18$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR tt DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 



.•WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 

JSR PC.TIMOUT ;WAIT FOR WRITE CHECK TO FINISH 



14$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
14$ 



18$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR tt DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 



.-VERIFY THE RESULTS OF WRITE CHECK OPERATION 



JSR 
BR 
NOP 
EMT 

JSR 



PC.PRIERR 
15$ 



PL.a(SP)* 



GO CHECK FOR PRIMARY ERRORS 
GO TO 15$ IF NO ERROR 
RETURN HERE IF EftROR 
ERROR * DEFINED BY PRIFRR SUBROUTINE 
GO BACK fOR MORE ERROR CHECKS 
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016612 
016616 

849 016616 
016622 
016624 
016626 
0^6630 
016632 

850 016656 

851 016656 
016642 
016644 
016646 
0''6650 
016652 

852 016656 
853 

854 016656 

855 

856 



016656 
016656 
016660 
016662 
016666 
016672 
016676 



857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
367 



016704 
016712 
016720 
016726 
016734 
016742 
016750 



868 
869 
870 
871 
872 
873 
874 
875 
876 



016756 
01 6762 
016764 
016770 
016772 
016776 
016776 
017004 
01 7006 
017014 
017022 



017026 
017032 



000137 016656 

004737 051502 

000405 

000240 

104000 

004736 

000137 016656 

004737 037620 

000405 

000240 

104000 

004756 

000137 016656 



000004 
000240 
012706 
013700 
013701 
012737 



012737 
112737 
112737 
012737 
012737 
012737 
012737 



004737 
000405 
104401 
104000 
000137 

123727 
001345 
012737 
012737 
004737 



004737 
154130 



001100 
001276 
001466 
000012 



000000 
000000 
000037 
010000 
1 76774 
101360 
000062 



033152 

063546 

017470 

001420 

065000 
000001 
035104 

032176 



15S: 



16S: 



JMP 

JSR 

BR 

MOP 

EMT 

. SR 

.KIP 

JSR 
BR 
NOP 
EMT 
JSR 
JMP 



18J 



PC.DTASTS 
16» 



PC.a(SP)» 

1BS 

PC.SECERR 
17$ 



pc.acsp)* 

18S 



GO TO 18$ JF ERROR 

GO VERIfr RESULTS OF DATA TRANb''ER 

GO TO 16$ If NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBRQUTINf 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 17$ If NO ERROR 
RETURN HERE If ERROR 
ERROR * DEFINED BY SECERR SUBROUTINE 
GO BACK fOR MORE ERROR CHECKS 
GO TO 18$ If ERROR 



17$: 
18$: 

•**************************»************************************ 

•TEST 12 FORMAT W/ HEAD SWITCHING 

•***«***«*•*»**»»********«•***«*****•***•****•*»•»***»*»***••*•• 

TSn2: 

SCOPE CALL 



001226 



001446 
001421 
001420 
001444 
001414 
001416 
001412 



SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 



*STACK.SP 
$8ASE,R0 
TST0UE.R1 
*12,$TESTN 



START Of TEST 

INITJALJZE STACK POIN.ER 

RO = UNI BUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



: SETUP PARAMETERS FOR GENERATING DATA BUFFER 



000037 

001174 
001176 



MOV #0.RMDC0 

M0V8 *0,RMDAO+1 

1$: M0V8 #31.,RMDA0 

MOV #FMT16.RM0F0 

MOV *-258.*2.RMWC0 

MOV XTBUfONE.RMBAO 

m\l #WH,RMCS10 

.•VERIFY THAT SECTOR IS NOT BAD 

JSR PCBADSC^ 

BR 2$ 

TYPE .SCTMSG 
EMT 

JMP 18$ 

CMP8 rtMDA0.*31. 

BNE 1$ 

MOV <rZkROS.$TMPO 

MOV *1.$TMP1 

JSR PC.GENBUf 



2$: 



CYLINDER = 0 
TRACK = 0 , 
SECTOR = 3'f. 
16 BIT FORMAT 

WORD COUNT FOR 2 SECTORS (2*S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 



.-CALL BAD SECTOR MODULE 

;G0 TO 2$ If NO ERROR 

.-TYPE BAD SECTOR MESSAGE 

.•ERROR * DEflNED BY BADSCT SUBROUTINE 

;G0 TO 18$ If ERROR 

;IS LAST SECTOR ASSIGNED ? 
;8R If NO 

.-USE ALL ZEROS DATA PATTERN 



.•GO GENERATE DATA BUffER 



.•PREPARE DEVICE fOR DATA TRANSFER 



JSR 
.WORD 



PC.TSTPRP 
154130 



PREPARE DEVICE fOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE I VERIfY DEVICE AVAILABLE 
CLEAR CONTROLLER I SELECT DEVICE 



8 '7 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 



889 
890 
891 
892 
893 
894 
89b 
896 
897 



898 
899 

900 
901 



902 
903 
904 
905 
906 
907 
908 
909 
910 
911 



K•»^.S/^/'c fCT\L TST 2 »WC«0 V04.00 
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5£0 009'/ 



017034 
017036 
017040 
017042 
017046 



0^ 7046 
01 7054 
017060 
017064 
01 7070 
017074 
017100 

017104 
017110 
017112 
017114 
017116 
017122 



017122 
017126 
017132 



017132 
0171 36 
017140 
017142 
017144 
017150 



01 71 50 
017154 
017156 
017160 
017162 
017164 
017170 



CI 71 70 
01 71 76 
017202 
017206 
017212 
017216 



000404 
000240 
104000 
000137 



012737 
CI 2702 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
C00137 



004737 
004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 



012737 
012702 
112722 
112722 
112722 



017470 



000005 
001553 
000006 
000034 
000032 
000000 
000200 

036240 



017470 



035704 
036602 



035770 
017470 
044104 

017470 



000063 
001556 
000002 
000004 
000000 
000200 



3$: 



BR 
NOP 
EMT 
JMP 



3S 



18S 



VERIFY CWTROLLER ClEAR QPERATIOr, 

PACK ACXNOWLFDGE IF VOLUME NQT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 3S IF NO ERROR 

RETURN HERE IF ERRO'> 

ERROR ♦ DEFINED BY TSTPRP SUBROUTINE 

GO TO 18$ IF ERROR 



001412 



;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE 



4S: 



MOV 

MOV 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

JSR 

BR 

NOP 

EMT 

JMP 



#seek:go,rmcsio 

*PUTINX.R2 
#RMDA. (R2)+ 
#RMDC.(R2)+ 
<r'RM0F,(R2)* 
#RMCS1,(R2)* 
#200. (R2)* 

PC. PUT 
4$ 



18S 



CHANGE COMMAND 
;WRITE REGISTER 



ON CYLINDER 
TO SEEK 
INDEX TABLE 



GO WRITE REGISTEP(S) WHH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 



.•SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC.GETSTS .-SETUP FOR STATUS 

JSR PC.TIMOUT .-WAIT FOR SEEK TO COMPLETE 

5$: 



;G0 READ SEEK STATUS 



6$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
6$ 



18$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 



.•VERIFY THE RESULTS OF THE SEEK COMMAND 



7$: 



JSR 

BR 

NOP 

EMI 

JSR 

JMP 



PC.SEKSTS 
7$ 



pc.a(SP)* 

18$ 



GO VERIFY RESULTS OF SEEK OPERATION 
GO TO 7$ n NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY SEKSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 18$ IF ERROR 



00U12 



SETUP A,\D EXECUTE WRITE HEADER AND DATA COMMAND 



MOV #WH.G0,RMCS10 

MOV #PUTINX*5.R2 

M0V8 #RMWC.(R2)* 

M0V8 #RMBA.(R2)+ 

M0V8 *RMCS\fR2)* 

M0V6 #200. (R2)* 



.•WRITE HEADER AND DATA 
.•EXTEND REGISTER INDEX TABLE 



TV 

912 



913 
9U 
915 
916 
917 
918 



919 
920 
921 
922 



923 
92A 



92b 
926 



927 
928 
929 
930 
931 
932 



933 
934 
935 
936 
937 
938 



WM05/S/2 fCTNL 
FORMAT w/ hFAD 



TST 2 I1ACRC V04.00 4-APR-81 11:^3:33 
SWITCHING 



J 
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01 7222 
017226 
017230 
017232 
017234 
017240 



017244 
017250 
01 7252 
01 7254 
017256 
017262 



01 7262 
017266 
01 7270 
017272 
01 7274 
017276 
017302 
017302 
01 7306 
017310 
017312 
017314 
017316 
017322 
017322 
017326 
017330 
017332 
017334 
017336 
017342 



017350 
017354 
017356 
01 7360 
01 7362 
017366 



004757 
000404 
000240 
104000 
000137 



017240 004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
0001 37 

004737 
000405 
000240 
104000 
004736 
000157 



056240 

017470 

036602 
035770 

017470 

036766 

017470 
051502 

017^,70 
037620 

017470 



8S: 



jSR 

BR 

NOP 

EMT 

JMP 



PC. PUT 
8S 



18S 



GO WRITE REGISTER(S) WITH PuT SJBROUTJNf 

GO TO 8S IF ;40 ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BV PUT SUBROUTINE 

GO TO 18S IF ERROR 



.-WAIT FOR WRITE CO^WAND TO COMPLETE AND READ STATUS 

JSR PC.TIMOUT .-WAIT FOR COMMAND TO COMPLETE 



9$: 



jSR 

BR 

NOP 

EMT 

JMP 



PC, GET 
9$ 



18S 



;G0 READ REGI5TER(S) WITH GET iUBROuTlNt 

;G0 TO 9$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.-ERROR K DEFINED BY GET SUBROUTINE 

;60 TO 18S IF ERROR 



;VERIFY RESULTS OF WRITE COMMAND 



10$: 



11$: 



12$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.PRIERR 
10$ 



pc.a(SP)* 

18$ 

PC.DTASTS 
11$ 



pc.a(SP)* 

18$ 

PC.SECERR 
12$ 



pc,a(SP)* 

18$ 



GO CHECK FOR PRIMARY ERRORS 

GO ro 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUMNE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

60 TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR • 



CI 7342 012737 000053 001412 



.•WRITE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN 
MOV #WCH!G0.RMCS10 .'WRITE CHECK COMMAND 



004737 
0O0',04 
000240 
104000 
000137 



036240 



017470 



13$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, PUT 
13$ 



18$ 



;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 13$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.-ERROR # DEFINED BY PUT SUBROUTINE 

;G0 TO 18$ IF ERROR 



017366 00473/ 036602 

017372 004737 035770 

017376 000404 

017400 000240 

017402 104000 



.•WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 

JSR PC.TIMOUT .-WAIT FOR WRITE CHECK TO FINISH 



JSR 
BR 
NOP 
EMT 



PC.IET 



.•GO READ REGISTER(S) WITH GET SgBROU'INE 

.•GO TO 14$ IF NO ERROR 

.•RETURN HERE IF ERROR 

;ERROR « DEFINED BY GET SUBROUTINE 



ZRWNBO 

n2 



939 
9A0 
9A1 
942 



943 
9h4 



945 
946 



947 
948 
949 
950 
951 



RM05/^/2 FCTNL 
FORMAT U/ HEAD 



TST 2 "WCRO V04.00 4-APR-81 11:43:33 
SUITCHIMG 



K 

PAGE 
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13-30 



017404 
017410 



017410 
017414 
017416 
01 7420 
017422 
017424 
017430 
017430 
017434 
017436 
017440 
017442 
01 7444 
017450 
017450 
017454 
017456 
017460 
01 7462 
017464 
017470 

017470 



017470 
017470 
017472 
017474 
017500 
01 7504 
01 7510 



000137 017470 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
0001 37 

004737 
000405 
000240 
104000 
004736 
000137 



036766 

017470 
051502 

017470 
037620 

017470 



000004 
000240 
012706 
013700 
013701 
012737 



001100 
001276 
001466 
000013 



%3 
964 
965 



017570 
017574 
017576 
01 7602 
01 7604 
017610 
017610 
017616 



004737 
000405 
104401 
104000 
0001 37 

123737 
001 342 



033152 
063346 
020302 
001421 



14$: 



JMP 



18$ 



.-VERIFY THE RESULTS OF WRITE 



15$: 



16$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.PRIERR 
15$ 



PC.a(SP)+ 
18i 

PC.DTASTS 
16$ 



pc,a(SP)«- 

18$ 

PC.SECERR 
17$ 



pc,a(SP)+ 

18$ 



;G0 TO 18$ IF ERROR 



CHECK OPERATION 

GO CHECK FOR PRIMARY ERRORS 
60 TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PRIERR SUBPOUTINE 
60 BACK FOR MORE ERROR CHECKS 
60 TO 18$ IF ERROR 

60 VERIFY RESULTS OF DATA TRANSFER 
GO TO 16$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
60 BACK FOR MORE ERROR CHECKS 
GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
60 TO 17$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS . 
GO TO 18$ IF ERROR ' 



17$: 
18$: 

••••••»**•*•*•••••****•••*•*•*•*••*•**•********•**•*****••**•••** 

•West 13 format w/ mid transfer seek 
••••*»*»***•*•*****••***♦••***»*******•***•****•***•**••**••*•**• 

TST13: 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



*STACK,SP 
$8ASE,R0 
TSTQUE,R1 
Xfl3,$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEIN6 TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



952 










953 










954 


017516 


012737 


000000 


001446 


955 


017524 


013737 


001334 


001420 


956 


017532 


112737 


000037 


001420 


957 


017540 


012737 


010000 


001444 


958 


017546 


012737 


1 76774 


001414 


959 


017554 


012737 


101360 


001416 


960 


017562 


012737 


000062 


001412 


961 










962 











.-SETUP PARAMETERS FOR GENERATIN6 DATA BUFFER 



MOV xrO.ftMDCO 

1$: MOV LSTRK.RMDAO 

M0V8 <r31.,RMDA0 

MOV #fMT16,RM0F0 

MOV #-258.*2,RMWC0 

MOV *8UF0N£.RMBA0 

MOV *WH,RMCS10 

.-VERIFY THAT SECTOR IS NOT BAD 



001335 



2$: 



JSR 

BR 

TYPE 

EMT 

JMP 

CMP8 
BNE 



PC.BADSCT 
2$ 
.SCTMSC 

19$ 

RMDA0*1.LSTRK*1 
1$ 



CYLINDER = 0 
START LAST TRACK AND 
LAST SECTOR 
16 BIT FORMAT 

WORD COU.«r FOR 2 SECTORS (2'S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 



.•CALL BAD SECTOR MODULE 

;60 TO 2$ IF NO ERROR 

;TYPE BAD SECTOR MESSAGE 

.-ERROR # DEFINED BY BADSCT SUBROUTINE 

;G0 TO 19$ IF ERROR 

;IS LAST TRACK ASSIGNED 
;8R IF NO 



'ZRMNBO 

966 

967 

968 

969 

970 

971 

972 



973 
97A 
975 
976 
977 
978 
979 
980 
981 
982 
983 
98A 



985 
986 
987 
988 
989 
990 
991 
992 
993 



994 
995 
996 
997 



RM05/3 
FORMAT 

01 7620 
01 7626 
01 7634 
017640 



017640 
017644 



'2 FCTNL TST 2 
W/ HID TRANSFER 



017646 
01 7650 
017652 
01 7654 
01 7660 



01 7744 
017750 
017752 
017754 
017756 
017762 



01 7762 
017766 
01 7770 
01 777? 
01 7774 
017776 



012737 
012737 
004737 



004737 
154130 



065000 
C00001 
035104 



0321 76 



MACRO 
SEEK 

001 1 74 
001176 



\/04.00 4-APR-81 11:43:33 



L 
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SEO 0102 



000404 
000240 
104000 
000137 



020302 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 



035770 



0^0302 



044104 



020302 



3$: 



MOV 
MOV 
jSR 



♦ZEROS. ITMPO 

#1.$TMP1 

PC.6E^euF 



;USE ALL ZEROS DATA PATTERN 
;G0 GENERATE DATA BUFFER 



.-PREPARE DEVICE 
JSR 
.WORD 



FOR DATA TRANSFER 
PC.TS^PRP 
154130 



4S: 



BR 
NOP 
EMT 
JMP 



4S 



19$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE ft VERI^v DEVICE AVAILABLE 

Clear controller ft select device 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VtRIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'VIP" IS SET 

VERIFY RECALIBRATION 

60 TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 19$ IF ERROR 



01 7660 


012737 


000005 001412 


017666 


012702 


001553 


017672 


112722 


000006 


01 7676 


112722 


000034 


017702 


112722 


000032 


01 7706 


112722 


000000 


017712 


112722 


000200 


017716 


004737 


036240 


017722 


000404 




017724 


000240 




01 7726 


104000 




017730 


000137 


020302 


01 7734 






01 7734 


004737 


035704 


01 7740 


004737 


036602 


01 7744 







.-SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 



5$: 



MOV 
MOV 
M0V8 
MOVE 
MOVB 
M0V8 
M0V8 

JSR 

BR 

NOP 

EMT 

JMP 



#SEfcKl60.RMCS10 .-CHANGE COMMAND TO SEEK 



*PUTINX.R2 
#RMDA.(R2)+ 
*RMDC,(R2)+ 
#RM0F.(R2)* 
tfRMCSl.(R2)* 
#200,(R2)+ 

PC.PUT 
5$ 



19$ 



.-WRITE REGISTER INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 19$ IF ERROR 



.-SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC.6ETSTS .-SETUP FOR STATUS 

JSR PCTIMOUT .-WAIT FOR SEEK TO COMPLETE 

6$: 



;G0 READ SEEK STATUS 



7$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
7$ 



19$ 



;G0 READ RtGISTER(S) WITH GET SUBROUTINE 

;G0 TO 7$ IF NO ERROR 

; RE TURN HERE IF ERROR 

.-ERROR * DEFINED BY GET SUBROUTINE 

.-GO TO 19$ IF ERROR 



.-VERIFY THE RESULTS OF THE SEEK COMMAND 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.SEKSTS 
8$ 



PC.i(SP)* 
19$ 



GO VERIFY RESULTS OF SEEK OPERATION 
GO TO 8$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY SEKSTS SUBROUTINE 
60 BACK FOR MORE ERROR CHECKS 
GO TO 19$ IF ERROR 



ZRWJBO 

998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 



1009 
1010 
1011 
1012 
1015 
^OU 



1015 
1016 
1017 
1018 



1019 
1020 



1021 
1022 



1023 
102A 
1025 
1026 
1027 
1028 



RM05/5/? FCTNL TST 2 MACRO 
FORMAT w/ MID TRANSFER SEEK 

020002 



020056 
020062 
02006A 
020066 
020070 
020074 



020074 
020100 
020102 
020104 
020106 
020110 
020114 
020114 
020120 
020122 
020124 
020126 
020130 
020134 
020134 
020140 
020142 
020144 
020146 
020150 
020154 



020162 
020166 
0201 70 
0201 72 



V04.00 4-APR-81 n;43:53 



8t: 
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020002 


012737 


000063 001*12 


MOV 


020010 


012702 


001556 


MOV 


020014 


112722 


000002 


M0V8 


020020 


112722 


000004 


MOVB 


020024 


112722 


000000 


M0V8 


UeUUSU 


1 1 ■3733 
1 \cf CC 


UUUcUU 


MHUR 

nuvo 


020034 


004737 


036240 


JSR 


020040 


000404 




BR 


020042 


000240 




NOP 


020044 


104000 




EMT 


020046 


000137 


020302 


JMP 


020052 




9$: 








.WAIT 


FOR WRITE 


020052 


004737 


036602 


JSR 



.-SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



020154 012 '37 



00^737 
000404 
000240 
1C/4000 



035770 
02030*: 
036766 

020302 
051502 

020302 
037620 

020302 

000053 
036240 



10$: 



JSR 

BR 

NOP 

EMT 

JMP 



*UH!G0,RMCS10 
*PUTINX*3.R2 
*RMWC,(R2)* 
*RMBA.(R2>* 
#RMCS1 ,(R2)* 
*200.(R2)* 

PC.PUT 
9$ 



19S 



PC.TJMOUT 

PC. GET 
10$ 



11$: 



12$: 



13$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



19$ 



.•WRITE HEADER AND DATA 
.•EXTEND REGISTER INDEX TABLE 



GO WRITE REGISTER(S> WITH PUT SUBROUTINE 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 19$ IF ERROR 



.•WAIT FOR COMMAND TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTlNt 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 19$ IF ERROR 



.•VERIFY RESULTS 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 



OF WRITE COMMAND 

PC.PRIERR 

11$ 



PC.aCSP)* 
19$ 

PC.DTASTS 
12$ 



pc.a(SP)* 

19$ 

PC.SECERR 
13$ 



pc,a(SP)* 

19$ 



GO CHECK FOP PRIMARY ERRORS 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 19$ If ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR M DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 19$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 19$ IF ERROR 



001412 



;WRITE CHECK HEADER AND DATA FOR SECTORS JLST WRITTEN 
MOV #WCH!G0.RMCS10 ;WR]TE CHECK COMMAND 



JSR 
BR 
NOP 
EMT 



PC, PUT 
14$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 



CZRMNBO RM05/V2 FCTNL TST 2 flACRO V04.00 
115 FORMAT U/ MID TRANSFER SEE< 



N 8 
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1029 
1050 
1031 
1032 
1055 
1034 



1055 
1056 
1057 
1038 



1059 
1040 



1041 
1042 



1043 
1044 
1045 
1046 
1047 



0201/4 
020200 



00137 020302 



02C200 004757 



020204 
020210 
020212 
020214 
020216 
020222 



020222 
020226 
020230 
020232 
020234 
C20256 
020242 
020242 
020246 
020250 
020252 
020254 
020256 
020262 
020262 
020266 
020270 
020272 
020274 
020276 
020302 

020302 



020302 
020302 
020304 
020306 
020312 
020316 
020322 

1048 
1049 

1050 020330 

1051 020336 

1052 020344 

1053 020352 

1054 020360 
105*: 020366 
1056 



00^.737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004757 
000405 
000240 
104000 
004756 
000157 

004737 
000405 
000240 
•■04000 
004736 
000137 



000004 
000240 
012706 
013700 
013701 
012737 



012737 
012737 
012737 
012737 
012737 
012737 



036602 
035770 

020302 

036766 

020502 
051502 

020302 
037620 

020302 



oonoo 

001276 
001466 
000014 



000000 
000000 
010000 
176774 
101360 
000062 



14$: 



JMP 



19$ 



;G0 TO 19$ IF ERROR 



.•WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 

JSR PC.TIMOUT * .-WAIT FOR WRITE CHECK TO FINISH 



15$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, GET 
15$ 



19$ 



.-VERIFY THE RESULTS OF WRI-TE 



16$: 



17$: 



18$: 
19$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.PRIERR 
16$ 



pc.a(SP)+ 

19$ 

PC.OTASTS 
17$ 



pc.a(SP)* 

19$ 

PCSECERR 
18$ 



PC.a(SP)+ 

19$ 



;60 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 15$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 19$ IF ERROR 



CHECK OPERATION 

GO CHECK FOR PRIMARY. ERRORS 
GO TO 16$ IF NO ERROR 
RETURN HERE 'F '"iROR 
ERROR * DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 19$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 17$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR M DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 19$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 18$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR ft DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 19$ IF ERROR 



' *********** 



♦TEST 14 



' *********** 



**************************************************** 

' FORMAT W/ IMPLIED SEEK 
**************************************************** 



TST14; 



001226 



001446 
001420 
001444 
001414 
001416 
0014^2 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



*STACK.SP 
$8ASE.R0 
TSTQUE.R1 
*14,$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



.-SETUP PARAMETERS FOR GENERATING DATA BUFFER 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



*0.RMDC0 
*0,RMDA0 
*FMT16,RM0F0 
*-258.*2,RMWC0 
#BUF0NE.RMBA0 
/rWH.RMCSlO 



CYLINDER = 0 
TRACK = 0. SECTOR = 0 
16 BIT FORMAT 

WORD COUNT FOR 2 SECTORS (2'S ^OMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 



Jtt^C ftM05/3/2 fCTNL TST 2 

fO«MAT w/ IW>LIED SEEtt 



HACRO V(K.OO 4-APR-81 
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SEO 



#■ r ■> 








« V CO T C w 


THAT SECTOR IS NOT BAD 












JSR 


PC .8ADSCT 


LALL OAy >tt.'UH nUPUl t 


0?0*»00 


000405 








BR 


1$ 


GO TO 1$ IF NO ' 'ROR 




1 rty y n 1 


AX 7 T/ 






TVPE 


.SCTMSG 


TVPE BAD SECTOR MESSAGE 


0?(K06 


1 Ay AAA 












•ERROR # DEFINED BY BAD'CT SUBROUTINE 




000' 3/^ 


Ocl 1 cO 






JWP 


18$ 


•GO TO 18$ IF ERROR 


058 020*»K 








1»: 








1059 OZvKH 


\j\27b7 


/w C AAA 

065000 


AA1 17/ 

001 1/^4 




nov 


#ZEftOS,STMPO ;USE Ml ZEROS DATA PATTERN 


lOoO 'jd\y*22 


\3\27b7 


AAAAA1 

00000 1 


00 ■ 1 '^o 




HOV 


*1 .STMPI 




1 UO 1 Uc Wt jU 










JSR 


pc.GC^euF 


;f.O GENERATE DATA BUFFER 


1062 020434 








2$: 








10o5 
















1064 








;PREPAPE DEVICE 


FOR DATA TRAfJSFER 


1065 020434 


004737 


032176 






JSR 


PC.TSTPRP 


.■PREPARE DEVICE FOR TEST 


020440 


154150 








.yORD 


154130 


;TAS»( DESCRIPTOR AS FOLLOWS: 



020442 
020444 
020446 
020450 

1066 020454 

1067 

1068 

1069 020454 
^070 020462 

1071 020470 

1072 020476 

1073 020502 

1074 020506 

1075 020512 

1076 020516 

1077 0205^2 
1078 

1079 020526 
020532 
C20534 
020536 
020540 

1080 020544 
1081 

1082 

1083 020544 
lOiA 020550 
1085 020554 
1086 
1087 

1088 020554 
020560 
020562 
020564 
020566 



000404 
000240 
10400C 
0001 37 



013737 
012737 
012737 
012702 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
0001 37 



004757 
004757 



004737 
000404 
C00240 
104000 
000157 



021120 



00U46 
001466 
000005 
001553 
000006 
000034 
000052 
000000 
000200 

036240 



021120 



035704 
036602 



035770 



021120 



3$: 



BR 
NOP 
EMT 
JMP 



3$ 



18$ 



SELECT DEVICE & VERIFY DEVICE AVAlLABif 
CLEAR CONTROLLER t SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP"* IS SET 
VERIFY RECALIBRATJON 
60 TO 5$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 18$ IF ERROR 



021122 
001446 
001412 



.•SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE OFF CYLINDER 



4$: 



MOV 

MOV 

MOV 

MOV 

M0V8 

MOVB 

M0V8 

M0V8 

MOVB 

JSR 

BR 

NOP 

FMT 

JMP 



RMDC0,1o$ 
#822..RMDC0 
#SEEK;G0,RMfS10 
#PUT1NX.R2 
*RMDA.{R2)* 
*RMDC,(R2)* 
#RM0F.(R2)* 
#RMCS1.{R2)* 
#200. (R2)* 

PC. PUT 
4$ 



18$ 



SAVE CYLINDER ADDRESS 
SEEK TO LAST CYLINDER 
CHANGE COMMAND TO SEEK 
WRITE REGISTER INDEX TABLE 



60 WRITE REGISTER<S) WITH PU' SUBROUTINF 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 



.SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 

JSR PC.GETSTS .-SETUP FOR STATUS 

JSR PC.TIMOUT .-WAIT FOR SEEK TO COMPLETE 

5$: 



;G0 READ SEEK 
JSR 
BR 
NOP 
EMT 
JMP 



STATUS 
PC.GE^ 
6$ 



18$ 



GO READ RE6ISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

60 TO 18$ IF ERROR 



'K 

1089 
1090 
1091 
1092 



1093 
109A 
1095 
10% 
1097 
1098 
1099 
r JO 
1101 
1102 
1103 



1105 
1106 
1107 
1108 
1109 
1110 



RM05/3/2 KTNL TST 2 
FORMA' W/ IMPLIED SEEK 



r 11 

-112 
1113 
11U 



1115 
1116 



1117 
1M8 



020572 



020572 
020576 
C?0600 
02'''S02 
0Z360A 
020606 
020612 



0?0612 
020620 
020626 
020632 
020636 
020642 
020646 

020652 
020656 
020660 
020662 
020664 
020670 



02067A 
020700 
020702 
020704 
020706 
020712 



020712 
020716 
020720 
C20722 
020724 
020726 
020732 
020732 
020736 
020740 
020742 
020744 
020746 
020752 
020752 
020756 
020760 
020762 
020764 



00473/ 
000405 
000240 
104000 
004736 
000137 



013737 
012737 
012702 
112722 
112^22 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



020670 004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 



044104 



021120 



021122 
000063 
001556 
000002 
000004 
000000 
000200 

036240 



021120 

036602 
035770 

021120 

036766 

021120 
051502 

021120 
037620 



MACRO V04.00 



6S: 



C 9 
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;VERIFr THE RESULTS OF THE SEEK 



7$: 



JSR 
BR 
NOP 
EMT 
JSR 
JinP 



PC.SEKSTS 
7$ 



18$ 



COMMAND 

GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 



001446 
001412 



; SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 



8$: 



MOV 
MOV 

rwv 

M0V8 
M0V8 
MOVB 
M0V8 

JSR 

8R 

NOP 

EMT 

JMP 



19$.RMDC0 
*WH!G0,RMCS10 
#PUTINX+3.R2 
#RMWC.(R2)* 
#RMBA,(R2)* 
#RMCS1,(R2)* 
#200. (R2)* 

PC.PUT 
8$ 



18$ 



RESTORE DISK ADDRESS 
WRITE HEADER AND DATA 
EXTEND REGISTER INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 



;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

JSR OC.TIMOUT ;WAiT FOR COMMAND TO COMPLETE 



9$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, GET 
9$ 



18$ 



.-VERIFY RESULTS OF WRITl COMMAND 



10$: 



11$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 
BR 
NOP 
EMT 

JSR 



PC. PR I ERR 
10$ 



PC.a(SP)* 
18$ 

PC.DTASTS 
11$ 



pc.a(SP)* 

18$ 

PC.SECERR 
12$ 



pc.a(sp)* 



GO READ REGISTER(S) WITH GET SUBROUTINE 

60 TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 



GO CHECK FOR PRIMARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

60 VERIFY RESULTS OF DATA TRANSFER 

GO TO 11$ IF NO FRROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SLflROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

60 TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SEfERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



7St'»1^eO RMOS/3/2 FCTNL TST 2 
"A FOHMAT w/ IMPLIED SEEK 



D 9 
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SEO 010/ 



in9 
ii?o 

1121 
112? 
1123 
112A 



1125 
1126 
1127 
1128 
1129 
1130 



1131 
1132 
1133 
1134 



1135 
'136 



1137 
1138 



1139 
1140 
1U1 
1U2 
1U3 
1K4 
1K5 
'U6 
1*47 



020766 
020772 



000137 021120 



12$: 



les 



;G0 TO 18$ If ERROR 



020772 012737 



021000 
021004 
021006 
021010 
021012 
021016 



004737 
000404 
000240 
104000 
000137 



021016 004737 



021022 
021026 
021030 
021032 
021034 
021040 



021040 
021044 
021046 
021050 
021052 
021054 
021060 
021060 
021064 
021066 
021070 
021072 
021074 
021100 
021100 
021104 
021106 
C21110 
021112 
021114 
021120 

021120 

0^1122 

021124 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



000401 
000000 



000053 
036240 

021120 

036602 
035770 

021^20 

036766 

021120 
051502 

021120 
037620 

021120 



;WR1TE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN 
001412 NOV #WCH:G0,RnCS10 .'WRITE CHECK COMMAND 



13$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. PUT 
13$ 



18$ 



GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 



.•WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 

JSR PC.TIMOUT .-WAIT FO^ WRITE CHECK TO FINISH 



14$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
14$ 



18$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR M DEFINED BY GET SUBROUTINE 

60 TO 18$ If ERROR 



.•VERIFY THE PLSULTS OF WRITE CHECK OPERATION 
JSR 



15$: 



16$: 



17$: 
18$: 
19$^ 
20$: 



BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



BR 

.WORD 



PC.PRIERR 
15$ 



PC.a(SP)* 
18$ 

PC.DTASTS 
16$ 



PC.i<SP)* 
18$ 

PC.SECERR 
17$ 



PC,a(SP)* 
18$ 



20$ 

0 



GO CHECK FOR PRIMARY ERRORS 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 18$ IF ERROR 

60 VERIFY RESULTS OF DATA TRANSFER 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTAbTS SUBROUTINE 

60 BACK FOR MORt ERROR CHECKS 

60 TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

60 TO 18$ IF ERROR 



.•TEMPORARY STORAGE 



021124 



000004 



•TEST 15 

"TSTIS: 



FORMAT EACH SECTOR ADDRESS 
SCOPE .-SCOPE CALL 



FORMAT EACH SECTOR 



2 HACRO 
ADDRESS 



VGA. GO 4-APR-81 11:43:33 



E 

PAGE 



13-37 



SEQ 0108 



1U8 
1U9 
MSG 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 



021126 
021130 
021134 
021140 
021144 



021152 
021160 
021166 
021174 
021174 
021202 
021210 



000240 
012706 
013700 
013701 
012737 



012737 
012737 
012737 

012737 
012737 
012737 



con 00 

001276 
001466 
000015 



000000 
000000 
010000 

177376 
101360 
000062 



001226 



001446 
001420 
001444 

001414 
001416 
001412 



NOP 
MOV 
MOV 
MOV 
MOV 



#STACIC,SP 
$8ASE ,R0 
TST0UE,R1 
#15.$TESTN 



START OF TEST 

INITIALIZE STACK POINTER 

RG = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NLMBER IN APT MAIL 



BCK 



MOV 


#0.RMDCO 


CYLINDER = 0 


MOV 


#0.fiMDAO 


TRACK = 0. SECTOR = 0 


MOV 


#F^T16.RM0F0 


•16 BIT FORMAT 


MOV 


#-258..RMUCO 


2 ♦ 256 WORDS (2'S COMP^ 


MOV 


*8UFONE.RMBA0 


■DATA BUFFER ADDRESS 


MOV 


#WH,RMCSin 


•WRITE HEADER AND DATA 



021216 


004737 


033152 






JSR 


021222 


000405 








BR 


021224 


104401 


063346 






'YPE 


021230 


104000 








EMT 


021232 


000137 


021666 






JMP 


1159 021236 








2$: 




1160 021236 


012737 


001420 


001 1 74 




MOV 


1161 021244 


012737 


000001 


001176 




MOV 


.1162 021252 


004737. 


035104 






JSR 


1163 021256 








3$: 




1164 












1165 








.•PREPARE DEVICE 


1166 021256 


004737 


032176 






JSR 


021262 


154130 








.WORD 



.-SETUP PARAMETERS FOR GENERATING DATA BUFFER 



1$: 



VERIFY THAT SECTOR IS NOT BAD 
PC.QADSCT 
2S 

.SCTMSG 
16$ 

ffRMDAO.STMPO 
#1.$TMP1 

PC.GENBUF 



CALL BAD SECTOR MODULE 

GO TO 2$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR # DEFINED BY BADSCT SU8R0UTINF 

GO TO 16$ IF ERROR 

.-USE SECTOR FOR DATA PATTERN 

;G0 GENERATE DATA BUFFER 



FOR DATA TRANSFER 
PC.TSTPRP 
154130 



1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 



021264 
021266 
021270 
021272 
021 276 



021276 
021304 
021310 
021314 
021320 
021324 
021 330 
021334 
021340 

021344 
021350 
021352 



000404 
000240 
104000 
000137 



012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 



021666 



000063 
001553 
000006 
000034 
000032 
000002 
000004 
000000 
000200 

036240 



4$: 



BR 
NOP 
EMT 
JMP 



16$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE i VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER £ SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNCJcEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
"JECALI8RATE JF "'SKI" OR 'PIP" IS SET 
\ERIFY RECALI8RATI0N 
6v1 TO 4$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TS^PRP SUBROUTINE 
GO TO 16$ IF ERROR 



001412 



; SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 



MOV *WH!G0,RMCS10 

MOV *PUTJNX.R2 

M0V8 #RMDA.(R2)+ 

M0V8 *RMDC,(R2)* 

M0V8 #RM0F.(R2)* 

Move *RMWr.(R2)* 

M0V8 #RMRA.(R2)* 

M0V8 #RMCS1,(R2)* 

MOVB *200.(R2)* 

JSR C'C.PUT 

BR 5$ 

NOP 



.•WRITE HEADER AND DATA 
.•WRITE REGISTER INDEX TABLE 



GO WRITE REGISTER(:>) 
GO TO 5$ IF NO ERROR 
RETURN HERE IF ERROR 



WITH PUT SUBROUTINE 



"H«*«0 fCTNL TST 2 ^CRO VOA.OO 

FORMAT EACH SECTOR ADDRESS 



F 9 
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'.181 
n82 
M83 
118A 
1185 
1'86 
"187 



1168 
1189 
1190 
1191 



••192 
•193 



119A 
1195 



^'96 
1197 
T198 
1199 
1200 
VC1 
1202 



1203 
VOA 
1205 
1206 
1207 
1208 



021 35A 
021356 
021362 



021362 
021366 

021 372 
021376 
02U00 
02K02 
02U04 
02U10 



02K10 
0?UK 
02U16 
C2K20 
02K22 
02K2A 
02U30 
02U30 
02U3A 
02U36 
02UA0 
02K42 
02UAA 
02U50 
02U50 
021454 
021456 
021460 
021462 
02U64 
021470 



021470 
021476 

021504 
021510 
021512 
0215K 
021516 
021522 



104000 
000137 



C04737 
004757 

004737 
000404 
000240 
10A000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
C00405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



012737 
012737 

004737 
000404 
000240 
104000 
000137 



021522 004737 



021526 
021532 
021534 
021536 
021540 



004737 
000404 
000240 
104000 
000137 



021666 



035704 
036602 

035770 



021666 
036766 

021666 
051502 

021666 
037620 

021666 

000073 
102364 

036240 

021666 

036602 
035770 

021666 



5$: 



EMT 



16$ 



.•ERROR * DEFINED BY PL'T SUBROUTINE 
;G0 TO 16$ IF ERROR 



.•SETUP IN»UT REGISTER BUFFER FOR READING STATUS 
JSR OC.GETSTS 

JSR PC.TIMOUT ;UAIT FOR COWAND TO COMPLETE 



6$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, GET 
6S 



16$ 



;G0 READ REGISTER(S) UHH GET SUBROUTINE 

;G0 TO 6$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR * DEFINED BY GET SUBROUTINE 

;G0 TO 16$ IF ERROR 



.•VERIFY RESULTS 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 



7$: 



8$: 



9$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



OF WRITE COMMAND 
PC.PRIERR 
7$ 



PC.a(SP)* 

'6$ 

PCDTASTS 
8$ 



pc.a(SP)* 

16$ 

PC.SECERR 
9$ 



pc.a(SP)+ 

16$ 



GO CHECK FOR PRIMARY ERRORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 9$ "F NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 



001412 
001416 



;READ HEADER AND DATA FOR SECTOR JUST WRITTEN 

MOV *RH!G0.RMC310 ;READ HEADER & DATA COMMAND 
MOV «8UFTW0,RMBAC .'CHANGE BUS ADDRESS 



10$: 
.•WAIT 



JSR 

BR 

NOP 

EMT 

JMP 



FOR READ 
JSR 

JSR 

BR 

NOP 

EM^ 

JMP 



PC. PUT 
10$ 



16$ 



TO COMPLETE 
PC.TIMOUT 

PC -GET 
111 



"t$ 



;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 10$ IF NO ERROR 

.■RETURN HERE IF ERROR 

.•ERROR * DEFINED BY PUT SUBROUTINE 

;G0 TO 16$ IF ERROR 



AND GET STATUS 

.•WAIT FOR READ TO COMPLETE 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 

.■GO TO 11$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.■ERROR # DEFINED BY GET SUBROUTINE 

.•GO TO 16$ IF ERROR 



1 c 



V09 
1212 



1213 
'2U 



•2^5 



1217 
^218 
1219 
1220 



^221 
1222 
1225 
122A 
1225 
1226 
1227 
1228 
1229 
1230 



1251 
1232 
1233 
1234 
123'; 



RM05/3/2 fCTM TST 
fORMAT EACH SECTOR 



2 MACRO 
ADDRESS 



V04.00 <.-APR-81 11:43:33 



G 9 
PAGE 13-59 



02154.4 



021544 
021550 
021552 
021554 
021556 
02)560 
021564 
021564 
021570 
021 572 
021574 
021576 
02^600 
021604 
021604 
021610 
021612 
021614 
021616 
021620 
021624 



021624 
021630 
021632 
021634 
021636 
021640 
021642 



021646 
021646 
021652 
021660 
021662 
021666 



021666 
021666 
021670 
021672 
021676 
021702 
021706 



021 7U 
021722 
021730 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
0001 37 



004737 
101360 
102364 
000404 
000240 
104000 
000137 



005237 

103402 
000137 



000004 
000240 
012706 
013700 
013701 
012737 



11$: 



036766 

02''666 
051502 

021666 
037620 

021666 

035342 

021666 



001420 

000037 001420 
021174 



12S: 



;VERIFV THE RESULTS OF READ 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 
BR 
NOP 
EMT 
JSR 
JMP 



13$: 



14$: 

.•VERIFY DATA 
JSR 
.WORD 
• WORD 
BR 
NOP 
EMT 
JW> 



OPERATION 

PC.PRIERR ;G0 CHECK FOR PRirWRY ERRORS 

12$ ;G0 TO 12$ IF NO ERROR 

.•RETURN HERE IF ERROR 
.•ERROR * DEFINED BY PRIERR SUBROUTiNt 
PC.a(SP)* ;G0 BACK FOR MORE ERROR CHECKS 

16$ :G0 TO 16$ IF ERROR 

PCDTASTS ;G0 VERIFY RESULTS OF DATA TRANSFER 

13$ ;G0 TO 13$ IF NO ERROR 

.•RETURN HERE IF ERROR 
.•ERROR # DEFINED BY DTASTS SUBROUTINE 
PC.a(SP)* .-GO BACK FOR MORE ERROR CHECKS 

16$ .-GO 10 16$ IF ERROR 

PC.SECERR ;G0 CHECK FOR SECONDARY ERRORS 

14$ ;G0 TO 14$ IF NO ERROR 

.•RETURN HERE IF ERROR 
.•ERROR * DEFINED BY SECESR SUBROUTINE 
PC.a(SP)* ;60 BACK FOR MORE ERROR CHECKS 

16$ ;60 TO 16$ IF ERROR 



PC. CMPBUF ;G0 COMPARE WRITE. READ DATA BUFFERS 

BUFONE ; STARTING ADDRESS OF WRITE BUFFER 

BJFTWO .-STARTING ADDRESS OF READ BUFFER 

15$ ;G0 TO 15$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR * DEFINED BY CMPBUF SUBROUTINE 
16$ ;G0 TO 16$ IF ERROR 



; INCREMENT ADDRESS AND FORMAT NEXT SECTOR 



15$: 



16$: 



INC 
CMP8 
6L0 
JMP 



RMDAO 

*31..RMDA0 

16$ 

1$ 



ADVANCE SECTOR COUNT 
DONE ALL SECTORS?? 
YES I : 

GO DO NEXT SECTOR 



••»»♦♦**♦»*»•♦«»»»»»»«»♦*»♦•»«♦»♦♦**♦»♦*»»•»♦*••»•••***•••••»•*•* 

;**TEST 16 FORMAT EACH TRACK ADDRESS 

••♦*«»»»»♦♦»■»•*»**»••»**♦**»*»»♦•*••••*»•*»••♦••»»*•»»•»*•*•*•»•* 

tST16: 



001100 
001276 
001466 
000016 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



^STACK.SP 
$8ASE.R0 
TSTOUE.RI 
*16.$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO - UNI8US ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



012737 000000 001446 
012737 000000 001420 
012737 010000 001444 



.-SETUP PARAMETERS FOR GENERATING DATA BUFFER 



MOV *0,RMDCO 
MOV *0. RMDAO 
M0\/ <fFMn6,RMOF0 



CYLINDER = 0 
TRACK = 0. SECTOR 
16 BIT FORMAT 



■^6 
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H 

PAGE 



9 

13-^U 



V36 


021736 








IS: 




^237 


021736 


012737 


177376 


001414 




MOV 


1238 


021744 


012737 


101360 


001416 




MOV 


1239 


021752 


012737 


000062 


001412 




MOV 


1240 
'241 






















.•VERIFY 


THAT SE 


021760 
021764 


004737 
000405 


033152 




JSR 
BR 




021766 


104401 


063346 






TYPE 




021772 


104000 








FMT 




021 774 


000137 


022430 






JMP 


12-2 


022000 








2S: 




1243 


022000 


012737 


001420 


001 1 74 




MOV 


1244 


'72006 


012737 


000001 


001 1 76 




MOV 


1245 


022014 


004737 


035104 






JSR 


1246 


022020 








3$: 




1247 














1248 










.•PREPARE DEVICE 


1249 


022020 
C22024 


004737 
154130 


032176 






JSR 
.WORD 



#-258..RMyC0 

«8UF0NE,RMBA0 

#WH,RMCS10 

:tor is not bad 

PC.8ADSCT 
2$ 

,SCTMSG 
16$ 

#RMDAO,$TMPO 
#1 .STMPI 
PC.GENBUF 



2 ♦ 256 WORDS f2'S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 



CACL BAD SECTOR MODULE 

GO TO 2S IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR # DEFINED BY 8ADSCT SUBROUTINE 

GO TO 16$ IF ERROR 

;USE TRACK FOR DATA PAT-T^RN 

;60 GENERATE DATA BUFFER 



FOR DATA TRANSFER 
PC.TSTPRP 
154130 



022026 
022030 
022032 
022034 

125U 022040 

1251 

1252 

1253 022040 

1254 022046 

1255 022052 

1256 022056 

1257 022062 

1258 022066 

1259 022072 

1260 022076 

1261 022102 
1262 

1263 022106 
022112 
022114 
022116 
022120 

1264 022^24 
1265 

1266 

126/' 022124 
1268 022130 
1269 

1270 022134 
022HC 



000404 
000240 
104000 
000137 



012737 
012702 
112722 
112722 
112722 
^^2722 
^^2722 
M2722 
n2722 

004737 
000404 
000240 
104000 
000137 



004737 
004737 

004757 
000404 



022430 



000063 
001553 
000006 
000034 
000032 
000002 
000004 
000000 
000200 

036240 



022430 



035704 
036602 

035770 



4$: 



BR 
NOP 
EMT 
JMP 



4$ 



16$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE £ VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR 'VIP" IS SET 
VERIFY RE CALIBRATION 
GO TO 4$ IF NO ERrOR 
RETURN HERE IF ERROR 
ERROR (t DEFINED BY TSTPRP SUBROUTINE 
GO TO '6$ IF ERROR 



0014^2 



;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 



5$: 



MOV 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



#WH!G0.RMCS1C 

#PUTINX,R2 

#RMDA, (R2)* 

#RMDC.(R2)* 

*RM0F,(R2)+ 

»mJQAR2)* 

#RMBA,(R2)* 

*RMCS1 .(R2)* 

#200.(R2)+ 

PC. PUT 
5$ 



16$ 



.•WRITE HEADER AND DATA 
.■WRITE REGISTER INDEX TABLE 



GO WRITF REGISTER(S) WITH PUT SUBROUTINE 
GO TO 5$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PUT SUBROUTINE 
GO TO 16$ IF ERROR 



iSETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PCGETS^S 

JSR PC.TIMOUT .-WAIT FOR COMMAND TO COMPLETE 



JSR 
BR 



PC, GET 
6$ 



;60 READ REGISTER(S) WITH GET SUBROUTINE 
;G0 TO 6$ IF NO ERROR 



ZS^MNBO FCTNL TST 2 1ACR0 VCK.OO 
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1271 
1272 
1273 
1274 



1275 
^276 



V77 
1278 



1279 
1280 
1281 
1282 
1283 
128^. 
1285 



1286 
1287 
1288 
1289 
1290 
1291 



1292 
1293 
1294 
1295 



022142 
022144 
022146 
022152 



022152 
022156 
022160 
022162 
022164 
022166 
022172 
022172 
022176 
022200 
022202 
022204 
022206 
C22212 
022212 
022216 
022220 
022222 
02222^, 
02222b 
022252 



02^252 
0^?2240 

022246 
022252 
022254 
022256 
022260 
U22264 



022270 
022274 
022276 
022300 
022302 
022306 



022306 
022312 
022314 
022316 
0223?0 
022322 
022326 



000240 
104000 
000137 



004737 
000405 
000240 
104000 
004756 
0001 37 

004737 
000405 
000240 
104000 
004736 
0001 37 

004737 
000405 
000240 
104000 
004736 
000137 



012737 
012737 

004737 
000404 
000240 
104000 
000137 



022264 004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 



022430 
036766 

022430 
051502 

022430 
037620 

022430 



000073 
102364 

036240 



022430 

036602 
035770 

022430 

036766 

022430 



6S: 



NOP 
E«T 

JMP 16S 



;,/ER]FY RESULTS OF WRITE COMMAND 



7$; 



8$: 



9$: 



JSR 
BR 
NOP 
EMT 

JSR 
JW 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC. PR I ERR 
7$ 



pc.acsp)*- 

16$ 

PC.DTASTS 
8S 



pc.a(sp>+ 

16S 

PC.SECERR 
9S 



PC.a(SP)+ 

16$ 



RETURN HERE IF ERROR 

ERROR » DEFINED Br GET Si^ROUTINf 

GO TO 16$ IF ERROR 



GO CHECK FOR PRIMARY ERRORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

CO TO 9$ IF NO ERROR . 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 



001412 
001416 



.-READ HEADER AND DATA FOR SECTOR JUST WRITTEN 

MOV *RH.G0.RMCS10 ;READ HEADER t DATA COMMAND 
MOV /»euFTWO.RMBAO .-CHANGE BUS ADDRESS 



10$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. PUT 
10$ 



16$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 16$ IF ERROR 



;UAr FOR READ TO COMPLETE AND GET STATUS 

JSR PCTIMOUT ;WAJT FOR READ TO COMPLETE 



11$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC.GcT 
11$ 



16$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 16$ IF ERROR 



.•VERIFY THE RESULTS OF READ OPERATION 



V$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.PRIERR 
12$ 



pc,a(SP)* 

16$ 



GO CHECK FOR PRIMARY ERRORS 
GO TO 12$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 16$ IF ERROR 
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1^9; 



■•298 
129'? 



1500 
1301 
150? 
1505 



1504 
1505 
1506 
1507 
1508 
1309 
1510 
1511 
151^- 
15U 



022526 
022552 
022554 
022356 
022540 
022342 
022546 
022546 
022552 
022554 
022556 
022560 
€22562 
022566 



022566 
022572 
022574 
022576 
022400 
0224C2 
022404 



022410 
022410 
022414 
022422 
022424 
022450 



022430 
022450 
02243? 
022454 
022440 
022444 
C22450 



004737 
000405 
000240 
10400C 
004756 
000137 

004757 
000405 
000240 
104000 
004756 
0001 57 



004737 
101360 
102364 
000404 
000240 
104000 
0001 57 



105257 
125757 
101002 
000157 



000004 
000240 
012706 
01 3700 
015701 
012757 



05150? 

022450 
057620 

022450 
05554? 

022450 



001421 
001421 

021 756 



001100 
001276 
001466 
00001 7 



15J: 



14$: 



JSR 

BR 

NOP 

EMT 

JSR 

J«P 

JSR 

BR 

N0° 

EMT 

JSR 

JMP 



.-VERJ-fY DATA 
JSR 
.WORD 
.WORD 
BR 
NOP 
EMT 
JMP 



PC.DTASTS 
15$ 



PC,a(SP>* 
16$ 

PC.SECERR 
14$ 



pc.a(sp)* 

16$ 



PC , CMPBUF 
BUFONE 
BUF TWO 
15$ 



16$ 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR It DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 



GO COMPARE WRITE, READ DATA BUFFERS 

STARTING ADDRESS OF WRITE BUFFER 

STARTING ADDRESS OF READ BUFFER 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY CMPBUF SU8R0UMNE 

GO TO 16$ IF ERROR 



001535 



.•INCREMENT ADDRESS AND FORMAT NEXT TRACK 

■■5$: 

RMDA0*1 

RMDA0*1.LSTRK*1 
16$ 
1$ 



INC8 
CMP8 
BHI 
JMP 



ADVANCE TRACK COUNT 
LAST TRACK ? 
YES ' 

GO DO NEXT SECTOR 



16$; 



•••*•*«**♦•••••***•*••**«*••*»♦*•••*••••••••»***»*••*••»****•**** 

•'•TEST 17 FORMAT PRIME CYLINDERS 

••»•»•**••*•*•»•*•»••**•♦*•••»••»••**•*••**•»••*•*•»******•*••»«* 

TST17: 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



*STACK,SP 
$aASE.RC 
TSTQUE.R1 
#17,$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO - UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



1314 










1315 










1316 


022456 


012757 


000001 


001446 


1517 


022464 


012757 


000000 


001420 


1518 


022472 








1519 


022472 


012757 


010000 


001444 


1520 


022500 


012757 


1 77576 


001414 


1521 


0225U6 


012737 


101360 


001416 


1522 


022514 


012737 


000062 


001412 


1523 










1324 












022522 


004757 


053152 






022526 


000405 








022550 


104401 


063346 






022554 


104000 







;SETUP PARAMETERS FOR GENERATING DATA BUFFER 



1$: 



MOV *1 .RMDCO 

MOV #0,RMDAO 

MOV *FMT16.RM0F0 

MOV xr-258.,RMWC0 

MOV *8UF0NE.RM8A0 

MOV XrWH,RMCSlO 



.•VERIFY THAT SECTOR IS NOT BAD 
JSR PC.8ADSCT 
BR 2$ ^ 

TYPE .SCTMSG 
EMT 



.•CYLINDER = 1 
; TRACK = 0. SECTOR - 0 

;16 BIT FORMAT 
;2 ♦ 256 WORDS (2'S COMP) 
;DATA BUFFER ADDRESS 
;WR1TE HEADER AND DATA 



CALL BAD SECTOR MODULE 

60 TO 2$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR * DEFINED BY BADSC^ SUBROJMNE 
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1325 
1326 
1327 
1328 
1329 
^330 
1331 
1752 
1353 



153A 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
134i 
1344 
1345 
1346 



1347 
1348 
1349 
1350 
1351 
1352 
1353 
1554 



1355 
1356 
1557 
1358 



022536 000157 023172 
022542 

022542 012737 001446 

022550 012737 000001 

022556 004757 035104 

022562 



022562 004737 032176 
022566 154150 



022570 
022572 
022574 
022576 
022602 



022602 
022610 
022614 
022620 
022624 
022630 
022634 
022640 
022644 
022650 
022654 
022656 
022660 
022662 
022666 



022672 
022676 
022702 
022704 
022706 
022710 
022714 



0227^t> 
022720 
022722 



0C0404 
000240 
104000 
000137 



012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 
004737 
000404 
000240 
104000 
000137 



004737 
004737 
000404 
000240 
104000 
000157 



004737 

000405 
000240 



023172 



000065 
001555 
000006 
000034 
000032 
000002 
000004 
000000 
000200 
036240 



023172 



022666 004737 035704 



056602 
035770 



025172 
056766 



001174 
001176 



2$: 



5$: 



JMP 



16$ 



MOV #RMDCO.$TMP0 
MOV #1.$TMP1 
JSR PCGENBUF 



;';0 TO 16$ IF ERROR 

.-USE CYLINDER FOR DATA PATTERN 

;G0 GENERATE DATA BUFFER 



.•PREPARE DEVlCt 
JSR 
.WORD 



FOR DATA TRANSFER 
PC.TS^PRP 
154150 



4S: 



BR 
NOP 
EMT 
JMP 



4$ 



16$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICF g VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER £ SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR 'T'lP" IS SET 
VERIFY RECALiSRATION 
GO TO 4$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
60 TO 16$ IF ERROR 



001412 



.-SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 



5$: 



MOV 
MOV 

M0V8 
MOVB 

Move 
Move 
Move 

M0V8 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



jVWH!G0,RMCS1G 
#PUTINX.R2 
*RMDA.(R2)* 
*RMDC,(R2)* 
*RM0F.(R2)+ 
*RMWC.(R2)+ 
#RMBA,(R2)+ 
ftmCS^AR2)* 
ft200AR2)* 
PC, PUT 
5$ 



16$ 



.•WRITE HEADER AND DATA 
.•WRITE REGISTER INDEX TABLE 



GO WRITE REGISTER (S) WITH PUT SUBROUUNE 

60 TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

60 TO 16$ IF ERROR 



.•SETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PC.GETSTS 

;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 



6$: 



JSR 
JSR 
BR 
NOP 
EMT 
JMP 



PCTIMOUT 
PC.GFT 
6$ 



16$ 



.•VERIFY RESULTS OF WRITE COMMAND 
JSR PC.PRIEPR 
BR 7$ 
NOP 



WAIT FOR COMMAND TO COMPLETE 
GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR ft DEFINED BY GET SUBROUTINE 
60 TO 16$ IF ERROR 



GO CHECK FOR PRIMARY ERRORS 
GO TO 7$ IF NO ERROR 
RETURN HERE IF ERROR 



ZSMNbvi RM05/5/2 FCTNL TST 2 

FORMAT PRim CYLI^©ERS 



^359 
1360 



1361 
1?o2 



1563 
1364 
1365 
1366 
1367 
1568 



1369 
1570 
1571 
1572 
1373 



1574 
1575 
1376 
1377 



1378 
1379 



1380 
1581 



02272^ 
022726 
022730 
022734 
0227y> 
022740 
022742 
022744 
022746 
022750 
022754 
022754 
022760 
022762 
022764 
022766 
022770 
022774 



022774 
025002 
023010 
0250U 
025016 
023020 
025022 
025026 



025026 
023032 
025036 
023040 
023042 
025044 
025050 



023050 
025054 
025056 
025060 
025062 
025064 
025070 
025070 
025074 
025076 
025100 
023102 
025104 
025110 
023110 
025114 
023116 
023120 



104000 
004756 
000137 

004737 
000405 
000240 
104000 
004756 
000157 

004757 
000405 
000240 
104000 
004736 
000137 



012757 
012737 
004737 
000404 
000240 
104000 
000137 



004757 
004757 
000404 
000240 
104000 
000157 



004757 
000405 
000240 
104000 
004756 
000157 

004737 
000405 
000240 
104000 
004736 
000137 

004757 
000405 
000240 
104000 



025172 
051502 

023172 
037620 

025172 



000075 
102364 
036240 



025172 



056602 
055770 



025172 
056766 

C25172 
051502 

025172 
037620 



MACRO V04.00 
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SEO Oil'. 



8$: 



9$: 



EMT 

JSR 
J«P 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JW> 



pc.a(SP)* 

16$ 

PC.DTASTS 
8$ 



PC.a(SP)* 

16$ 

PCSECERR 
9$ 



pc,a(SP)* 

16$ 



ERROR * DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 16$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO (0 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 



001412 
00H16 



;READ HEADER AND DATA FOR ".ECTOR JUST WRITTEN 



10$: 



MOV 

MOV 

JSR 

BR 

NOP 

EMT 

JMP 



#RH.G0,RMCS10 
*8UFTW0,RMBA0 
PC .PUT 
10$ 



16$ 



READ HEADER 1 DATA COMMAND 
CHANGE BUS ADDRESS 

GO WRITE REGISftRCS) WITH PUT SUBROUTINE 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY FJT SUBROUTINE 

GO TO 16$ IF ERROR 



.•WAIT FOR READ TO COMPLETE AND GET STATUS 



11$; 



JSR 
JSR 
BR 
NOP 
EMT 
JMP 



PC.TIMOUT 
PC. GET 
11$ 



16$ 



WAIT FOR READ TO COMPLETE 
GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 11$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 16$ IF ERROR 



.■VERIFY THE 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 



RESULTS OF READ OPERATION 



12$; 



1^$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 
8R 
NOP 
EMT 



PC .PRIERR 
12$ 



PC.a(SP)+ 
16$ 

PC.DTASTS 
13$ 



PC.aCSP)*- 
16$ 

PC. SECERR 
14$ 



GO CHECK FOR PRIMARY ERRORS 
GO TO 12$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 16$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 



J^7 



1^82 
1383 
1384 
1385 



RM05/3/2 fCTNl TST 2 
FORMAT PRIME CYLIMDERS 



MACRO V04.00 A-APR-81 11:43:33 



PAGE 
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13-45 



SFO 01V 



1386 
1387 
1588 
1389 
1390 
1391 
1392 
1393 
1394 
1395 



023122 
023124 
023130 



023130 
023134 
023136 
023140 
023142 
023144 
023146 
023152 



023152 
023156 
023164 
023166 
C23172 



023172 
023172 
023174 
023176 
023202 
023206 
023212 



004736 

000137 023172 



14S: 



JSR 
JMP 



004737 
101360 
102364 
000404 
000240 
104000 
000137 



035342 



0231 72 



.-VERIFY DATA 
JSR 
.WORD 
.WORD 
BR 
NOP 
EMT 
JMP 

15$: 



PC.a(SP)* 
16S 



PC.CMPBUF 
BUFONE 
BUF TWO 
15$ 



16$ 



;G0 BACK FOR MORE ERROR CHfCKS 
;G0 TO 16$ IF ERROR 



60 COMPARE WRITE, READ DATA BUFffRS 

STARTING ADDRESS OF WRITE BUFFtR 

STARTING ADDRESS OF READ BUFFER 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY CMP8UF SUBROUTINE 

GO TO 16$ IF ERROR 



006337 001446 

023727 001446 001000 

003002 

000137 022472 



.•INCREMENT ADDRESS AND FORMAT NEXT PRIME CYLINDER 



16$: 



ASL 
CMP 
BGT 
j'^P 



RMDCO 
RMDCO,#512. 
16$ 
1$ 



ADVANCE CYLINDER COUNT 
DONE ALL PRIME CYLINDERS ? 

yes: I 

GO DO NEXT CYLINDER 



00000'. 
000240 
012706 
013700 
013701 
012737 



•**•*•**********»*»•****••*****«•****»•*******•••••*••**••••*•*• 

'•TEST 20 READ HEADER & DATA IN LAST SECTOR 

• *************************************************************** 

TST20: 

SCOPE CALL 



001100 
001 276 
001466 
000020 



001226 



SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 



#STACK.SP 
$8ASE,R0 
TSTQUE.R1 
#20,$TESTN 



START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 



1396 










1397 










1398 


023220 


012737 


001466 


001446 


1399 


023226 


013737 


001334 


001420 


1400 


023234 


112737 


000036 


001420 


1401 


023242 


012737 


010000 


001444 


1402 


023250 








1403 


023250 


012737 


1 77376 


001414 


1404 


023256 


012737 


102364 


001416 


1405 


023264 


012737 


000073 


001412 


1406 










1407 










1408 


023272 


004737 


032176 





; SETUP PARAMETERS FOR READING LAST SECTOR 



1$: 



MOV 
MOV 
M0V8 
MOV 

MOV 
MOV 
MOV 



023276 154130 



.•PREPARE DEVICE 
JSR 
.WORD 



*822.. RMDCO 
LSTRK.RMOAO 
#30.,RMDAO 
ffFMT16,RMOF0 

#-258.,RMWC0 

#8uftw0,rmba0 
#rh;go.rmcsio 

for data transfer 
pc.tstprp 

154130 



LAST CYLINDER 
SET LAST TRACK AND 
LAST SECTOR 
16 BIT FORMAT 

2 + 256 WORDS (2'S COMP) 
DAM BUFFER ADDRESS 
READ HEADER AND DATA 



023300 000404 

023302 000240 

023304 104000 

023306 000137 023476 



1409 023312 



2$: 



BR 
NOP 
EMT 
JMP 



2$ 



9$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE £ VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER Z SELECT PEVICE 

VERIFY CONTROLLER CLEAR OPcRATION 

PACK ACKNOWLEDGE IF VOLUMF NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'VIP" IS SET 

VERIFY RECALI8RATIGN 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO TO 9$ IF ERROR 



CZRMNBO RM05/3/2 FCTNL TST 2 MACRO V04.00 
T20 READ HEADER & DATA IN LAST SECTOR 



HID 
1411 
U12 
K13 
UK 
K15 
1416 
1417 
1418 
1419 
1420 
1421 



1422 
1423 
1424 
1425 
1426 
1427 
1428 



1429 
1430 
1431 
1432 



1433 
1434 



1435 
1436 



1437 
1438 
1439 
1440 
1441 



023312 
0233'' 6 
023322 
023326 
023332 
023336 
023342 
023546 
023352 



023352 
023356 
023360 
023362 
023364 
023370 



C23370 
023374 

023400 
023404 
023406 
023410 
023-12 
023416 



023416 
023422 
023424 
023426 
023430 
023432 
023436 
023436 
023442 
023444 
023446 
C23450 
023452 
023456 
023456 
023462 
023464 
023466 
023470 
023472 
023476 

023476 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 



004737 
000404 
000240 
104000 
000137 



004737 
004737 

004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
0001 37 

004737 
000405 
000240 
104000 
004736 
0001 37 



001553 
C00006 
000034 
000032 
000004 
C00002 
000000 
000^00 



036240 



023476 



035704 
036602 

035770 



023476 
036766 

023476 
051502 

023476 
037620 

023476 



3S: 



N 

4-APR-81 11:43:33 PAGE 



MOV #PUT1NX.R2 

M0V8 #RWDA.(R2)+ 

M0V8 #RMDC.lR2)* 

M0V8 #RM0F.(R2)* 

M0V8 *RMBA,(R2)* 

Move #R«UC.(R2)+ 

MOVB #RMCS1,(R2)* 

M0V8 *200,(R2)* 



9 

13-46 



SEQ 0117 



.WRITE REGISTER INDEX TABlE 



;TER*1INAT0R 



;READ HEADER AND DATA OF LAST SECTOR 



4S: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. PUT 
4$ 



9$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
GO TO 4$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PUT SUBROUTINE 
GO TO 9$ IF ERROR 



;SETJP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PCGETSTS 

jSR PC.TIMOUT .-wait FOR READ TO COMPLETE 



5$: 

.■VERIFY 



6$: 



7$: 



/ 



8$: 



JSR 

BR 

NOP 

EMT 

JMP 



THE 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC. GET 
5$ 



9$ 



RESULTS OF READ 
PC.PRIERR 
6$ 



PC,a(SP)t 

9$ 

PCDTASTS 
7$ 



pc.a(SP)* 

9$ 

PC.SECERR 
8$ 



pc.a(SP>* 

9$ 



;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;60 TO 5$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR » DEFINED BY GET SUBROUTINE 

;60 TO 9$ IF ERROR 



OPERATION 

;G0 CHECK FOR PRIMARY ERRORS 
;G0 TO 6$ IF NO ERROR 
; RE TURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
;60 TO 9$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY CTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 



9$; 



'•TEST 21 READ HEADER & DATA W/ AOE ERROR 

•»*«»»»»««»••«**♦*»•»•**•«•********•»****»•»*•••**♦**♦•*•••**•*• 



RfAD HEAOEi) ft &AT4 W/' «0E EtK)^ 



B 10 

:<.?:5? PAGE M-^^ 



023500 
023S02 
023506 
023512 
023516 



000004 

000240 
012706 
C13"'00 
013701 
012737 



001100 
001276 
00U66 
000021 



02360? 154130 



023604 
023606 
023610 
023612 

1455 023616 

1456 023616 

1457 023622 
U58 023626 
1459 023632 
*460 023636 

1461 023642 

1462 023646 



1463 
1464 
1465 



023652 



023656 
023662 
023664 
023666 
023670 
1466 02^674 
'467 
1468 

1469 023674 

1470 023700 
1471 

1472 023704 
0*^3710 
023712 
C237U 



000404 
000240 
104000 
0001 37 

012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



004737 
004737 

004737 
000404 
0002 -.0 
104000 



024002 

001553 
000006 
000034 
000032 
000002 
000004 
000000 
000200 

036240 



024002 



035704 
L 36602 

035770 



TST21: 



001226 



SCOPE 
SOP 

«0V 



•STACK. SP 
JSASE.RO 
TSTOUE.R'' 
»21.$1ES7N 



SCOPE CALL 

START 0^ TEST 

INITIALIZE STACK POINTER 

RO = UNI9US ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST M/fBER IN APT MAIL BOX 













%43 










"444 


023524 


013737 


001334 


001423 


H45 


023532 


112737 


000036 


001420 


K'.6 


023540 


012737 


010000 


001444 


l<i47 


023546 








1448 


023546 


012737 


001466 


001446 


1449 


023554 


012737 


176774 


001414 


U50 


023562 


012737 


102364 


001416 


1451 


023570 


012737 


000073 


001412 


1452 










1453 










U54 


023576 


004737 


0521 76 





;SETJP PARAWtTtRS TOR READING 2 SEC'ORS STARTING WITH I AST SECTOR 



IS: 



HOW 
MOV 



.-PREPARE DEVICE 
JSR 
.«0RD 



LSTRK.RMDAO 
#30.,RHOA0 
»FWT16.R«0^0 

#822..RTOCO 
#-258.«2.RMUC0 
#8UFTW0.RMBA0 
•RH.'CO.RHCSIO 



.-SET LAST TRACK 
.•LAST SECTOR 
;16 BIT FORMAT 



AND 



.•LAST CYLINDER 
.•READ 2 SECTORS 
;DATA BUFFER ADDRESS 
.-READ HEADER AND DATA 



FOR DATA TRANSFER 
PC.TSTPRP 
154130 



2$: 



3$: 



BR 
NOP 
EMT 
J«P 

"iOV 

mve 
wove 
MOV8 

MO^ 
M0V8 
MOVB 
M0V8 

JSR 

BR 

NOP 

EMT 

JMP 



2S 



8S 

*PUTINX.R2 
«Rni>A.(R2)^ 
*RMDC.(R2)* 
#R«Of ,(R2)* 
#R«WC.(R2)* 
IWCA,(R2)* 
»RflCS1,(R2)* 
#200. (R2>* 

PC.PUT 
3S 



8t 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER I SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI * OR 'PIP" IS SET 

VERIFY RE CALIBRATION 

GO TO 2S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SURROUTI(\« 

GO TO 8S IF ERROR 

WRITE REGISTER INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 81 IF ERROR 



;SETJP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PC.GETSTS 

JSR PC.TIMOUT .-WAIT FOR READ TO COMPLETE 



JSR 
BR 
NOP 
E*IT 



PC.GE' 
4$ 



;G0 READ REGJSTER(S) WITH GET SUBROUTINE 

;G0 TO 4$ IF NO ERROR 

.-RETURN HERE IF ERROR 

;ERROR * DEFI'JED BY GET SUePOuUNE 



:RM^eo rmo5/3/2 fctnl tst 2 *mcro wm.oo 

'r READ Hf ADER t DA^A tf/ AOC ERROR 



C 10 
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SEO 0110 



023716 
^473 023722 

U76 023722 
023726 
023730 
023732 
023734 
023736 

'478 023742 
023746 
023750 
023752 
023754 
023756 

'479 023762 

1480 02376? 
C23766 
023770 
023772 
023774 
023776 

H81 024002 

U82 

i'.83 024002 

1484 

1485 



024002 
024002 
024004 
024006 
024012 
024016 
024022 

1486 

1487 024030 

1488 024036 
U89 024044 

1490 024052 

1491 024060 

1492 024066 

1493 024074 
1494 

H95 

1496 024074 
024100 



000137 02400? 

004737 036766 
000405 
000240 
104000 
004736 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



000004 
000240 
012706 
013700 
013701 
012737 

012737 
012737 
012737 
012737 
012737 
012737 



004737 
154130 



024002 
051502 

02400? 
037620 

024002 



0011 00 
001276 
00 T 466 
000022 

000000 
000036 
000000 
101360 
177376 
000073 



032176 



4$: 



.•tfERJFv 'ME RESLITS OF READ 



5$: 



7%: 
8S: 



JSR 
BR 
MOP 
E«T 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

-MP 

JSR 

BR 

NOP 

E«T 

JSR 

JMP 



PC,PRIERR 
5t 



pc.a(SP)» 

8S 

PC.DTASTS 
6S 



PC.a(SP)» 
8S 

PC. SECERR 
7$ 



8S 



;C0 TO 8S IF ERROR 



OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 5$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 8$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8S IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 8$ IF ERROR 



•fE5T 22 
t's T22: 



READ INVALID SECTOR ADDRESS 



001226 

001446 
001420 
001444 
001416 
001414 
001412 



1$: 

.•PREPARE DEVICE 
jSR 
.WORD 



SCOPE 




NOP 




MOV 


*STACK.SP 


MOV 


SBASE.RO 


MOV 


TSTQUE,R1 


MOV 


#22. STESTN 


MOV 


»o.m>co 


MOV 


*30..RHDAO 


MOV 


*0,R«OFO 


MOV 


*8UF0NE.RMBA0 


IWV 


#-258.,RMWC0 


MOV 


#RH.G0,RMCS10 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUTBER IN APT MAIL BOX 

CYLINDER = 0 

TRACK = 0, INVALID SECTOR - 30. 

18 BIT FORMAT 

CHANGE BUS ADDRESS 

2 *■ 256 WORDS {2'S COMP) 

READ HEADER AND DATA 



FOR DATA TRANSFER 
PC.TSTPPP 
154150 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE if "SKI" OR "PIP" IS SET 
VERIFY RECALI8RATI0N 



READ INVALID SECTOR ADD«£S> 



D 
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-497 
'498 
■•499 
^500 
1501 
1502 
1505 
1504 
1505 
1506 
1507 
1508 
■'509 



'5'0 
1511 
1512 
1513 
1514 
1515 
1516 



1517 

1518 
1510 

1520 



1521 
1522 



1523 
1524 



-•525 
1526 



024102 
024104 
024106 
024110 
024114 



024114 
024120 
024124 
024130 
024134 
024140 
024144 
024150 

024154 
024160 
024 ■'62 
024 164 
024166 
024172 



024172 
024176 

024202 
024206 
024210 
024212 
024214 
024220 



0242r 

0242^4 

024226 

024230 

024232 

024234 

024240 

02/.240 

024244 

024246 

024250 

024252 

024254 

024260 

024260 

024264 

024266 

024270 

024272 

024274 

024300 



000404 
000240 
104000 
000137 



012702 
112722 
112722 
112722 
112722 
112722 
112^22 
112722 

004737 
000404 
000240 
104000 
000137 



C04737 
004737 

004737 
000404 
000240 
104(000 
U00137 



004737 

000405 
000240 ' 
104000 
004736 
0001 37 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004 736 
000137 



024544 



001553 
000006 
000034 
00003? 
000002 
000004 
000000 
000200 

036240 



024344 

035704 
036602 

035770 
024344 
036766 

024344 
051502 

024344 
037620 

024344 



2\: 



BR 
NOP 
E«T 
J«P 



2S 



9$ 



GO TO 2t IF NO ERROR 

RETURN HERE If ERROR 

ERROR » DEFINED BV TSTPRP SUBROUTINE 

GO TO 9S JF ERROR 



iSE'UP AND EXECUTE READ HEADER AND DATA COMMAND 



3$: 



MOV 

wove 

«10V8 
M0V8 
«0V8 
M0V8 
MOVQ 

wve 

-SP 

BR 

NOP 

EMT 

jMP 



#PUTINX,R2 
#RMDA.(R2)* 
#a*nDC.(R2>* 
#RW0F.(R2)* 
#RMUC.(R2)* 
#RW3A.(R2)* 
#RMCS1.(R2)* 
•200. (R2)* 

PC, PUT 
3S 



9S 



.•LOAD REGISTER INDEX TABLE 



;SET TERMINATOR BYTE 

GO WRITE REG]STER(S) WITH PUT SUBROijriNE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

60 TO 9$ IF ERROR 



.•SETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PC.GET5TS 

JSR PC.TIMOUT ;WAIT FOR COMMAND TO COMPLETE 



4f : 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
4$ 



9$ 



.-VERIFY RESULTS OF READ COMMAND 



5i: 



6t: 



JSR 
SR 
NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

E^IT 

JSR 

JMP 

JSR 
BR 
NOP 
EMT 

JSP 
JMP 



PC.PRIERR 
5S 



PC.S(SP)* 
9$ 

PC.DTASTS 
6S 



PC.a(SP)* 

9f 

PC.SFCERR 
7$ 



pc.a(SP)* 

91 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 



GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR j 

ERROR # DEFINED BY PRIERR SUBROUTINP 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR V 

GO VERIFY RESULTS OF DATA TRANSFER 

60 TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 9$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

60 TO 9$ IF ERROR 



'22 



READ INVALID SECTOR AyORESS 
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* ^37 

JC ' 








' JcO Ut** jUU 


VA/ JC J' 
057757 






IJC" Uf*»jU*» 






1 J J\J UCH J 1 c 


1 ni Z.1 5 






1 








1 J Jt Jt*» J I** 


n7?777 






/jj Uc'» Jtc 


UU 1 U 1 V 








m 5777 

\J\ Cf Jf 






IS^S OP4i33? 




010000 


0014^^ 


1536 024 3A0 


000157 


024074 




^557 








1558 024344 








1559 








1 540 









'541 
*542 
1543 
1544 
1545 
1546 
1547 
1548 
154V 
1^50 
1551 
1552 



024 544 
024344 
024346 
C24350 
024354 
024360 
024364 

024372 
024400 
024406 
024412 
024420 
024426 
024434 
024442 



024442 
024446 



1555 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
'561 
1562 



024450 
024452 
024454 
024456 
024462 



024462 
024466 
024472 
024476 
024502 
024506 
024512 



000004 
000240 
012706 
01 3700 
013701 
012737 

012737 
013757 
105257 
012757 
012757 
012757 
012757 



004737 
154130 



000404 
000240 
104000 
0001 37 



012702 
U2722 
yy2722 
yy2722 
112722 
\y2722 
112722 



001 100 
001276 
001466 
000023 

000000 
001554 
001421 
010000 
1 77576 
101560 
000075 



032176 



024666 



001555 
000006 
000054 
000052 
000002 
000004 
000000 



.-INCREMENT ADDRESS AND PEAD NEXT SECTOR 

INC RMDAO .ADVANCE SECTOR COUNT 

C«P RMDA0.#64. ;D0NE ALL SECTORS?? 

BlOS 8$ ;N0 !.' 



SCO oin 



8$: 

9t: 



BIT *F«T16,RM0F0 

BNE 9$ 

1*10 V #52..RMDA0 

MOV #FMT16.RM0F0 

JIV 1$ 



TEST 16 BIT MODE VET ■> 
VES :. 

TRACK = 0. INVAI ID 
SET ''6 BIT MODE IN 
TEST AGAIN. 



SECTOR = 52. 
OFFSET AND 



•TEST 23 



READ INVALID TRACK ADDRESS 



TST25: 



001226 

001446 
001420 

001444 
OOKU 
001416 
001412 



1$: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

MOt/ 

MOV 

INC8 

MOV 

MOV 

MOV 

MOV 



#STACK,SP 
$8ASE.R0 

TST0UE.R1 
*25.fTESTN 

#0.RMDC0 

LSTRK.RMDAO 

RMDA0»1 

#FMT16.RMOF0 

#-258..RMWC0 

#8UF0NE,RMBA0 

#RH.G0.RMCS10 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) - DEVICE BEING TESTED 

.•SET TEST NUMBER IN APT MAIL BOX 

.-CYLINDER = 0 

.•LOAD LAST TRACK, SECTOR - 0 

.•INCREMENT TO FIRST INVALID TRACK 

; 16 BIT FORMAT 

;2 ♦ 256 WORDS (2'S COMP) 

;DATA BUFFER ADDRESS 

;READ HEADER AND DATA 



'.PP.IPNKI DEVICE 
JSR 
.WORD 



FOR DATA TRANSFER 
PC.TSTPRP 
154'50 



?t: 



BR 
NOP 
EMT 
JMP 



2$ 



8$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "?\\>" IS SET 
VERIFY RECALIBRATION 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 8$ IF ERROR 



.-SETyP AND EXECUTE READ HEADER AND DATA COMMAND 



MOV <rPUTINX,R2 

M0V8 #RMDA.(R2)* 

M0V8 *RMDC,(R2)+ 

M0V8 #RM0F.(R2)+ 

M0V8 #RMWC.(R2)+ 

MOi^e #RM8A.fR2)* 

MO,/e #RMCS1 . v'R?) + 



.•LOAD REGISTER INDEX TABLE 



?! »EAD INVALID 'RAClt ADDRESS 



F 

PAGE 



10 



■56^ 



1567 
1568 
^569 
1570 
1571 
^572 



1575 
1574 
'575 
'576 



1577 
'578 



1579 
1580 



^581 
1582 
'583 
1586 
1585 
1586 
1587 

1588 
1589 
1590 



02A516 112722 



024522 
024526 
024550 
024552 
024554 
024540 



024540 
024544 

024550 
024554 
024556 
024560 
024562 
024566 



024566 
024572 
024574 
024576 
024600 
024602 
024606 
024606 
024612 
024614 
024616 
024620 
024622 
024626 
024626 
024652 
024634 
C24656 
024640 
024642 
024646 



024646 
024652 
024660 
024662 
024666 



024666 
024666 
024670 
C;4672 



004757 
000404 
000240 
104000 
000137 



C04757 
004737 

004757 
000404 
000240 
104000 
000157 



004757 
000405 
000240 
104000 
004736 
000157 

004737 
00040S 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



105237 
125727 
101002 
000157 



000004 
000240 
012706 



000200 
036240 

024666 

055704 
0566C2 

035770 
024666 
056766 

024666 
051502 

024666 
057620 

024666 



001421 
001421 

024442 



•^V8 #200.(R2)» 



5f: 



BR 

HOP 

JMP 



PC.PUT 
5t 



8S 



.•SET TERMINATOR BYTE 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 5S IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY PUT SUBROUTINE 

;G0 TO 8$ IF ERROR 



;SE^'JP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PC.GETSTS 

JSR PC.TIWOUT .-wait FOR COMMAND TO COMPLETE 



4S: 



JSR 

BR 

NOP 

EMT 

JMP 



PC.GET 
4S 



8S 



;wbRIFv RESULTS OF READ COMMAND 



tl: 



;SR 
BR 
NOP 
EMT 

JSR 
.MP 

JSR 

BR 

NOP 

EMT 

jSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.PRIERR 
51 



pc,a(SP)* 

8$ 

PC.DTASTS 
6S 



fc.a(SP)* 

8$ 

PC.SECERR 

7% 



8S 



;G0 READ REGISTER (S) WITH GET SUBROUTINE 

;G0 TO 4$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 8$ IF ERROR 



;G0 CHECK FOR PRIMARY ERRORS 

;G0 TO 5S IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR * DEFINED BY PRIERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 8$ IF ERROR 

;G0 VERIFY RESULTS OF DATA TRANSfE»^ 

;G0 TO 6$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY DTASTS SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 8$ IF ERROR 

;G0 CHECK FOR SECONDARY ERRORS 

;60 TO 7$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR * DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECK"- 

.•GO '^O 8$ IF ERROR 



INCREMENT ADDRESS AND READ NEXT TRACK 



000200 



8S: 



INCe RMDA0*1 

CMPB RMDAO** .*128. 

BHI 8$ 

JMP ^$ 



.•ADVANCE TRACK COUNT 
.•DONE ALL TRACKS?? 
;YES: : 

;G0 DO NEXT TRACK 



•TEST 24 



READ IN>/ALID CYLINDER ADDRESS 



^ST24: 



oonoo 



SCOPE 

NOP 

MOV 



#STACK .SP 



.•SCOPE CALL 
.•START OF TEST 
.•INITIALIZE STACK POINTER 



filEAD INVALID C>LINDER ADDRESS 



G 10 
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■591 
1592 
1593 
•594 
^595 
1596 
1597 
1598 
1599 
1600 
1601 



1602 
1603 
1604 
1605 
'606 
160/ 
1608 
1609 
1610 
1611 
1612 
1613 
1614 



'615 

1616 
^6V 
161fc 
161'J 
162C 
'621 



1622 
'623 
'624 



024676 
024702 
024706 

024714 
024722 
024 '30 
024736 
024744 
024752 
024760 



024760 
024764 



024766 
024770 
024772 
024774 
025000 



025000 
025004 
025010 
025014 
025020 
025024 
025030 
025034 

025040 
025044 
025046 
C25050 
025052 
0''j056 



025056 
025062 

025066 
025072 
025074 
025076 
025100 
025104 



01370C 
013701 
012737 

012737 
012737 
012737 
CV737 
012737 
012737 



004737 
154130 



000404 
000240 
104000 

0001 37 



012702 
112722 
112722 
112722 

112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



004737 
004737 

004737 
000404 
000240 
104000 
000137 



001276 
001466 
000024 

001467 
000000 
010000 
177376 
101360 
000073 



032176 



C25204 



0015^3 
000006 
000034 
000032 
000002 
000004 
000000 
000200 

036240 



025204 



035704 
0366C2 

035770 



025204 



001226 

001446 
001420 
001444 
001414 
00'4i6 
001412 



IS: 



NOV 

MOV 

MOV 
MOV 
MOV 
MCV 
MOt^ 
MOV 



tSASE.RO 

TSTOuE.RI 

t24,»TESTN 

♦923..RMDCO 

#0,W<1DAO 

#fMT16.RM0F0 

#-258..RMUCO 

«8Uf0»«E.RMBA0 

#R/(.G0,RMCS10 



RO = UNI8US ADDRESS 

(RP = DEVICE BEIMG TE-^Tfr) 

;SET TEST Nlf«ER IN APT MAIL 



BOX 



START AT FIRST INVALID CYLINDER 

TRACK = 0. SECTOR = 0 

16 BIT FORMAT 

2 ♦ 256 WORDS (2'S COMP) 

DATA BUFFER ADDRESS 

READ HEADER AND DATA 



.-PREPARE DEVICE 
JSR 
.WORD 



FOR DATA TRA^SFER 
PC.^STPRP 
154150 



21: 



BR- 
NOP 
E^T 
JMP 



2S 



8$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
JELECT DEVICE I VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER £ SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALI8RATI0N 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
GO TO 8$ IF ERROR 



; SETUP AND EXECUTE READ HEADER AND DATA COMMAND 



5$: 



4$: 



MOV 

M0V8 

MCVB 

M0V8 

M0V8 

MO/8 

MOVB 

M0V8 

JSR 

8ft 

NOP 

EMT 

^MP 



i'NPU^ 
JSR 
JSP 

JSR 

BP 

NOP 

EM' 

.MP 



ffPUTINX.R2 
#ftMDA.(R2)* 
#RMDC.(R2;* 
#RM0F,(R2)* 
#«MWC.(R2)* 
#RMBA,(R2)» 
#RMCS1,(R2)* 
*200.(R2)* 

PC. PUT 
3f 



8S 



SliTER BUFFER 
PC.GETSTS 
PC.TIMOUT 



.-LOAD REGISTER INDEX TABLE 



PC. GET 
4S 



8S 



;SET TERMINATOR BYTE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SOBROUTINF 

GO TO 8$ IF ERROR 



FOR READING STATUS 

.-WAIT FOR COMMAND TO COMPLETE 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO ^0 8$ IF ERROR 



Ji'^'ji RESJ.TS OF READ COMMAND 



1629 



^630 
1631 
1652 
'633 
1634 
1635 
1636 
1637 
1638 
1639 



16A0 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 



READ INVALID :vL:i«)fR A^r-'itS'S 



H 
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StO 0124 



025104 
025110 
025112 
C25114 
025116 
025120 
025124 
025124 
025130 
025132 
025134 
025136 
025140 
025144 
025144 
025150 
025152 
025154 
025156 
C25160 
025164 



025164 
025170 
025176 
025200 
025204 



004737 
000405 
000240 
^04000 
004756 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
0001 3' 



036 

0252 ?<. 
0515:2 

025204 
03762C 

025204 



7$: 



NOP 

JMP 

SR 

NOP 
E«T 

jSR 
jMP 

.SR 

BR 

NOP 

EM' 

jSR 



PC.PRJfRR 
5$ 



PC,i(SP)» 
8f 

fC.DTASTS 
6S 



PC.a(SP)* 

8S 

PC.SECERR 
7$ 



PC.iiCSP)* 
8S 



GO CHECK fOR PRIMARY ERRORS 

GO TO 5$ If NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED Br PRIERR SueROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8S IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 6S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BV DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8S IF ERROR 

.GO CHECK FOR SECONDARY ERRORS 

;G0 TO 7$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR * DEFINED BY SECERR SUBROUTINE 

.-GO BACK FOR MORE ERROR CHECKS 

;G0 TO 8S IF ERROR 



005237 001446 

C23727 001446 002000 

002002 

000137 024760 



.•INCREMENT ADDRESS AND READ NEXT CYLINDER 

INC RMDCO ;AD>^ANCE CYLINDER COUNT 

CMP RMDCO. *1024. ;DONE ALL CYL'NDERS?? 
BGE 8S ;YES..' 
JMP ;G0 DO NEXT SECTOR 

8S: 



•TEST 25 



FORMA^ AT OFFSET 



025204 








025204 


000004 






025206 


000240 






025210 


012706 


001100 




025214 


013700 


001276 




025220 


013701 


001466 




025224 


012737 


000025 


001226 


025232 


012737 


000000 


001446 


025240 


012737 


000000 


001420 


025246 


012737 


010000 


001444 


025254 


012757 


177376 


001414 


025262 


012757 


101560 


001416 


025270 


012737 


000063 


001412 



TST25: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



*STACK.SP 
t8ASE.R0 
TST0UE.R1 
#25.$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO - UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



iSETUP PARAMETERS FOR GENERATING DATA BUFFER 



MOV 


#0,/V1DC0 


.•CYLINDER = 0 


MOV 


#0.RMDAO 


; TRACK 0. SECTOR 0 


MOV 


*FMT16.RMOF0 


;16 BIT FORMAT 


MOV 


*-258.,RMWC0 


;2 ♦ 256 WORDS (2'S COMP) 


MOV 


*8UF0NE.RMBA0 . 


.-DATA BUFFER ADDRESS 


MOV 


*WH!G0,RMCS10 


.•WRITE HEADER AND DATA 



; VERIFY THAT SECTOR IS NOT BAD 





025276 


004737 


055152 




jSR 


PC.aADSCT 


;CALL BAD SECTOR MODULE 




025302 


000405 






BR 


1$ 


;G0 TO 1$ IF NO ERROR 




025304 


104401 


065546 




TYPE 


.SCTMSG 


;TYPE BAD SECTOR MESSAGE 




025310 


104000 






EMT 




;ERR0R * DEFINED BY BADSC^ SUBROJTINE 




025312 


000137 


026116 




JMP 


17$ 


;G0 TO 17$ IF ERROR 


1650 
^651 
*fc52 


025316 






IS: 








025316 


012737 


001420 


001 1 74 


MOV 


#RMDAO.STMP0 


;USE SECTOR FOR DATA PATTERN 


C25324 


0^2717 


000001 


001 1 76 


MOV 


#1.$TMP1 



TS FOWAT AT OffSfT 



•Wt«C .04.00 



:«.5:?5 
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'6S3 025332 
1654 025336 
1655 
1656 

1657 025336 
02554? 



025544 
025346 
025350 
025552 

'658 025356 

1659 

1660 

1661 025356 
^662 025364 

1663 025370 

1664 025374 

1665 025400 

1666 025404 

1667 025410 
1668 

1669 025414 
025420 
025422 
025424 
025426 

1670 025432 
1671 

1672 

1673 025432 

1674 025440 

1675 025444 

1676 025450 

1677 025454 

1678 025460 
1679 

1680 025464 
025470 
025472 
025474 
025476 

1681 025502 
1682 

1683 

1684 025502 

1685 025506 
1686 

1687 025512 
0255T6 
025520 



004737 055104 



004737 
154130 



000404 
000240 
104000 
000137 



012737 
012702 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
000137 



012737 
012702 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



004737 
004 737 

004737 
000404 
000240 



032176 



:26i'6 



00001 5 
001553 
000006 
000034 
000032 
000000 
000200 

036240 



026116 



000063 
001553 
000002 
000004 
000000 
000200 

036240 



026116 



035704 
036602 

035770 



PC.5E!«Uf 



;G0 oENfRATf DATA BOfFfR 



jDRfOARE DEVICE 
.WORD 



FOR DATA TRANSFER 
PC.TSTPRP 
154130 



3$: 



8« 
NOP 
EMT 
-MP 



3S 



7S 



PREPARE DEVICE ^OR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE ( VERIFY DE/ICE AvAIlABLt 
CLEAR CONTROLLER t SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SfT 
VERIFY RECALI8RATI0N 
GO TO 3$ IF NO ERROR 
RETijRN HERE IF ERROR 
ERROR » DEFINED 8Y TSTPRP SUBROUTINf 
GO TO 17$ IF ERROR 



001412 



;OFFSE' DEVICE FOR WRITE 



4S: 



MOV 

MOV 

MOVB 

M0V8 

MOVB 

MOVB 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



*0FFSET.G0.RMCS10 .-CHANGE TO OFFSET COMMAND 

*PUTINX.R2 .-WRITE PUT INDEX TABLE 

*RMDA.(R2)* 
#RMDC.(R2)* 
#RM0F.(R2)* 
#RMCS1,(R2)* 
#200, (R2) 



PC. PUT 
4S 



17$ 



.•TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN »^ERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 17$ IF ERROR 



00141. 



SE^UO AND EXECUTE WRITE HEADER AND DATA COMMAND AT OFFSET 



5$- 



MOV 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

JSR 

BP 

NOP 

EMT 

JMP 



*WH.'G0.RMCS10 
#PUTJNX.R2 
#R«WC.(R2)* 
*RMBA.(R2)* 
*RMCS1 ,(R2)* 
#200, (R2)* 

PC, PUT 
5$ 



7$ 



.•WRITE HEADER AND DATA COMMAND 
.•WRITE REGISTER INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 17$ IF ERROR 



;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
-SR PC.GETSTS 

jSR PC.TIMOUT .-wait FOR COMMAND TO COMPLETE 



JSR 

BR 

NOP 



PC, GET 
6$ 



GO READ REGISTER(S) WITH GET SUBROuMNE 
GO TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 



ZRMN&O RM05/5/2 fC^ML 'ST 
fOWAT AT OffSfcT 



mack: 



J 10 
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'688 
1689 
'690 



025522 
025524 
025530 



104000 
000137 



026116 



6$: 



EMT 
JliP 



17$ 



.•ERROR * DEFINED BY GET SUBROUTINE 
;60 TO 17$ IF ERROR 



•691 


025530 


004737 


036766 


JSR 




025534 


000405 




BR 




025536 


000240 




NOP 




025540 


104000 




EMT 




025542 


004736 




jSR 




025^44 


000137 


026116 


JMP 


-692 


025550 




7$: 




'693 


025550 


0u<.737 


051502 


JSR 




025554 


000405 




BR 




025556 


000240 




NOP 




025560 


104000 




EMT 




025562 


004736 




-SR 




025564 


000137 


026116 


JMP 


1694 


025570 




8$; 




1695 


C25570 


004737 


037620 


jsr 




025574 


000405 




BR 




025576 


000240 




NOP 




025600 


104000 




EMT 




025602 


004736 




JSR 




025604 


000137 


026^16 


JMP 


1696 


025610 




9$: 




1697 






.•OFFSET 


DEVICE 


1698 


025610 


012737 


000015 001412 


MOV 


1699 


025616 


012702 


001553 


MOV 


1700 


025622 


112722 


000006 


MGV8 


1701 


025626 


112722 


000034 


M0V8 


'702 


025632 


^''2722 


000C32 


MO'/e 


1703 


025636 


U2722 


000000 


MOV'B 


1704 


025642 


T^2722 


000200 


M0V8 


1705 










1706 


025646 


004737 


036240 


JSR 




025652 


000404 




BR 




025654 


00024C 




NOP 




025656 


104U00 




EMT 




025660 


0001 37 


026116 


JMP 


1707 


025664 




10$: 





.-^ERIFv RESULTS OF WRITE COMMAND 
PC.PRIERR 
7$ 



pc.a(SP)* 

17$ 



1708 
1^09 
1710 
1711 
1712 
17^3 
1714 
1715 
'716 
1717 
1718 
1719 



025664 
025672 
025700 
025704 
025710 
025714 
025720 

025724 
025730 
025752 
0;5734 
025736 



012737 
012737 
012702 
112722 
112722 
112722 
U2722 

004737 
000404 
000240 

104000 
000137 



000073 
102364 
001553 
000002 
000004 
000000 
000200 

036240 



026116 



001412 
001416 



PC.DTASTS 
8$ 



PC.i(SP)» 
17$ 

PC.SECERR 
9$ 



PC.a(SP)* 
17$ 

FOR READ 
*0FFSET1G0.RMCS1 
#PUTINX,R2 
#RMDA. (R2)* 
#RMDC.(R2)» 
#RM0F,(P2)* 
#RMCS1.(R2)* 
#200. (R2)* 

PC. PUT 
10$ 



17$ 



;READ HEADER AND DATA AT OFFSET 



GO CHECK FOR PRIMAR.' ERRORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 17$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

60 TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

60 BACK FOR WRE ERROR CHECKS 

GO TO 17$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR ""HECKS 

60 TO 17$ IF ERROR 



0 .-CHANGE TO OFFSET COMMAND 

.•WRITE PUT INDEX TABLE 



MOV 
MOV 
MOV 
M0V8 

M0V8 
M0V8 

JSR 

BR 

NO^* 

EMT 

JMP 



*RH.'G0.RMCS10 
#8UFTW0,RMBA0 
#PUriNX.R2 
#RMWC.(R2)* 
#RM8A.(R2)+ 
*RMCS1.(R2)* 
#200. (R2)* 

PC .PUT 
11$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

60 TO 17$ IF ERROR 



READ HEADER B DATA COMMAND 
CHANGE BUS ADDRESS 
WRITE PUT INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

60 TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

60 TO 17$ IF ERROR 



1720 
1721 
1722 
1723 
1724 
1725 



1726 
1727 
1728 
1729 



RM05/5/2 fCTNL TST 
fQRMAT AT QffSET 



02S742 



0257',2 004 737 



•1AC«lO ^-04. 00 4-APR-81 



11$: 
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1730 
1731 



V32 
1733 



1734 
17i5 



025746 
025752 
025754 
02"^ 756 
025760 
025764 



025764 
025770 
025772 
025774 
025776 
026000 
C26004 
026004 
026010 
026012 
0260H 
026016 
026020 
026024 
026024 
026030 
026032 
026034 
026036 
026040 
026044 



004737 
000404 
000240 
104000 
0001 37 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



036602 
035770 

026116 

036766 

026116 
051502 

026116 
037620 

026116 



;'-Ar FOR RfAD TO COMPLETE AND GET STATUS 

jSR PC.TIMOuT ;UAIT FOR READ TO COMPLETE 



'2S: 



JSR 

BR 

NOP 

EfT 

JMP 



PC. GET 
12S 



17i 



. vERIFV THE ?<ESUITS OF READ 
JSR PC.PRIERR 



13$: 



14$: 



15$: 



BR 
NOP 
EMT 
^SR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



13$ 



pc,a(SP)+ 

17$ 

PC.DTASTS 
14$ 



pc.a(SP)* 

17$ 

PC.SECERR 
15$ 



PC.a(SP)* 
17$ 



GO READ REG]STER(S) WITH GET SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 17$ IF ERROR 



OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 13$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
60 TO 17$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 17$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROr * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 17$ IF ERROR 



1736 








;i/ERIFr 


DATA 






1737 026044 


004737 


035342 






JSR 


PC.CMPBUF 


;G0 COMPARE WRITE. READ DATA BUFFERS 


026050 


101360 








.UCRD 


BUFONE 


;STARTING ADDRESS OF WRITE BU»^FER 


026052 


102364 








.WORD 


BUFTWO 


;STARTJNG ADDRESS OF READ BUFFER 


026054 


000404 








Bft 


16$ 


■60 TO 16$ IF NO ERROR 


026056 


000240 








NOP 




•RETURN HERE IF ERROR 


026060 


104000 








EMT 




•ERROR * DEFINED BY CMPBUF SUBROUTINE 


026062 


000137 


026116 






JMP 


17$ 


;G0 TO 17$ IF ERROR 


1738 026066 








16$: 








1739 026066 


032737 


000200 


001444 




BIT 


. .RMOFO 


•DONE BOTH OFFSETS?? 


1740 026074 


001010 








BNE 




•YES! ! 


1741 026076 


052737 


000200 


001444 




BIS 


" .-?MOFO 


•SET FORWARD OFFSET 


1742 026104 


012737 


101360 


001416 




MOV 


jNE, RM6A0 


■CHANGE DATA BUFFER 


1743 026112 


000137 


025336 






JMP 


2$ 




1744 026116 








17$: 








1745 
















1746 






















.••TEST 


26 


IVC FORMAT TEST 




026116 








TST26: 








026116 


000004 








SCOPE 




•SCOPE CALL 


026120 


000240 








NOP 




•START OF TEST 



ZRMNBO 

'26 



IVC FORMAT TEST 



17<,7 
1748 
17<,9 
1750 
1751 
1752 
1753 
1754 
1755 
1756 



026122 
026126 
026132 
026136 



026K*. 
026152 
026160 
026166 
0261 74 
026202 



012706 
013700 
0" 3701 
012737 



012737 
012737 
012737 
012737 
C12737 
012737 



001100 
001276 
00K66 
000026 



000000 
000000 
010000 
1 77376 
101360 
000062 



1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 



1773 
1774 
1775 
1776 
1777 
1778 



026256 
026260 
026262 
02626A 
026270 



02t270 
026276 
02630A 

026312 
026316 
026320 
026322 
026324 
026330 



026330 
026336 
0263«A 



OOOAOA 
000240 
104000 
000137 



026740 
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001226 



001446 
001420 
00U44 

001414 

001416 
001412 



MOrf 
MOV 
MOV 
MOV 



•STACK. SP 
S6ASE,R0 
TSTQUE.RI 
»26.$TESTN 



INITIALIZE STACK POIMER 
RO = UNI9US ADDRESS 
(R1) = DEVICE BEING TESTED 
;SET TEST NUMBER IN APT MAIL 



BOX 



; SETUP PARAMETERS FOR GENERATING DATA BUFFER 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



•O.RMDCO 
#0.RMDAO 
#FMT16.RM0F0 
#-258. .RMUCO 
•8UF0NE.RM8A0 
*UH,RMCS10 



026210 


004737 


033152 




026214 
026>16 


000405 






104401 


063546 




026222 


104000 






026224 


000137 


026740 




1757 026230 






001 1 74 


1758 026230 


012737 


J01420 


1759 026236 


012737 


000001 


001 1 76 


1760 026244 


004737 


035104 


IT 


1761 026250 








1762 








1763 








1764 026250 


004737 


032176 




026254 


154130 







.-VERIFY THAT SECTOR IS NOT BAD 

JSR PC.BADSCT 

BR 1$ 

TYPE .SCTMSG 
EMT 

jMP 16$ 

MOV *RMDAO.$TMP0 

MOV #1.$TMP1 

JSR PC.GENBUF 



1$; 



2S: 

.•PREPARE DEVICE FOR DATA TRANSFER 



CYLINDER = 0 
TRACK = 0. SECTOR = 0 
16 BIT FORMAT 
2 ♦ 256 WORDS (2'S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 



CALL BAD SECTOR MODULE 

GO TO 1$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR * DEFINED BY BADSCT SUBROUTINE 

GO TO 16$ IF ERROR 

;USE SECTOR FOR DATA PATTERN 

;G0 GENERATE DATA BUFFER 



JSR 
.WORD 



"C.TSTPRP 
154130 



3$: 



BR 
NOP 
EMT 
Jf** 



3$ 



16$ 



PRkPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE I VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALI8RATI0N 
60 TO 3$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
^GO TO 16$ IF ERROR 



012737 000001 001436 
112737 000024 001553 
112737 000200 001554 

004737 036240 
000404 
000240 
104000 

000137 026740 



012737 000063 001412 
012737 000000 00H36 
012702 001553 



.-RESET VOLUME VALID BY SETTING AND RESETTING DIAGNOSTIC MODE 

MOV *DMD,RMMR10 ;SET DIAGNOSTIC MODE 

MOVB #RMMR1.PUTINX ; WRITE REGISTER INDEX TABLE 

MOVB #200. PUT I NX +1 



4$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. PUT 
4$ 



16$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ ir NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 16$ IF ERROR 



.•SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 



MOV #WH.'G0,RMCS10 
MOV #0.RMMR10 
MOV #PUT1NX,R2 



WRITE HEADER AND DATA 
RESET DIAGNOSTIC MODE 
WRITE REGISTER INDEX TABLE 



^779 
1780 
1781 
•782 
1783 
1784 
1785 
1786 
1787 
1788 



1789 
1790 
1791 
1792 
1^93 
1794 
1795 



RM05/3/2 FCTNL TST 
IVC FORfWT TEST 
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1796 
1797 
1798 
1799 



1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 



1809 
1810 
1811 
1812 



026350 
026354 
026360 
026364 
026370 
026374 
026400 
026404 

026410 
026414 
026416 
026420 
026422 
026426 



026426 
026432 

026436 
026442 
026444 
026446 
026450 
026454 



026454 
026460 
026462 
026464 
026466 
026470 
026474 
026474 
026502 
026504 
026512 
026520 
026526 
026530 
026530 
026534 
026536 
026540 
026542 
026544 
026550 



026550 
026554 



112722 
112722 
112722 
112722 
112722 
112722 
112722 
112722 



000024 
C00006 
000034 
000032 
00000? 
000004 
000000 
000200 



MOVB *Rrt1R1.(R2)* 

M0V8 #«MDA.(R2)* 

M0V8 #RMDC.(R2)» 

M0V8 #RM0F.(R2)* 

M0V8 «ftf«i/C,(R2}> 

M0V8 #RM8A.(R2)» 

M0V8 #RMCS1.<R2)* 

M0V8 #200. CR2)* 



004737 


036240 






jSR 


PC. PUT 


000404 








BR 


5S 


000240 








NOP 




1 04000 








EMT 




000137 


026 740 






JMP 


16S 








5$: 












.-SETUP 


INPUT REGISTER BUFFER F 


004737 


035704 






JSR 


PC.GETSTS 


004737 


036602 






JSR 


PC.TIMOUT 


004737 


035770 






JSR 


PC. GET 


000404 








BR 


6S 


000240 








NOP 




104000 








EMT 


16S 


000137 


026740 






JMP 








6S: 












.-VERIFY 


DC Cm T C 




004737 


036766 






JSR 


PC.PRIERR 


000405 








BR 


7$ 


000240 








NOP 




104000 








EMT 




004736 








JSR 


pc.a(SP)* 


000137 


026740 






JMP 


16$ 








7S: 




#IVC.RMER2I 




U 1 uuuu 






BIT 


001012 








BNt 


8S 


013737 


001400 


001142 




MOV 


RMER2I,$BDDAT 


013737 


001400 


001140 




MOV 


RMER2I.$GDDAT 


052737 


010000 


001140 




BIS 


#IVC.$GDDAT 


104342 








EMT 


342 








8$: 






004737 


037620 






JSR 


PC.SECERR 


000405 








BR 


9S 


000240 








NOP 




104000 








EMT 




004736 








JSR 


pc.acsp)* 


000137 


026740 






jr^p 


16S 








9$: 












.-CLEAR 


IVC ERROR 


004737 


032176 






JSR 


PC.TSTPRP 


040100 








.WORD 


040100 


000404 








BR 


10S 


000240 








NOP 





GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 16$ IF ERROR 



;WAIT FOR COMMAND TO COMPLETE 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR M DEFINED BY GET SUBROUTINE 

GO TO 16$ IF ERROR 



GO CHECK FOR PRIMARY ERRORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINF 

GO BACK FOR MORE ERROR CHECKS 

60 TO 16$ IF ERROR 

IS IVC STATUS SET?? 
YES! ! 

RECEIVED STATUS FOR TYPEOUT 
EXPECTED STATUS 



GO CHECK FOR SECONDARY ERRORS 

60 TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO '0 16$ IF ERROR 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLfcR CLEAR OPERATION 
GO TO 10$ IF NO ERROR 
RETURN HERE IF ERROR 



T?6 



'813 
1SK 
1815 
1816 
1817 
1818 
1819 



182-0 
1821 
1822 
1823 
182A 
1825 
1826 



1827 
1828 
1829 
1830 



1831 
1832 
1833 
183A 
1835 
1836 
1837 
1858 
1839 



1840 
18A1 
18A2 
'8A3 
18A4 



RM05/3/2 FCTNL TST 
IVC FORMAT TEST 
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026562 
026564 
026570 



026570 
026576 

026604 
026610 
026612 
026614 
026616 
026622 



026622 
026626 

C26632 
026636 
026640 
026642 
026644 
02665C 



026650 
026654 
026656 
026660 
026662 
026664 
026670 
026670 
0266/6 
026700 
026706 
026714 
026722 
026724 
026724 
026730 
026732 
026734 
026736 
026/40 

026740 



026740 
026740 
0?6742 
026744 



104000 
000137 



012737 
012737 

004737 
000404 
000240 
104000 
000137 



004737 
004737 

004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

032737 
001012 
013737 
013737 
052737 
104342 

004737 
000405 
000240 
104000 
004736 



000004 
000240 
012706 



C26740 

000073 
102364 

036240 

026740 

035704 
036602 

035770 
026740 
036766 

026740 

010000 

001400 
001400 
010000 

037620 



10S: 



EMT 



16$ 



.•ERROR » DEFINED BY TSTPRP SUBROUTINE 
;60 TO 16$ IF ERROR 



001412 
001416 



;READ HEADER AND DATA FOR SECTOR JLST WRITTEN 



11$: 



MOV 
MOV 

JSR 

BR 

NOP 

EMT 

JMP 



#RH.'G0.RMCS10 
«eUFTWO,RMBAO 

PC, PUT 
11$ 



16$ 



.•READ HEADER £ DATA COMMAND 
.•CHANGE BUS ADDRFSS 

GO WRITE REGiSTER(S) WITH PUT SUBROUTINE 

60 TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINc 

GO TO 14$ IF ERROR 



.-SE^UP INPUT REGISTER BUFFER FOR READING STATUS 



12$: 



,SR 
JSR 

JSR 

BR 

NOP 

EMT 

JMP 



PCGETSTS 
PC.TIMOUT 

PC. GET 
12$ 



16$ 



;WAIT FOR READ TO COMPLETE 

GO READ REGJSTER(S) WITH GET SUBROUTINE 

GO TO 12$. IF NO ERROR 

RETURN HERE IF ^RROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 16$ IF ERROR 



.•VERIFY THE RESULTS OF READ OPERATION 



001400 

001142 

001140* 

001140 



13$: 



14$: 



15$: 
16$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

BIT 
BNE 
MOV 
MOV 
BIS 
EMT 

JSR 

BR 

NOP 

EMT 

JSR 



PC . PR 1 ERR 
13$ 



pc.a(SP)* 

16$ 

*IVC.RMER2I 
14$ 

RMER2I.$BDDAT 
RMER2I,$GDDAT 
*IVC.$GDDAT 
342 

PC.SECERR 
15$ 



PC.a(SP)+ 



GO CHECK FOR PRIMARY ERRORS 
GO TO 13$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 16$ IF ERROR 

IS IVC STATUS SET?? 
YES! ! 

RECEIVED STATUS FOR TYPEOUT 
EXPECTED STATUS 



GO CHECK FOR SECONDARY ERRORS 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 



••***»****•***•»«** ♦l.**«*»*w* «*»«»***•**•**••*••*«*****»••**«*•*• 

;*TEST 27 FORMAT ERROR TEST 

••»*♦••**•*•*»***•*»•*♦•»•»*•*•»*•****•••»«*••♦••*»**•••*•»*•••** 

tsT27: 



001100 



SCOPE 

NOP 

MOV 



#STACK.SP 



SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 



f(jSH>1AT ERROfi TEST 
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18A6 

^850 
1851 

^833 
1854 
1855 



1856 
^857 
*858 
1859 
I860 
1861 
1862 
1863 



1864 
M65 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
18^4 
1375 
18'6 
1877 



C?6750 
026754 
026760 



026766 
026774 
027002 
027010 
027016 
027016 
027024 



027032 
027036 
027040 
027044 
027046 
027052 
027052 
027060 
027066 
027072 



027072 
027076 



02?100 
027102 
027104 
027106 
027112 



027112 
027120 
027124 
027130 
027134 
027140 
027144 
027150 
0271 54 

027160 
027164 
027166 
0271 70 



013700 
013701 
012737 



012737 
012737 
012737 
012737 

012737 
012737 



004737 
000405 
104401 
104000 
000137 

012737 
012737 
004737 



004737 
154130 



000404 
000240 
104000 
000137 



012737 
012702 
112722 
112722 
'12722 
} 12722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



001276 
C01466 

000027 001226 



S8ASE.ro 

TSTOUE.Rl 

#27.$TESTN 



RO = UNI8US ADDRESS 

(RV = DEVICE BfJNG TESTED 

;SE^ TEST NLM3ER IN APT MAIL BOX 



000000 
000000 
000000 
177376 

101360 
000062 



001446 
001420 
001444 
001414 

001416 
001412 



: SETUP PARA^TERS FOR GENERATING DATA BUFFER 



IS: 



WDV #0.R«DC0 

MOV »0.m>AO 

MOV #0.ftMOFO 

MOV #-258..RMWCO 



; CYLINDER ^ 0 
.•TRACK = 0. SECTOR - 0 
;18 BIT FORMAT 
;2 ♦ 256 WORDS (2'S COMP^ 



033152 
063346 
027522 

065000 001174 
000001 001176 
035104 



032176 



027522 



000063 
001553 
000006 
000034 
000032 
000002 
000004 
000000 
000200 

D36240 



027522 



2S. 



3S: 



MOV 


«8Uf0NE.RMBA0 


.-DATA BUFFER ADDRESS 


MOV 


VWH.RMCSIO 


.•WRITE HEADER AND DATA 


THAT 


SECTOR IS NOT BAD 




JSR 


PC.8ADSCT 


;CALL BAD SECTOR MODULE 


BR 


2S 


;G0 TO 2$ IF NO ERROR 


TYPE 


.SCTMSG 


.-TYPE BAD SECTOR MESSAGE 


EMT 




.•ERROR * DEFINED BY BADSCT SUBROUTINP 


JMP 


16S 


;G0 TO 16S IF ERROR 


MOV 


*ZEROS,STMP0 


.•USE ALL ZEROS DATA PATTERN 


MOV 


#1,$TMP1 




JSR 


PCG^NBUF 


.-GO GENERATE DATA BUFFER 


DEVICE FOR DATA TRANSFER 



JSR 
.WORD 



PC.T5TPRP 
154130 



4$: 



BR 
NOP 
EMT 
JMP 



4S 



16S 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER £ SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'T>IP" IS SET 

VERIFY RE CALIBRATION 

GO TO 4S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 16$ IF ERROR 



001412 



; SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 



MOV 
MOV 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 
MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



<^*<.'G0.RMCS10 
*PUTINX.R2 
#RMDA.(R2)+ 
*RMDC.(R2)-' 
#RM0F,(R2)* 
#RMWC,(R2)* 
#RM8A.(R2)* 
*R«CS1.(R2)+ 
#200.(R2)+ 

PC, PUT 
5t 



^6$ 



.WRITE HEADER AND DATA 
.•WRITE REGISTER INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBRO'JMNt 

GO TO 5S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR If DEFINED BY PUT SUBROUTINE 

GO TO 16$ IF ERROR 





f<MOS/5/2 FCTNL 


TST 2 




F OHl'IAT 


ERROR TEST 


1 fl7S 


027176 






1 Of 7 








1 ftftO 








1 s^s^^ 


027 1 76 


004737 


035704 


1 Afl? 


027202 


00A737 


036602 


1 

1 OOj 








1 oc* 


027206 


004737 


035770 




027212 


0OOA04 








0OO2A0 






027216 


104000 






027220 


000137 


027522 


1835 


02722^ 
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1886 
1887 
1888 



1889 
1890 



1891 
1892 



1895 
1894 
1895 
1896 
1897 
1898 
1899 
190C 
1901 
1902 



1903 
1904 
1905 
1906 
1907 
1908 



027224 
027230 
027232 
027234 
027236 
G27240 
027244 
027244 
027250 
027252 
027:54 
027256 
027260 
027264 
027264 
027270 
027272 
0272/4 
027276 
027300 
027304 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



036766 

0Z7522 
051502 

027522 
037620 

027522 



.•SETUP INPUT kEGISTER BUFFER FOR READING STATUS 

JSfi pcgetsts 

JSR PC.TIHOUT .-WAIT FOR COMMAND TO COMPLETE 



6$; 



JSR 

BP 

NOP 

EMT 

JMP 



PC.GET 
6t 



16$ 



;60 READ P.EGISTER(S) WITH GET SUBRObTI'.E 

;G0 TO 6t IF NO ERROR 

.•RETURN HERE IF ERROR 

.-ERROR * DEFINED BY GET S BROUTINE 

.•GO TO 16$ IF ERROh 



.•VERIFY RESULTS OF WRITE COMMAND 



7$: 



8$: 



9$: 



JSR 
BR 
NOP 
EMT 
ISR 
JMP 

JSR 
BR 

NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.PRIERR 
7$ 



PC.a(SP)* 
16$ 

PC.DTASTS 
8$ 



PC.a(SP)* 
16$ 

PC.SECERR 
9$ 



PC.S(SP)* 
16$ 



60 CHECK FOR PRIMARY ERRORS 

60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

60 TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 



027304 


005137 


001444 




COM 


027310 


042737 


167777 


001444 


SIC 


027316 


012737 


102364 


001416 


MOV 


027324 


012737 


000073 


001412 


MOV 


027332 


004737 


036240 




JSR 


027336 


000404 






BR 


027340 


000240 






NOP 


027342 


104000 






EMT 


027344 


000137 


027522 




JMP 


027350 








10$: 










;WAIT FOR Rl 


027350 


004737 


036602 




JSR 


027354 


004737 


035770 




JSR 


027360 


000404 






BR 


027362 


000240 






NOP 


027364 


104000 






EMT 



;READ HEADER AND DATA FOR SECTOR JUST WRITTEN IN OPPOSITE FORMAT 
;T0 CHECK THAT 'TER" SETS 

RMOFO .-CHANGE TO OPPOSITE FORMAT 

#»C<FMT16>.RM0F0 



*8uftw0.rmba0 
*rh;go,rmcsio 

PC. PUT 
10$ 



16$ 



PC.TIMOUT 

PC.6ET 
11$ 



;CHAN6E BUS ADDRESS 
;RtAD HEADER & DATA COMMAND 

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;60 TO 10$ IF NO ERROR 

.•RETURN HERE IF ERROR 

; ERROR » DEFINED BY PUT SUBROUTINE 

;G0 TO 16$ IF ERROR 



.•WAIT FOR READ TO COMPLETE 

;60 READ RE6ISTER(S) WITH GET SUBROUTINE 

;G0 TO 11$ IF NO ERROR 

.-RETURN HERE IF ERROR 

;ERROR * DEFINED BY GET SUBROUTINE 



Z»«»gBO fZJHi TST 2 

'2^ --ORMAT E««OR 'EST 



1909 
1910 
19-1 
1912 



1913 
1914 
1915 
1916 
1917 

1918 
1919 



^920 

1921 
1922 
1923 
192<. 
1925 
1926 



1927 
1928 
1929 
1930 
1931 
1932 
1953 



027366 
027372 



027172 
027376 
027400 
027402 
027404 
027406 
027412 



027412 
027420 

027422 
C27426 
027430 
C27432 
027454 
027436 

027442 
027450 
027456 
027464 
027466 
027466 
027472 
027474 
027476 
027500 
027502 
027506 
027506 

027514 
027516 
027522 



1935 
1936 
1937 

1938 



000137 02752? 

004757 056766 
000405 
000240 
104000 
004736 
000137 



052737 
001022 

004737 
000405 
000240 
104000 
004736 
000157 

015737 
013757 
052757 
104345 

004757 
000405 
000240 
104000 
004736 
000157 

052757 

001402 
000 1i7 



027522 

000020 
051502 

027522 

001352 
001352 
000020 

057620 

027522 
010000 

027016 
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nS: 



SEO 0133 



001552 



001142 
001140 
001140 



001444 



027522 








027522 


000004 






027524 


000240 






027526 


012706 


001100 




027552 


015700 


001276 




027536 


013701 


001466 




027542 


012757 


000050 


001226 


027550 


012737 


000001 


030520 


027556 








027556 


012757 


010000 


001444 



12$: 



13$: 



14$: 





16$ 


;G0 TO 16$ IF ERROR 


THE 


RESULTS OF READ OPERATION 


JSR 


PC PRIERR 


GO CHECK FOR PRIMARY ERRORS 


BR 


12$ 


:G0 TO 12$ IF NO ERROR 


NOP 




.-RETURN HERE IF ERROR 


EHT 




■ERROR # DEFINED BY PRIERR SUBROUTINE 


jsr 


pc,a(sp>* 


-GO BACK FOR MORE ERROR CHECKS 


JMP 


i6i 


•GO TO 16$ If ERROR 


THAT 


FORMAT ERROR IS SET 




BJT 


»FER.RMER1 I 


;IS FORMAT ERROR SET?? 


BNE 


14$ 


;YES. . 


JSR 


PC.DTASTS 


;G0 VERIFY RESULTS OF DATA TRANSFER 


BR 


13$ 


;G0 TO 13$ IF NO ERROR 


NOP 




.'RETURN HERE IF ERROR 


EMT 




.-ERROR # DEFINED BY DTASTS SUBROUTINE 


JSR 


pc.a(SP)* 


;G0 BACK FOR MORE ERROR CHECKS 


JMP 


16$ 


;G0 TO 16$ IF ERROR 


MOV 


RMER1I.$BDDAT 


;8AD DATA FOR TYPEOUT 


MOV 


RMER1J.$GDPAT 


.-EXPECTED DATA 


BIS 


*FER,$GDDAT 




EMT 


343 




•SR 


PC.SECERR 


;G0 CHECK FOR SECONDARY ERRORS 


BR 


15$ 


;G0 TO 15$ IF NO ERROR 


NOP 




.-RETURN HERE IF ERROR 


EMT 




.-ERROR # DEFINED BY SECERR SUBROUTINE 


JSR 


PC.a(SP)* 


.-GO BACK FOR MORE ERROR CHECKS 


JMP 


16$ 


;G0 TO 16$ IF ERROR 


BJT 


*fMT16.RM0F0 


;TEST WRITE 16 BIT FORMAT AND 






.-READ 18 BIT MODE ? 


BEQ 


16$ 


;8R IF YES 


JMP 


1$ 


.-TEST AGAIN 



15$: 



16$: 

-»•»»»»*»»♦»»»»♦»»»**»♦•»*»*»»••♦»*•«♦*♦***»«*•♦»**»•»»»•»»*»»•• 

♦TEbT 30 FORMAT HCE. FIRST HEADER WOK:^ 

•»•♦*»»»♦»»•»»»»♦»»»»»*♦•♦»**••»»*»**»*»****»**»»**»•***»*•*»»»• 

tST30: 

SCOPE .-SCOPE CALL 

NOP .-START OF TEST 

MOV #STACK.SP .-INITIALIZE STACK POINTER 

MOV $8ASE.R0 ;R0 = UNI8US ADDRESS 

MOV TSTQUE.R1 ; (RD = DEVICE BEING TESTED 

MC/ *30,$TESTN ;;SET TEST NUI«ER IN APT MAIL BOX 



MOV 



*1.23$ 



;INIT BIT POSITION 



.-SETUP PARAMETERS FOR GENERATING DATA BUFFER 
1$: 

MOV ffFMn6.RM0F0 l^t BIT FORMAT 



'^Z»•1^fiO RM05/5/2 fClHL TST 2 ^AZkO V04.00 
'^0 FORMAT HCE. FIRST HEADER WORD 



1942 

^944 
"945 
'946 
1947 



027564 
027572 
027600 
027606 
027614 



T948 
•949 
1950 
1951 
'952 
1953 
1954 
1955 



027622 
027626 
027630 
027634 
027636 
027642 
027642 
027650 
027656 
027662 



C27662 
027666 



027670 
027672 
027674 
027676 

1956 027702 

1957 

1958 

1959 027702 

1960 027710 

1961 027712 

1962 027720 

1963 027722 
1964 

1965 

1966 027730 

1967 027730 

1968 027736 

1969 027742 

1970 027746 

1971 027752 

1972 027756 

1973 027762 
19 '4 027766 
1975 027772 
1976 

1977 027776 
030002 
050004 
030006 



012737 
012737 
012737 
C12737 
012737 



004737 
000405 
104401 
104000 
000137 

012737 
012737 
004737 



004737 
154130 



000404 
000240 
104000 
000137 



033737 
001404 
043737 
000403 
053737 



012737 
012702 
112722 
112722 
112722 
112722 
U2722 
m722 
M2722 

004737 
000404 
000240 
104000 



000000 

cooooo 

177376 
101360 
000062 



033152 

063346 

030672 

065000 
000001 
035104 

032176 



001446 
001420 
001414 
001416 
001412 



4-APR-81 



MOV 
MOV 
MOV 
MOV 
MOV 



45:33 PAGE 



11 

13-t3 



EO 0134 



#0.R«DC0 

#0,RMDA0 

#-258..RMWCO 

#8UF0NE,RMBA0 

«UH,RMCS10 



001 1 74 
001 1 76 



;VERIFr THAT SECTOR IS MOT BAD 

JSR PC.ftADSCT 

BR 2* 

TYPE .SCTMSG 
EMT 

JMP 27$ 

MOV #ZEROS.$TMP0 

MOV *1.$TMP1 

JSR PC.GE^8UF 



2$: 



CYLINDER - 0 
TRACK = 0. SECTOR = 0 
2 ♦ 256 WORDS (2*S COMP) 
DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 



CALL BAD SECTOR MODULE 

GO TO 2$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR » DEFINED BY BADSCT SUBROUTINE 

GO TO 27$ IF ERROR 



3$; 



;USE ALL ZEROS DATA PATTERN 
;G0 GENERATE DATA BUFFER 



.•PREPARE DEVICE FOR DATA TRANSFER 



JSR 
.WORD 



PC.TSTPRP 
154130 



030672 

030520 101360 
030520 101360 



4$: 



BR 
NOP 
EMT 
JMP 



4$ 



27$ 



PREPARE DEVICE FOR TEST 

^ASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE i VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER i SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY TSTPRP SUBROUTINE 

GO TO 27$ IF ERROR 



.•COMPLEMENT DATA BIT IN FIRST HEADER WORD 



030520 101360 5$: 



BIT 

BEQ 
BIC 
BR 

BIS 



23$,8UF0NE 
5$ 

23$.8UF0NE 
6$ 

23$.8UF0NE 



IS BIT IN HEADER ON'? 
NO' I 

RESET BIT IN HEADER 
;SET BIT IN HEADER 



.•SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 



000063 
001553 
000006 
000034 
000032 
000002 
000004 
000000 
000200 

036240 



001412 



6$: 



MOV 

MOV 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

JSR 
BR 
NOP 
EMT 



*WH.'G0,RMCS10 

#PUTINX,R2 

*RMDA,(R2)+ 

*RMDC.(R2)+ 

*RM0F.(R2)+ 

<rRMWC.(R2) + 

*RMaA.(R2)* 

*RMCS1.(R2)* 

*200.(R2)* 

PC. PUT 
7$ 



.•WRITE HEADER AND DATA 
.•WRITE REGISTER INDEX ABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 



ZRf^Q RM05/V2 fCTl«. TST 2 HAC«0 VOA.OO 
^^C FORMAT HCE. FIRST HEADER WORD 
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SfO 01 5S 



1978 
1970 

•980 
1981 
'982 
•983 
■'984 



1985 
1986 
1987 
1988 



'989 
1990 



901 
'992 



1993 
199A 
1995 
1996 
1097 

1998 
1999 



2000 
2001 
2002 
2003 
2004 
2005 



030010 
0300U 



0300U 
030020 

030024 
030030 
030032 
030034 
030036 
030042 



030042 
030046 
030050 
030052 
C30054 
030056 
050062 
030062 
030066 
030070 
030072 
030074 
030076 
030102 
030102 
030106 
030110 
030112 
030114 
030116 
030122 



030122 
0301 30 

050136 
050142 
030144 
030146 
030150 
030154 



000137 030516 



7$: 



22$ 



;G0 TO 22$ If ERROR 



030160 
030164 
030166 
0301 70 
030172 
C30^'6 



004737 
004737 

004737 
000404 
000240 
104000 
000137 



004757 
000405 
000240 
104000 
004736 
000137 

004757 
000405 
000240 
104000 
004736 
0001 37 

004737 
000405 
000240 
104000 
004736 
000137 



012737 
012737 

004737 
000404 
000240 
104000 
000137 



030154 004737 



004/37 
000404 
000240 
104000 
000137 



035704 
036602 

035770 



030516 
036766 

030516 
051502 

030516 
037620 

050516 



000073 001412 
102364 001416 

036240 



030516 

036602 
035770 

0305^6 



.-SETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PC.6ETSTS 

JSR PC.TIHOUT ;WAIT FOR COMMAND TO COMPLETE 



8$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC.GET 
8$ 



22$ 



;\^ERIFY RESULTS OF WRI'E COMMAND 



9$- 



10$: 



11$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PCPRJERR 
9$ 



PC.a(SP)* 

22$ 

PC.DTASTS 
10$ 



. pc.a(sp)+ 

22$ 

PC.SECERR 
11$ 



pc.a(SP)* 

22$ 



GO READ REGIS TERCS) WITH GET SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 22$ IF ERROR 



GO CHECK FOR PRIMARY ERRORS 

GO TO 9$ JF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BV PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 



.-READ HEADER AND DATA FOR SECTOR JUST WRITTEN 

MOV <fRH,G0.RMCS10 ;READ HEADER & DATA COMMAND 
MOV *8UFTW0,RM8A0 .-CHANGE BUS ADDRESS 



12$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, PUT 
12$ 



22$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 22$ IF ERROR 



.-WAIT FOR READ TO CCWPLETE AND GET STATUS 

JSR PC.TIMOUT .-WAIT FOR READ TO COMPLETE 



3$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
13$ 



22$ 



GO READ REGISTER(S) WITH GET SUBROUMNE 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 22$ IF ERROR 



.-"J08 



?010 
2011 
2012 
2013 
20K 
2015 
2016 
2017 
2018 
2019 
2020 



2021 
2022 
2023 
202A 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 



203A 
2035 
2036 
2037 
2038 
2039 
20A0 
2041 
20A2 
2043 
2044 
2045 
2046 



050176 
030202 
030204 
030206 
030210 



03032^. 
030330 
030332 
030334 
030336 
C30340 
030344 
030344 
030352 
030360 
030366 
030370 



030372 
030372 
030400 

03040? 
C30406 
C30410 



C04737 
000405 
000240 
104000 
004736 



HtADF'< WORD 



V04.00 4-APR-81 11:43:33 



G 

PAGE 



n 

13-65 



036766 



030516 



;VERIFV THE RESULTS OF READ OPERATION 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.PRIERR 
US 



PC.S(SF)* 
22$ 



GO CHECK FOR PRIMARY ERRORS 
60 TO 14$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PRIERR SjeROU'lNf 
GO BACK FOR MORE ERROR CHtCKS 
GO TO 22$ IF ERROR 



030216 








'4$: 




*MoF!USE,23$ 




030216 


032737 


140000 


030520 




BIT 


.•SHOULD BSE BE SET ? 


030224 


001033 








BNE 


16$ 


;YES !.' 


030226 


032737 


010000 


030520 




BIT 


#FMT16.23$ 


;IS THIS FER ?? 


030234 


001456 








BEQ 


18$ 


;N0 ! ! 










.•VERIFV 


THAT 


FER IS SET 




030236 


032737 


000020 


001352 


BIT 


#FER,RMER1 I 


;IS FER SET ?? 


0^0244 


001107 








BNE 


20$ 


;VES 11 


030246 


004737 


051502 






JSR 


PC.DTASTS 


;G0 VERIFV RESULTS OF DATA TRANSFER 


C30252 


000405 








BR 


15$ 


;G0 TO 15$ IF NO ERROR 


030254 


000240 








NOP 




; RE TURN HERE IF ERROR 


030256 


1 04000 








EMT 




.•ERROR * DEFINED BY DTASTS SUBROUTINE 


030260 


004736 








JSR 


PC.a(SP)* 


;G0 BACK FOR MORE ERROR CHECKS 


030262 


0001 37 


030516 






JMP 


22$ 


;G0 TO 22$ IF ERROR 


030266 








15$: 








030266 


013737 


001352 


001142 




MOV 


RMER1I,$8DDAT 


.•RECEIVED STATUS 


030274 


013737 


001352 


001140 




MOV 


RMER1I.$GDDAT 


.•EXPECTED STATUS 


030302 


052737 


000020 


001140 




BIS 


*FER,$GDDAT 




030310 


104343 








tMT 


343 




030312 


000501 








BR 


22$ 












.•VERIFY 


THAT 


BSE IS SET 




030314 








16$: 








030314 


032737 


100000 


001400 




BIT 


#8SE.RMER2I 


;IS BSE SET ?? 


030322 


001060 








BNE 


20$ 


;YES !! 



004737 
000405 
000240 
104000 
004736 
000^37 

013737 
013737 
052737 
104345 
000452 



032737 
001031 

004737 
000405 
000240 



051502 



030516 

001400 
001400 
100000 



001142 
001 140 
001140 



17$: 



000200 001352 



051502 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

MOV 
MOV 
BIS 
EMT 
BR 



.-VERIFY THAT 
^8$: 

BIT 
BNE 

JSR 

BR 

NOP 



PC.DTASTS 
17$ 



PC,S(SP;+ 
22$ 

RMER2I.$BDDAT 

RMER2I.$GDDAT 

*8SE.$GDDAT 

345 

22$ 

HCE IS SET 

*HCE.RMER1I 
20$ 

PC.DTASTS 
19$ 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 

RECEIVED STATUS 
EXPECTED STATUS 



.■SKIP REST OF TEST 



;IS "HCE' 
;YES. : 



SET?? 



;60 VERIFY RESULTS OF DATA TRANSFER 
;G0 TO 19$ IF NO ERROR 
.•RETURN HERE IF ERROR 



fORMAT HCE, 



'NL T5T 2 MACRO 
F IRST HEADER WORD 



V04.00 4-APR-81 11:43:35 
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SEO 0H7 



?W7 
20^8 
2049 
?050 
?051 
20S2 
2053 
?054 
2055 
2056 
2057 
2058 



2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
207'J 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 



030412 
030414 
030416 
030422 
030422 
030430 
030456 
030444 
050452 
050460 
050462 
050464 



050464 
050470 
050472 
050474 
050476 
C50500 
050504 



050504 
050510 
050512 

050516 
050520 



050522 
050522 
030550 
050556 
050544 
030552 

030556 
C 50562 



050564 
050566 
050570 
050572 

2080 030576 

2081 030576 

2082 030604 
2085 050610 



104000 
004756 
000157 

015757 
015757 
052737 
012737 
013/57 
104344 
000415 



004757 
000405 
000240 
104000 
004736 
0001 37 



006337 
001404 
000157 

000465 
000000 



012757 
012757 
012757 
012737 
004757 

004757 
154150 



000404 
000240 
104000 
000137 



050516 

001352 
001552 
000200 
000001 
050520 



057620 

050S16 

050520 
027556 



010000 
177776 
101560 
000062 
035104 

0321 76 



050576 



001142 
001140 
001140 
001174 
001 1 76 



19S: 



20t: 



EMT 

JSR PC.a(SP)* 

JMP 22$ 

TOV RMER1I.S8DDAT 

MOV RMERII.SGDDAT 

BIS #HCE,$GDDAT 

MOV #1.$TMP0 

MOV 23$.$TMP1 

EMT 34; 

BR 22$ 



.•CHECK FOR OTHER ERRORS 



21$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.SECERR 
21$ 



PC.aCSP)* 
22$ 



.-ERROR » DEFINED BY DTASTS SUBROUTINE 
;G0 8AC< FOR -WRE ERROR CHECKS 
;G0 TO 22$ IF ERROR 

.•RECEIVED STATUS FOR TYPEOUT 
.•EXPECTED STATUS 

.•GET HEADER WORD NUMBER 
.•GET FAILING BIT POSITION 



GO CHECK FOR SECONDARY ERRORS 

GO TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ER90R * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 



.•ADVANCE THE BIT POSITION AND FORMAT AGAIN IF NOT DONE 

ASL 23$ ;SHIFT TO NEXT BIT POSITIWv 

BEO 24$ ;EXIT IF DONE 

jMP 1$ ;G0 DO NEXT SECTOR 



22$: 
231: 



BR 

.WORD 



27$ 

0 



;JUMP TO NEXT TEST 
.•STORAGE FOR BIT POSITION 



001444 
001414 
001416 
001412 



) ♦REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER 

■ -A************************************************************** 

24$: 



MOV 
MOV 
MOV 
MOV 
JSR 

JSR 
.WORD 



#FMT16.RM0F0 

#-2,RMWC0 

#8UF0NE.RM8A0 

*WH,RMCS10 

PC.6ENBUF 

PC.TSTPRP 
154130 



012737 000065 001412 
012702 001553 
000006 



25$: 



112722 



BR 
NOP 
EMT 
JMP 

MOV 
MOV 
M0V8 



25$ 



25$ 



#WHiGO,PMCSlO 

*PUTINX,R2 

*RMDA,(R2)* 



16 BIT MODE 

ONLY TWO HEADER WORDS 

SELECT THE BUFFER 

WRITE HEAD AND DATA COMMAND 

GENERATE THE BUF-^ER PATTERN 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DE«/ICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI'" OR "PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 25$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 25$ IF ERROR 

SET THE GO BIT 

PUT THE REGISTER ADDRESS INTO taBlE 



2 MA'ftO 
HEADER wO»D 
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2084 
2085 
2086 
2087 
2088 
2089 
2090 



?0<?1 
2092 
2095 
2094 
2095 
2096 
2097 



2098 
2099 
2100 
2101 
2102 
2105 
2104 
2105 
2106 
2^07 
2108 
2109 
2110 



050614 
050620 
050624 
050650 
050654 
050640 
050644 
050650 
050652 
050654 
050656 
050662 
050662 
050664 
050670 
05067? 



050726 
050726 
050754 
050742 
050750 
050756 
050764 



112722 
112722 
^'2722 
112722 
112722 
1 • 2722 
004757 
000404 
000240 
104000 
000137 

000240 
004757 
000240 



000054 
000052 
000002 
000004 
OOOOCC 
000200 
056240 



050672 
056602 



012757 
012757 
012757 
012757 
012757 
012757 



000000 
000000 
010000 
177576 
101560 
000062 



26$: 



27$: 



M0V8 

WV8 

M0V8 

M0V8 

M0V8 

VCV8 

JSR 

BR 

NOP 

EMT 

JMP 

NOP 
JSR 
NOP 



#RMDC.(R2)* 
#R«Of .(R2)* 
#R«WC,(R2)* 
#RM8A,(R2)* 
*RMCS1.(R2)» 
*200.(R2)* 
PC. PUT 
26$ 



27$ 



PC.TIMOUT 



TERMINATOR 

GO WRITE REGISTER(S) WITH F»UT SLeROUUNE 

GO TO 26$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PUT SUBROUTlNe 

GO TO 27$ IF ERROR 



.•WAIT UNTIL IT FINISH 



050672 








050672 


000004 






050674 


000240 






050676 


012706 


001100 




050702 


015700 


001276 




050706 


015701 


001466 




050712 


012757 


000051 


001226 


050720 


012737 


000001 


051514 



•**••••»*•**•••**••••*••**••••****•••*•***••*******•*•****•*••*• 

•TEST 5* FORMAT hCE. SECOND HEADER WORD 

tST31: 



SCOPE 




; SCOPE CALL 


NOP 




.•START OF TEST 


MOV 


tfSTACK.SP 


.•INITIALIZE STACK POINTER 


MOV 


$8ASE.R0 


;R0 = UNI8US ADDRESS 


MOV 


TSTQUE.Rl 


;(R1) = DEVICE BEING TESTED 


MOV 


*31.$TESTN 


;;SET TEST NUMBER IN APT MAIL BOX 


MOV 


*1J9$ 


;INIT BIT POSITION 



001446 
001420 
001444 
001414 
001416 
001412 



; SETUP PARAMETERS FOR GENERATING DATA BUFFER 
1$: 



MOV 


*O.SMDCO 


.•CYLINDER = 0 


MOV 


*O.RMDAO 


.-TRACK = 0. SECTOR - 0 


MOV 


*FMT16.RM0F0 


;16 BIT FORMAT 


MOV 


*-258..RMWC0 


;2 ♦ 256 WORDS (2'S COMP) 


MOV 


*8UF0NE.RM8A0 


.•DATA BUFFER ADDRESS 


MOV 


^.RMCSIO 


; WRITE HEADER AND DATA 





050772 


004757 


033152 






030776 


000405 








051000 


104401 


063546 






051004 


104000 








051006 


000157 


051666 




2111 


051012 








2112 


051012 


012757 


065000 


001 1 74 


2113 


031020 


012757 


000001 


001 1 76 


2114 


051026 


004737 


055104 




2115 


051052 








2116 










2117 










2118 


031 032 
031036 


004737 
154150 


052176 





;VERIFY 



2$. 



3$: 



THAT SECTOR IS NOT BAD 

JSR PC.SADSCT 

BR 2$ 

TVPE .SCTMS6 
EMT 

JMP 25$ 

MOV *Z£:ROS.$TMP0 

MOV *1,$TMP1 

JSR PC.GENBUF 



CALL BAD SECTOR MODULE * 

GO TO 2$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR * DEFINED BY BADSCT SUBROUTINE 

GC TO 23$ IF ERROR 

.•USE ALL ZEROS DATA PATTERN 

.•GO GENERATE DATA BUFFER 



;PREPARE DEVICE FOR DATA TRANSFER 



JSR 
.WORD 



PC.TSTPPP 
154130 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE I VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER 6 SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 



tV\fa. c<M0^/^^2 KTNL TST 2 "^CRO VOA.OO 
^ jwrAT hCE. SffOND HEADER WORD 



J 

PAGE 



n 

13-68 



SCO 0159 



2119 
2120 
2^21 
2122 
2123 
2124 
2125 
2126 
2127 
2V8 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 



2141 
2142 
2143 
2144 

2145 
2146 
2147 



2148 
2149 
2150 
2151 



2152 
2155 



031040 
031042 
031044 
031046 



031052 
031052 
031060 
051062 
031070 
031072 



031 1 74 
031200 
031202 
031204 
031206 
031212 



031212 
031216 
031220 
031222 
031224 
031226 
031232 
031252 
031256 



000404 
000240 
104000 
000137 



055757 
00' 404 
045757 
000405 
055757 



051666 

0515^4 101562 

051514 101562 

051514 101562 



BR 
NOP 
EMT 
JMP 



4S 



25$ 



PACK ACKNOWLEDGE U VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'V\P" IS SET 

VERIFY RECAL18RAT10N 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPftP SUBROUTINE 

GO TO 23$ IF ERROR 



;C0«1PLEMENT DATA Bj T ]N SECOND HEADER WORD 
4$: 

BIT 19S.8UF0Nfc*2 ;IS BIT IN HEADER ON?? 

BEQ 5$ ;N0! . 

BIG 19$.8UF0NE+2 ;RESET BIT IN HEADER 

BR 6$ 

5$: BIS 19$.8UF0NE*2 ;SET BIT IN HEADER 







.-SETUP 


AND EXECUTE WRITE HEADER 


AND DATA COMM.-'.M!) 


051100 




6$: 








C51100 


012737 


0G0065 001412 


MOV 


ffWH.GO.RMCSlO 


.-WRITE HEADER AND DATA 


051106 


012702 


001555 


MOV 


*PUTINX.R2 


.-WRITE REGISTER INDEX TABLE 


051112 


112722 


000006 


M0V8 


#RMDA. CR2)+ 




051116 


112722 


000054 


M0V8 


#RMDC. (R2)+ 




051122 


112722 


000052 


M0V8 


*RMOf . (R2)+ 




031126 


112722 


000002 


M0V8 


*RMWC.(R2)+ 




051152 


112722 


000004 


M0V8 


*RMBA.(R2)+ 




051156 


112722 


000000 


M0V8 


*RMCS1 .(R2)* 




051142 


112722 


000200 


M0V8 


#?00,(R2)<- 




051146 


004737 


036240 


JSR 


PC. PUT 


;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 


051152 


000404 




BR 


7$ 


;G0 TO 7$ IF NO ERROR 


051154 


U00240 




NOP 




.-RETURN HERE IF ERROR 


031156 


104000 




EMT 




.-ERROR * DEFINED BY ''UT SUBROUTINE 


U5r60 


000137 


05^512 


JMP 


18$ 


;G0 TO 18$ IF ERROR 


031164 




7$: 












.•SETUP 


INPUT 


REGISTER BUFFER FOR READING STATUS 


051164 


004757 


055704 


JSR 


PC.GETSTS 




031170 


004737 


056602 


JSR 


PCTIMOUT 


.•WAIT FOR COMMAND TO COMPLETE 



004757 
000404 
000240 
104000 
COO 157 



004757 
000405 
000240 
104000 
004756 
000137 

004757 
000405 



055770 



051512 



056766 



051512 
051502 



8$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, GET 
8$ 



18$ 



;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 8$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.•ERROR * DEFINED BY GET SUBROUTINE 

.■GO TO 18$ IF ERROR 



; VERIFY RESULTS OF WRITE COMMAND 



9$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 



BR 



PC.PRIERR- 
9$ 



PC.S(SP)* 
18$ 

PC.DTASTS 
10$ 



GO CHECK FOR PRIMARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 10$ IF NO ERROR 



ZRi^lNBO RM05/5/2 FCTNL TST ? I»1ACR0 VO^.OO 
■'1 FOPMAT HCE. SECOND HEADER WORD 



K 11 

11:A3:55 PAGE 13-69 



2154 
£155 



2156 
2157 
2158 
2159 
2160 
2161 
2''62 



2163 
2164 
2165 
2166 
2167 
2168 



2169 
2170 
2171 
2172 



2173 
2174 
2175 
2176 
2177 
2178 
2179 



2180 
2181 
2182 
2183 



051240 
031242 
031244 
031246 
031252 
031252 
031256 
031260 
031262 
031264 
031266 
031272 



031272 
031 300 

031 306 
031312 
C31314 
031316 
031320 
031324 



031330 
031334 
031336 
031 340 
031342 
031346 



031346 
031352 
031354 
031356 
031360 
031 362 
031 366 



031366 
031374 

031376 
031402 
031404 
031406 
03U10 
031412 
031416 
031416 
031424 
051432 



000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



012737 
012737 

004737 
000404 
000240 
104000 
0001 37 



031324 004737 



004737 
000404 
000240 
104000 
000137 



004^37 
000405 
000240 
104000 
004736 
000137 



032737 
001031 

004737 
000405 
000240 
104000 
004736 
000137 

013737 
013737 
052737 



031512 
037620 

031512 

000073 001412 
102364 001416 

036240 

031512 

036602 
035770 

031512 

036766 

031512 

000200 001352 
051502 



10$: 



11$: 



NOP 
EMI 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.a(SP)* 
18$ 

PC.SECERR 
11$ 



pc.a(SP)* 

18$ 



RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROoTlNE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SETERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 



;READ HEADER AND DATA FOR SECTOR JUST WRITTEN 

MOV #RH.G0.RMCS10 .-READ HEADER £ DATA COMMAND 
MOV #8UFTW0,RMBA0 ."CHANGE BUS ADDRESS 



031512 

001352 
001352 
000200 



'2$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, PUT 
12$ 



18$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 18$ IF ERROR 



;WAIT FOR READ TO COMPLETE AND GET STATUS 

JSR PCTIMOUT .'WAIT FOR READ TO COMPLETE 



13$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, GET 
13$ 



18$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR n DEFINED BY GET SUBROUTINE 

GO TO 18$ IF ERROR 



; VERIFY THE RESULTS OF READ OPERATION 



14$: 
.-VERIFY 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 



001142 
001140 
001140 



15$: 



THAT 

BIT 

BNE 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

MOV 

M0\/ 
BIS 



PCPRIERR 
14$ 



PC,a(SP)+ 
18$ 



HEADER COMPARE 
*HCE,RMER1I 
16$ 

PC, DTASTS 
15$ 



GO CHECK FOR PRIMARY ERRORS 
GO TO 14$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PR I ERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 18$ IF ERROR 



ERROR IS SET 
;IS "MCE' 
;YES! ! 



SET 



pc.a(SP)+ 

18$ 

RMER1I.$BDDAT 
RM[R1I,$GDDAT 
«HCE.$GDDAT 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR n DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 

.•RECEIVED STATUS FOR TYPEOUT 
.•EXPECTED STATUS 



Zf">1NB0 

?186 
2187 
?188 
2189 
2190 
2191 



2192 
2193 
219A 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
220A 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 



2213 
22U 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
222-5 



RW05/3/2 niUL rST 2 MACRO v04.no 
FORMAT HCE. SECOND HEADER WORD 
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03U40 
03U46 
03U54 
03U56 
03U60 



03K60 
03U64 
03K66 
03U70 
03U72 
031474 
031 500 



051500 
031504 
031506 

031512 
031514 



031516 
031516 
031524 
031532 
031540 
031 546 

031552 
031556 



031560 
031562 
031564 
031566 
031572 
031572 
031600 
031604 
031610 
031614 
031620 
031624 
031630 
031634 
031640 



012737 
013737 
104344 
000415 



004737 
000405 
000240 
104000 
004736 
000137 



006337 
001404 
000137 

000465 
000000 



012737 
012737 
012737 
012737 
004737 

004737 
154130 



000404 
000240 
104000 
000137 

012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 
004737 



000002 001 1 74 
C31514 0011^6 



037620 



16$: 



MOV 
MOV 
EMT 
BR 



t2.$TMP0 
19$.$THP1 
344 
18$ 



; CHECK FOR OTHER ERRORS 



031512 

031514 
030726 



010000 
177776 
101360 
000062 
035104 

032176 



031572 

000063 
001555 
000006 
000034 
000032 
000004 
000002 
000000 
000200 
036240 



17$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



.•ADVANCE THE 
ASL 
BEQ 
JMP 



18$: 
19$: 



BR 

.WORD 



PC.SECERR 
17$ 



PC.aCSP)* 
18$ 



BIT POSITION 
1.9$ 
20$ 
1$ 

23$ 
0 



AND 



.-GET HEADER WORD NUMBER 
;GET FAILING SIT POSITION 



GO CHECK FOR SECONDARY ERRORS 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 18$ IF ERROR 



FORMAT NEXT SECTOR IF NOT DONE 
.-SHIFT TO NEXT BIT POSITION 
;E>IT IF DONE 
;G0 DO NEXT SECTOR 



;JUMP OVER STORAGE 
.•STORAGE FOR BIT POSITION 



001444 
001414 
001416 
001412 



•»*•♦»*»»»***•»*****♦•****•*»*****•****•**•****•»*»*♦••♦»***••** 

^REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER 
•»•»•••»•••*»•••**»**•**»»•»*»•*•******•*******»**♦♦•***«♦**•*** 

20$: 

16 BIT MODE 



MOV 
MOV 
MOV 
MOV 
JSR 

JSR 
.WORD 



#FMT16.RM0F0 
*-2.RMWC0 
#8UF0NE.RM8A0 
*WH.RMCS10 
PCGENBUF 

PC.TSTPRP 
154130 



001412 



21$: 



BR 
NOP 
EMT 
JMP 

MOV 

MOV 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

JSR 



21$ 



21$ 

/irWHIGO.RMCSlO 

*PUTINX.R2 

<rRMDA,(R2) + 

*RMDC.(R2)* 

*RM0F.(R2)* 

*RMBA,(R2)* 

#RMWC.(R2)+ 

/lfRMCSl,fR2) + 

*200.(R2)* 

PC. PUT 



2 HEADER WORDS ONLY 
BUFFER ADDRESS 
WRITE HEAD AND DATA COMMAND 
SET UP THE BUFFER 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER 6 SF.LECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGt 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 21$ IF ERROR 

SET GO BIT 
TABLE ADDRESS 



.•TERMINATOR 

;60 WRITE REGISTER(S) WITH PUT SlCROUTINE 



CZR"WBO RM05/5/2 FCTML TST 
FORMAT HCE. SECOND 



2 (lACHO 
HEADER WORD 



4-APR-81 11:43:53 



PAGE 



11 

13-71 



C316A4 000404 

031646 000240 

031650 104000 

031652 000137 031666 

2224 031656 

2225 031656 000240 

2226 031660 004737 036602 

2227 031664 000240 

2228 031666 



22%: 



?3S: 



BR 
NOP 
E«T 
JMP 

NOP 
JSR 
NOP 



22$ 
23$ 

PC.TJMOUT 



GO TO 22$ U NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 23$ IF ERROR 



;UAIT FOR TIME OUT 



V 



CZR*1^JB0 RM05/3/2 FCTNL TST 
END OF SUB-PASS ROUTINE 



MACRO V04.00 



N 11 

4-APR-81 11:43:33 PAGE U 



S£0 0U3 



1 
2 








3 








4 








5 
















7 








8 








9 


031666 


000004 




10 


031670 


000240 




11 


031672 


01 3700 


00H66 


12 


031676 


062700 


000002 


13 


031702 


010037 


001466 


U 


031 706 


005710 




15 


031710 


001402 




16 


0317(2 


000137 


032U2 


17 


031716 


012737 


001470 


18 








19 








?0 









031724 






031724 


000240 




031726 


005037 


001116 


031 732 


005037 


001206 


031736 


005237 


001230 


031742 


042737 


100000 


031750 


005327 




031752 


000001 




031754 


003066 




031756 


012737 




031760 


000001 




031762 


031 752 




031764 


104401 


031772 


031 770 


000407 




032010 




001230 


032010 


013746 


032014 


104405 




032016 


005737 


001126 


032022 


001431 




032024 


104401 


032032 


032030 


000421 




032074 






032074 


013746 


001126 


032100 


104405 




032102 


005037 


001126 



001230 



.S8TTL END OF SU8-PASS ROUTIN: 

THIS IS THE END Of SUB-PASS ROUTINE. THIS ROUHNE IS USED TO 
TERMirjATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND 
SELECT THE NEXT DEVICE FOR TES^. IF THERE ARE NO MORE DEVICES 
TO TEST, EXIT IS MADE TO 'SEOP' ROUTINE. OTHERWISE. RETURN 
IS MADE TO "SHUT* ROUTINE. 



lEOSP: 



001466 1$: 



SCOPE 

NOP 

MOV 

ADD 

MOV 

TST 

BEG 

JMP 

MOV 



TSTQUE.RO 
*2,R0 
RO.TSTQUE 
(RO) 
1$ 

SHUT 

»TSTQUE+2.TST0UE 



;GET POINTER TO TSTOUE 
;ADJUST POINTER TO NEXT DEVICE 
.-SAVE POINTER TO TSTOUE 
.-ANY MORE DEVICES FOR TEST ? 
;8R IF NO 

;JUMP TO 'SHUT' ROUTINE 

.•INITIALIZE POINTER TO FIRST DEVICE !N 
.-TEST QUE TABLE 



.SBTTL END OF PASS ROUTINE 

•**»*»**«**************♦******»**»*********•»**»*»«******•*****» 

* INCREMENT THE PASS NUMBER (SPASS) 

•TYPE 'tND PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY 
•WHERt XXXXX AND YYYYY ARE DECIMAL NUMBERS 
*IF THERES A MONITOR GO TO IT 
*IF THERE ISN'T JUMP TO SHUT 



SEOP: 



SEOPCT; 



SENDCT; 



;;65$: 
64$: 



;;67$: 
66$: 



NOP 




CLR 


$TSTNM 


CLR 


STIMES 


INC 


$PASS 


BIC 


*1 00000. SPASS 


DEC 


(PC) + 


.WORD 


1 


BGT 


$DOAGN 


MOV 


(PC)+.a(PC)+ 


.WORD 


1 


$EOPCT 




TYPE 


,65$ 


BR 


64$ 


.ASCIZ 


<12><15>/END 


MOV 


$PASS.-(SP) 


TYPDS 




TST 


fERTTL 


BEQ 


$GT42P 


TYPE 


.67$ 


BR 


C6$ 


.ASCIZ 


/ TOTAL ERRO 


MOV 


$ERTTL,-(SP) 


TYPDS 




CLR 


$fcRTTL 



;;ZERO THE TEST NUMBER 
;;ZERO THE NUMBER OF ITERATIONS 
;; INCREMENT THE PASS NUMBER 
;;DC»g'T ALLOW A NEG. NUMBER 

;;LOOP? 

• • YES 

•■RESTORE COUNTER 



;;TYPE ASCIZ STRING 
;;6ET OVER THE ASCIZ 



SAVE $PASS FOR TYPEOUT 
TYPE PASS NUMBER 

GO TYPE—DECIMAL ASCII WITH SIGN 
SEE IF ANY ERRORS THIS PASS 
BR IF NO ERRORS TO REPORT 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



SAVE SERTTL "^OR TYPEOUT 
TOTAL NUMBER OF ERRORS 
GO TYPE— DECIMAL ASCII WITH SiGN 
•CLEAR ERROR TOTAL 



HMOS/5/^ KTMl TST 
i\f) J PASS ROl'MNE 



C 521 06 
032112 
J32116 
032120 
032122 
C3212<. 
032126 
052150 
052132 
032132 
032154 
032136 

21 

22 052U2 

23 032K6 

24 032150 

25 032154 

26 032160 

27 C32162 

28 052166 

29 032172 



104401 00121^ 

013700 C00042 

00140b 

000005 

004710 

000240 

000240 

000240 



000137 
032142 
377 



005737 
001002 
000137 
005737 
001002 
000137 
005037 
000^37 



377 



001 326 

007670 
000042 

0054 32 
00^300 
031724 



000 



IGT42P: 
tGET42: 



tENDAD: 



tDOAGN: 

SRTNAD: 
$ENULL: 



SHUT : 

IS: 

21: 



TYPE 

MOV 

BEC 

RESET 

JSR 

NOP 

NOP 

NOP 

JHP 
.WORD 
.BYTE 
.EVEN 

TST 
BNE 
.MP 

TST 

BNE 
JMP 

Ci.R 



B 12 

":43:i5 PAGE H-l 



SEO 0144 



.tCRtf ;;TVPE CARRIAGE RETjRN. .INE FEED 

i«4?.R0 ;;CET MONITOR ADDRESS 

IDOAGN ;. -BRANCH IF NO MONITOR 

;; CLEAR THE WORtD 
PC.(RO> ;;G0 TO MONITOR 

;;SAVE ROOM 

;;FOR 

;;ACT11 

aC^C)* ;; RE TURN 

SHUT 

-1.-1.0 ;;NULL CHARACTER STRING 



CTLFG ;WA5 CONTROL C FtAGGED ? 

IS ;8R IF YES 

READY .CONTINUE 

a#42 ;ANY MONITOR PRESENT ? 

2% ;8R If YES 

START ;60 TO STA/-' 

SDFVM .-FUDGE NO DRIVES IN MAP 

tEOF> .-RETURN TO SEOP 



u 
5 
6 
7 

8 
9 

10 

12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
21 
24 
25 
26 
27 
28 
29 
50 
31 
32 
53 
34 
55 
36 
37 
58 
39 
40 
41 
42 
43 
44 
45 
46 
47 
A8 
49 
50 
51 
52 
53 
54 
55 
56 
57 



«WC«0 V04.00 



C 12 
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032176 



0321 76 
032204 
032210 
032214 

032220 
032224 
032230 
032232 
032234 
032236 
032242 
052250 



.sent TEST PREPARATION MODULE 

THIS MODULE PREPARES THE SlBSYSTEM FOR THE EXECUTION Of A TEST. 

REPORTING AN ERROR TO THE USER U AN ERROR IS DETECTED. THt USER 

SPECIFIES TASKS TO BE PERFORMED. WHICH THE MODULE EXECUTES 
USING SUBROUTINES. 



CALL; 



JSR PC.TSTPRP 
.WORD NM'JNNN 
BR ?? 
NOP 

ERROfI 



TASK/VERIFY DESCRIPTOR 
RETURN HEPt IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BV MODULE 



TASK/VERIFy DESCRIPTOR 
BIT 15 = 1 



SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE 



BIT 


14 




1 


CLEAR CONTROLLER AND SELECT DEVICE 


BIT 


13 






(RESERVED FOR DRIVE CLEAR) 


BIT 


12 




1 


PACK ACKNOWLEDGE IF VOLUME NOT VALID 


BIT 


11 




1 


RECALIBRATE IF POSITIONING IN PROGRESS 


BIT 


10 




1 


RECALIBRATE DRIVE 


BIT 


9 








BIT 


8 








BIT 


7 








BIT 


6 




1 


VERIFV CONTROLLER CLEAR OPERATION 


BIT 


5 






(RESERVED FOR DRIVE CLEAR) 


BIT 


4 




1 


VERIFY PACK ACKNOWLEDGE 


BIT 


3 




1 


VERIFY RECALI8RAT10N 


BIT 


2 








BIT 


1 








BIT 


0 









OR SKI ERROR 



017637 
062716 
105076 
162716 

004737 
004737 
000411 
000401 
000000 
062716 
113776 
000137 



000000 
000006 
000000 
000004 

035704 
035770 



000004 
032234 
033156 



033146 



TSTPRP: 

.-STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL 



032254 013737 001400 



1$: 

000000 
035150 2$: 



MOV 


a(SP).39$ 


•STORE DESCRIPTOR 


ADD 


#6.(SP) 


•MOVE SP TO USERS ERROR CALl 


CLR8 


a(SP) 


■CLEAR ERROR CALL 


SUB 


#4.(SP) 


■MOVE SP TO NO ERROR RETURN 


JSR 


PCGETSTS 


•SETUP TO READ ALL REGISTERS 


JSR 


PC, GET 


■GET RMER2 


BR 


2% 


•BR IF NO ERROR DETECTED 


BR 


1$ 


•GET OVER ERROR NUTBER 


.WORD 


0 


■ERROR DEFINED BY GET SUBROUMNE 


ADD 


#4.(SP) 


•XFER ERROR TO USER AND 


M0V8 


is-2.a(sp) 


•GFT ERROR NUMBER. 


JMP 


37$ 




MOV 


RMER2I.^0$ .-GET RMER2 AND SAVE FOR LA^ER 



TEST PREPARAflON (iOOULE 



MACRO VCK.OC 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
o9 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

no 
111 

112 
113 
114 



032262 
032266 

032270 
052274 
032276 
03230C 
032302 
032506 
032314 



032320 
032320 
032326 

032330 
032334 
032336 
032340 
032342 
032346 
032354 



032360 
032360 
032366 

032370 
032374 
032376 
032400 
032402 
032406 
032414 

032420 
032424 
032426 
032430 
032^.32 
032434 
032440 
032446 



032452 
032452 
032460 



005737 
100014 

004737 
000411 
000401 
000000 
062716 
113776 
000137 



032737 
001451 

004737 
000411 
000401 
000000 
062716 
113776 
000137 



032737 
001431 

004737 
000411 
000401 
000000 
062716 
113776 
000137 

004737 
000*«12 
000401 
000000 
005726 
062716 
113776 
000137 



C33146 
043672 



000004 
032300 
033136 



040000 
045344 



000004 
032340 
033136 



000004 
032400 
033136 

045462 



000004 
032430 
033136 



032737 010000 
001501 



000000 



033146 



000000 



000100 053146 



035770 



000000 



000000 



033146 



.-SELECT DEVICE AND VERIFY DEVICE AVAILABLE If Bi ^ 15 SE r IN TASK 
TST 39$ .SELECT DEVICE?? 

BPL 4$ ;N0.' ! 



3$: 



JSR 

BR 

BR 

.WORD 
ADD 
M0V8 
JMP 



PC.DEVSEL 

4S 

3$ 

C 

#4.(SP) 

3$-2.a(SP) 

37$ 



;G0 SELECT DEVICE 
;N0 ERROR - CONTINUE 

.•ERROR NUMBER FROM DEVSEL 
.•TRANSFER ERROR TO USER 



.•CLEAR CONTROLLER IF BIT U IS SET IN TASK 
4$: 

BIT *ejT14.59$ 
BEQ 13$ 



; CLEAR CONTROLLER?? 
;N0. I 



5$: 
6$: 



JSR 

BR 

BR 

-WORD 
ADD 
M0V8 
JMP 



PC.CNTCLR 

7$ 

6$ 

0 

*4,(SP) 

5$.a(SP) 

37$ 



;G0 CLEAR CONTROLLER 
.•CONTINUE - NO ERROR 

.•ERROR NUMBER FROM CNTfLR 
.•TRANSFER ERROR TO USER 



.•VERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK 
7%: 





BIT 


*8IT6.39$ 


.VERIFY?? 




BEO 


13$ 


;N01 .' 




JSR 


PC. GET 


.•GO GET STATUS 




BR 


10$ 


;N0 ERROR GETTING STATUS 




BR 


9$ 




8$: 


.WORD 


0 


;ERROR FROM GETTING STATUS 


9$: 


ADD 


*4.(SP) 


.•TRANSFER ERROR TO USER 




M0V8 


8$.a(SP) 






JC1P 


37$ 




10$: 


JSR 


PC.CLRSTS 


;60 VERIFY STATUS CLEAR 




BR 


13$ 


;N0 ERROR IN CLEAR 




BR 


12$ 




11$: 


.WORD 


0 


.•ERROR IN STATUS CLEAR 


12$: 


TST 


(SP)* 


; STRIP RETURN ADDRESS TO 




ADD 


*4.(SP) 


.•SUBROUTINE AND TRANSFER 




Move 


ii$.a(SP) 


.•ERROR TO USER 




JMP 


37$ 





•»**•»»»»«•»***»*•»*•••♦»***•»»»*•••»•»••*»»•*»»**»•»••»•••••••• 

EXECUTE PACK ACKNOWLEDGE IF 8IT12 SET IN TASK AND VOlUME IS 
NOT VALID 
13$: 

BIT *81T12.39$ ;PAC< ACKNOWLEDGE?? 

BEQ 25$ ;N0.' . 



032462 004737 035770 



JSR 



PC. GET 



T p;<E PARA T ION fiODjLE 



rACWO ^(K.OO 4I-APR-81 11:45 



E 

55 PAGE 



12 
15-2 



'15 
^6 
117 

1-.8 
119 

^20 

121 

122 

^25 

V4 

125 

^26 

127 

128 

129 

150 

151 

'52 

15? 

154 

155 

156 

'17 

'58 

159 

'AO 

HI 

U2 

U5 

KA 

U5 

U6 

K7 

U8 

K9 

150 

151 

152 

'55 

15A 

155 

156 

157 

158 

159 

160 

161 

162 

165 

16A 

165 

166 

167 

163 

'69 

170 

V 



052A66 
052A70 
052A72 
052A74 
052500 
052506 

052512 
052520 

052522 
052550 
052556 
0525AA 
052550 
052552 
052554 
052556 
052562 
C 52570 



052576 
052604 

032606 
032612 
032614 
052616 
032620 
052624 
052652 

052654 
052640 
052642 
052644 
052646 
052650 
052654 
052662 



052664 
052664 
052672 
052674 
052702 

052704 
052710 



0004' 1 
000401 
000000 
062716 
115776 
000157 

052757 
001061 

012757 
112757 
112757 
004757 
000410 
000401 
OOOOOG 
062716 
1 1 5776 
000562 



052757 
00'427 

004737 
000410 
000401 
000000 
062716 
115776 
000541 

004757 
000411 
000401 
000000 
005^26 
062716 
113776 
000525 



052757 
001027 
052757 
001517 

004757 
000410 



000004 
052472 
055156 

000100 



000025 
000000 
000200 
056240 



000004 
052554 



052572 004757 056602 



000020 
055770 



000004 
052616 



046542 



000004 
052644 



002000 
004000 

055770 



SfO 0147 







BR 


16$ 


.•NO ERROR GE'TING RMDS 






BR 


15$ 








.WORD 


0 






'5$: 


ADD 


*4.{SP) 


.•TRANSFER ERROR TO oSER 


000000 




M0V8 


l4$,s(SP; 








jnp 


57$ 




001550 


16*: 


BIT 


#VV,RHDSI 


;IS VOLLME VALID?? 






6NE 


25$ 


;YES.' ; 


001412 




MOV 


fPAKACKIGO.RT'CSIO ;10AD PACK ACK COWAND 


001553 




M0V8 


*RMCS1.PUTINX 


.-SETUP REGISTER INDEX TABLE 


001554 




novs 


*200.PUTINX*1 








jSR 


PC. PUT 


;G0 WRITE COMMAND 






BR 


19$ 


;N0 ERROR LOADING REGISTER 






BR 


18$ 






1?$: 


.WORD 


0 


.•ERROR FROM PUT SUB 




18S: 


ADD 


*4.(SP) 


.•TRANSFER ERROR TO JSER 


000000 




M0V8 


17$.a(SP) 








BR 


57$ 






19$: 


JSR 


PCTJMOUT 


."WAIT FOR COMMAND TO COMPLETE 



055146 



000000 



000000 



055146 
055146 



•VERIFY PACK ACKNOWLEDGE IF #81 T4 SET IN TASK 



20$: 
21$: 



22$: 



25$: 
24$: 



BIT 


*8IT4.59$ 


.-VERIFY PACK ACKNOWLEDGE 


BEQ 


25$ 


.-no: ! 


JSR 


PC. GET 


.-GO GET STATUS 


BR 


22$ 


;N0 ERROR GETTING STATUS 


BR 


21$ 




.WORD 


0 


.-ERROR FROM GET SUB 


ADD 


#4.(SP) 


.•TRANSFER ERROR TO USER 


M0V8 


20$,a(SP) 




BR 


57$ 




JSR 


PC.ACKSTS 


;G0 CHECK ACKNOWLEDGE 


BR 


25$ 


.-NO ERROR 


BR 


24$ 




.WORD 


0 


.-PACK ACKNOWLEDGE ERROR 


TST 


(SP) + 


; STRIP RETURN TO SUB AND 


ADD 


*4.(SP) 


.•TRANSFER ERROR TO USER 


M0V6 


25$.a(SP) 




BR 


57$ 





RECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND "SKI" IS SET 

QR 'pjp" ]5 ACTIVE. 

;RECALI8RATE DRIVE If BIT 10 IS SET 
25$: 

BIT #8IT10,59$ .RECALIBRATE DRIVE ? 

^ 8NE 29$ .-YES. 

BIT *8ITn.59$ .-RECAl I8RATE''? 

BEQ 58$ ;N0! . 



JSR 
BR 



PC. GET 
28$ 



;G0 GET RMDS 

;N0 ERROR GE^ING RMDS 



T^^T PRfPARATION MODULE 



'72 

V4 
175 
176 
177 

178 
179 

^80 
IS-" 
182 
133 
'dA 
165 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
'96 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2^4 
215 
216 
217 
2''8 
219 
220 
22' 
222 
225 
224 
225 



032712 
032714 
0327^6 
032722 
032730 

032732 
032740 
032742 
032750 

032752 
032756 
032762 
032770 
032776 
033004 
033012 
033020 
C33024 
033026 
035030 
033032 
033036 
033044 



033052 
033060 

033062 
033066 
033070 
033072 
033074 
033100 
033106 

033110 
033114 
033116 
033120 
033122 
033124 
033130 
033136 
033142 
033U4 

033146 
053150 



000401 
000000 
062716 
113776 
000502 

032737 
00''004 
032737 
00H74 

005037 
005037 
012737 
112737 
112737 
112737 
112737 
004737 
0004 10 
000401 
000000 
062716 
113776 
0004 34 



032737 
001430 

004 737 
000410 
000401 
000000 
062716 
113776 
000413 

004737 
000412 
000401 
000000 
005726 
062716 
113776 
162716 
000240 
000207 

000000 
000000 



000004 
0327U 



040000 
020000 



001446 
001420 
000007 
000034 
000006 
000000 
000200 
036240 



000004 
033030 



033046 004737 036602 



000010 
035770 



000004 
033072 



047136 



000004 
033120 
000002 









F 12 




•1AC«0 


/04,00 


4-APR-81 


11:43:33 PAGE ^5- 


3 






BR 


27$ 






26»: 


.WORD 


0 


.ERROR fROM GET SU8 




27S: 


ADD 


#4.(SP) 


.•TRANSFER ERROR TO jSER 


000000 




M0V8 


26$.a(SP) 














033150 


28$: 


BIT 


*SKI,40$ 


;WAS SKI SET ? 






BNE 


29$ 


;YES, GO RECALIBRATE 


001350 




BIT 


#PIP,RMDSI 


;IS PIP ACTIVE?? 




OtU 




• kin 




29$: 


CLR 


RMDCO 


.•CLEAR CYLINDER ADDRESS 






CLR 


RMDAO 


; CLEAR TRACK/SECTOR ADDRESS 


001412 




MOV 


*RECAL:G0.RMCS10 .-load recalibrate COMMAND 


001553 




M0V8 


*RMDL.PUTINX 


.•MAKE CYLINDER ADDRESS AND 


001554 




M0V8 


*RMDA,PUTINX*1 


;TRK/SEC ADDRESS LOOK LIKE SEEK TO 


001555 




M0V8 


*RMCS1 .PUTINX*2 


.AND REGISTER INDEX 


001556 




M0V8 


*200.PUTINX*3 


;SET TERMINATOR 






JSR 


PC. PUT 


;G0 ISSUE RECALI8RATE 






BR 


31$ 


;N0 ERROR 






BR 


30$ 








.WORD 


0 


.-ERROR IN REGISTER TRANSFER 




30$: 


ADD 


*4.(SP) 


.•TRANSFER ERROR TO USER 


000000 




M0V8 


30$-2.a(SP) 










37$ 






31$: 


JSR 


PC.riMOUT 


.-WAIT FOR COMPLETION 




.•VERITY RECALIBRATE JF BIT 3 SET IN TASK 


033146 




BIT 


*8IT3.39$ 


.•VERIFY RECALIBRATE?? 






BEQ 


38$ 


;NOI J 






JSR 


PC. GET 


;G0 GET STATUS 






BR 


34$ 


;N0 ERROR GETTING STATUS 






BR 


33$ 






32$: 


.WORD 


0 


.•ERROR FROM GET 




33$: 


ADD 


#4.(SP) 


.TRANSFER ERROR TO USER 


000000 




M0V8 


32$,a(SP) 








BR 


37$ 






34$: 


JSR 


PC.RCLSTS 


;G0 CHECK RECALIBRATE 






BR 


38$ 


.NO ERROR DURING RECALIBRATE 






BR 


36$ 






55$: 


.WORD 


0 


.•ERROR DURING RECALIBRATE 




36$: 


TST 


(SP)* 


.-STRIP RBTURN TO SUB AND 






ADD 


*4.rsP) 


.•TRANSFER ERROR TO USER 


OCOOOO 




M0V8 


35$.S(SP) 






17%: 


sue 


<r2.(SP) 


.-MOVE SP BACK BEFORE ERROR 




58$: 


NOP 










RTS 


PC 


.•RETURN TO USER 




59$: 


.WORD 


0 


.TASK/VERIFY DESCRIPTOR 




40$: 


.WORD 


0 


.•CONTAINS RMER2 



SEO 0148 
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4 
6 

7 

8 
10 

13 
15 
17 

18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
3S 
36 
37 
38 
39 

40 033166 

41 033172 

42 C33174 
43 

44 
45 
46 
4/ 



033152 
033152 
033156 
033162 



033200 
033200 
033202 

49 033204 

50 033212 

51 033216 

52 035222 
53 

54 
55 
56 



48 



062716 000006 
105076 000000 
162716 000006 



005737 001512 
001402 

000137 034452 



010046 
005000 

016060 001412 
062700 000002 
022700 000046 
103370 



101360 



,S8TTL BAD SECTOR MODULE 

THE MODULE IS INTENDED TO BE CALLED PRIOR TO CALLING THE ^fffk 
GENERATOR SUBROUTINE. AND PRESERVES THE "P\jJ BUfFER" SO THAT »Ht 
BUFFER NEED ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT 
OPERATION. 

THE MODULE RETl^NS TO THE CALLING TEST WITH THE APPROVED OR ASSIGNfD 

SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS "ASNDA" AND "'ASNDi" 

SO THAT A REFERENCE IS AVAILABLE TO THE TEST OUTSIDE OF THE PUT BUFffR. 

THE BAD SECTOR MODULE PERFORMS TWO MAJOR FUNCTIONS: 

(1) RECO»/ER THE BAD SECTOR FILES AND 

(2) APPROVE THE USAGE OF A SECTOR BASED ON INFORMATION IN 
THE BAD SECTOR FILES OR ASSIGN A NEW SECTOR IF THE . 
ELECTED IS NOT AVAILABLE FOR USE. 

INFORMATION REQUIRED BY THE MODULE INCLUDES: 

(1) .RMDCO - THE DESIRED CYLINDER. 

(2) .RMDAO - THE TRACK ^ ND SECTOR ADDRESS. 

(3) .RMWCO - THE WORD fO^NT, 

(4) .RMCS10 - THE COMMAND. 

(5) .RMOFO - THE FORMAT MODE 



CALL: 



BADSCT; 



jSR 

BR 

TYPE 

ERROR 



ADD 

CLRB 

SUB 



PC.8ADSCT 

■>■>■> 

Message 

N 



#6.(SP) 

S(SP) 

*6.(SP) 



CALL SUBROUTINE 

RETURN HERE IF NO ERROR 

RETURN HERE IF THE BAD SECTOR FILE 

CANNOT BE RECOVERED. 

THE EMT OFFSET NUMBER 'N' IS DEFINED 

BY BAD SECTOR MODULE. 



.•CLEAR ERROR NUMBER IN USER'S 
.•ERROR CALL. 



.•TEST "MEDIA ENABLE" TO DETERMINE WHETHER OR NOT THE BAD SElTOR FILES 
.•HAVE BEEN RECOVERED. 



TST 
BEQ 
JMP 



MEDEfJB 

1$ 

54$ 



HAS BAD SECTOR FILES BEEN RECOVERED ? 
BR IF NO 

YES. BAD SECTOR FILE IS AVAILABLE 



RECOVER THE MANUFACTURES / USERS BAD SECTOR FILE FROM CYLINDER = 822.. 
TRACK -- LAST TRACK (RM02/3 - 4 AND RM05 18.). ALSO. SAVE THE USER'S 
PUT BUFFER 



1$: 

2$; 



MOV 
CLR 
MOV 
ADD 
CMP 
BHIS 



RO.-(SP) ;;PUSH RO ON STACK 

RO .-START WITH RMCS"" 

PUT8UF(R0),8UFFER(R0) 



*2,R0 
*46.R0 
2$ 



ADVANCE TO NEXT BUFFER POSITION 
END OF BUFFER 

NO !; 



C3322'. 012^37 000003 035070 



.-SET RETRY COUNT AND LOAD PUT BUFFER AND REGISTER INDEX TAB' F 
.•SETUP PARAMETERS TO READ SKIP SECTOR FI'F FIRST <l SECTORS/ 
MOV #3.68S .-RETRY COUNT 



BAD St C TOR MM)01 



f'.^NL TST P MAC10 .0<..0C 4-APP-81 ^'rAj:?? 
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57 
58 
59 
60 
61 
b2 
63 
6A 
65 
60 
67 
o8 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
9? 
9A 
95 
96 
97 
98 
99 
100 
101 
102 
103 
10A 
105 
106 
107 
108 
109 
110 
11! 
M2 
'1? 



035252 
033240 
033246 
033254 
033262 

033270 
033274 
033300 
033304 
033310 
033314 
033320 
033324 
033330 



033332 
033332 
C33336 
035342 
033344 
033346 
033350 
035354 
033362 



033374 
033402 
035406 
035410 
033412 
055414 
035420 
053426 

035452 
035436 
033442 
033444 
035446 
053450 
055454 
033462 

055466 
055472 
033474 
033476 
033500 
033502 
033506 
033514 



012737 


001466 


001446 


015737 


C01534 


001420 


012737 


1 77376 


001414 


012757 


010000 


001444 


012757 


103370 


001416 


012700 


001553 




112720 


000006 




112720 


000034 




112720 


000002 




1 12720 


000032 




112720 


000004 




112720 


000000 




112720 


000200 




012600 







004737 
004757 
000411 
000401 
000000 
062716 
113776 
000157 



012737 
004757 
000411 
000401 
000000 
062716 
115776 
000137 

004757 
004737 
000411 
000401 
000000 
062716 
113776 
000137 

00473-' 
000412 
000401 
000000 
005726 
062716 
113776 
000137 



035704 
035770 



000006 
033346 
054156 



033566 015757 00*400 



00001 1 
036240 



000006 
035412 
034156 

036602 
035770 



000006 
033446 
034156 

050700 



000006 
033476 
054 1S6 



MOV ♦822..RMDC0 

MOV lSTRK,RW)AO 

MOV *-258..R«UC0 

MOV *FMT16.RMCF0 

MOV #MFGF]L.RMBAO 

MOV *PUTJNX.RO 

M0V8 #RMDA.(RO>* 

M0V8 *RMDC.(RO)* 

M0V8 *RMWC.(RO)* 

M0V8 *RMOF.(R0)* 

M0V8 *RM3A.(R0) + 

M0V8 #RMCS1.(R0)* 

M0V8 *200.(RO)* 

MOV (SP)*.RO 



DfSJKEl) CVLINDER = 822. 
STARTING LAST TRACK. SECTOR - 0 
2 ♦ 256. WORDS {2'S COMP) 
16 BJT FORMAT 

POINT TO MANUFACTURES FiLE BUFFf^ 
;R0 POINTS TO REGISTER INDEX TAQif 



000000 
035102 
001412 

000000 



3$: 



4$; 



5$- 



000000 



6$: 
7i: 



8$: 



9$: 
10$: 



111: 



12$: 
15$: 



000000 



INDEX 


TA8LE FOR READING 


JSR 


PC.GETSTS 


JSR 


PC. GET 


BR 


5$ 


BR 


4$ 


.WORD 


0 


ADD 




M0V8 


4$-2.a(SP) 


JMP 


42$ 


MOV 


RMER2I.75$ 


HE DEVICE USING DRIVE CLE 


MOV 


#DRVCLR.G0,RMCS1C 


JSR 


PC. PUT 


BR 


8$ 


BR 


7$ 


.WORD 


0 


ADD 


*6.(SP) 


M0V8 


6$.a(SP) 


JMP 


42$ 


JSR 


PC.TIMOUT 


JSR 


PC, GET 


BR 


11$ 


BR 


10$ 


.WORD 


0 


ADD 


*6.(SP) 


M0V8 


9$.a(SP) 


JMP 


42$ 


jSR 


PC.DRVSTS 


BR 


14$ 


BR 


13$ 


.WORD 


0 


TST 


(SP)* 


ADD 


»6.(SP) 


M0V8 


i2$.afSP) 


jMP 


42$ 



;;POP STACK INTO RO 



SETUP GET INDEX REGISTER FOR STATUS 

GET REGISTERS 

8R IF NO ERROR 

jUMP OVER ERROR NUMBER 

ERROR DEFINED BY GET SUB 

XFER ERROR TO USER AND 

GET ERROR NUMBER. 



;GET RMER2 AND SAVE FOR LATER 



I ;LOAD COMMAND IN PUT BUFFER 

OUTPUT COMMAND 

RETURN HERE IF NO ERROR 

GET AROUND ERROR M 

ERROR # GOES HERE 

MOVE SP TO USERS ERROR CALL 

MOVE ERROR NUMBER TO USER 



WAIT FOR COMPLETION 

GO GET STATUS 

RETURN HERE IF NO ERROR 

GET AROUND ERROR * 

ERROR * GOES HERE 

MOVE SP TO USERS ERROR CAL._ 

MOVE ERROR # TO USERS ERROR CALL 



GO VERIFY DRIVE CLEAR COMMAND 

RETURN HERE IF NO ERROR 

GET AROUND ERROR 

ERROR # GOES HERE 

STRIP RETURN TO SUBROUTINE 

MOVE SP TO USERS ERROR CAL^ 

MOVE ERROR * TO USER CALL 



^AD SE:T0R MOOtLt 
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MA 

115 

'16 

'17 

118 
1^9 

120 
121 
122 
'23 
124 
^25 
126 
127 
128 
129 
130 
131 
152 
155 
154 
135 
156 
157 
158 
139 
KG 
K1 
U2 
143 
144 
145 
U6 
147 
148 
'49 
'50 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
VO 



033520 
033520 
033526 

033550 

033536 

053542- 

033544 

033546 

033550 

033554 

033562 

033566 
033572 
053576 
033600 
033602 
C 3 3604 
033610 
053616 

033622 
053626 
033630 
033652 
033634 
033636 
033642 
033650 



035654 
033654 
033662 
033664 
033672 

033674 
033702 
033706 
033710 
033712 
033714 
033720 
033726 

033732 
033736 
033 7<,2 
033744 
033746 
033750 
033754 
033762 



032737 
001052 

012737 
004737 
000411 
000401 
000000 
062716 
113776 
000137 

004737 
004737 
000411 
000401 
000000 
062716 
113776 
000' 37 

004757 
000412 
000401 
000000 
005726 
062716 
113776 
000137 



032737 
001004 
032737 
001452 

012737 
004737 
000411 
000401 
000000 
062716 
113776 
000137 

004737 
004757 
000411 
000401 
000000 
062716 
1 1 3776 
000137 



000100 001350 



000023 001412 
036240 



000006 

035546 000000 
034156 

036602 
035770 



OC0006 

033602 000000 
054156 

046342 



000006 

033632 000000 
034156 



040000 035102 
020000 001350 



000007 001412 
036240 



000006 

033712 000000 
034156 

036602 
035770 



000006 

033746 000000 
034156 



.•ISSUE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET 
14»: 





BIT 


#VV.RMOSI 




BNE 


25S ; 




MOV 


*PAlACK.G0.RMCS1C 




JSR 


PC, PUT 




BR 


17$ 




BR 


16$ 


15$: 


.WORD 


0 


16t: 


ADD 


*6,(SP) 




M0V8 


15$.a(SP) ; 




JMP 


42$ 


'7$: 


JSR 


PCTIMOUT 




JSR 


PCGET 




BR 


20$ 




BR 


19$ 


IBS: 


.WORD 


0 


19$: 


ADD 


#6.(SP) 






i8$.a(SP) 




J MP 


42$ 


20$: 


JSR 


PC.ACKSTS ; 




BR 


c j$ ; 




BR 


22$ ; 


21$: 


.WORD 


0 


?2$: 


TST 


(SP)* ; 




ADD 


*6,(SP) 




M0V8 


21$.a(SP) ; 




JMP 


42$ 



.•LOAD COMMAND 
60 PUT COMMAND TO DRIVE 
RETURN HERE IF 1^ OUTPUT ERROR 
GET AROUND ERROR * 
ERROR * GOES HERE 
MOVE SP TO USERS ERROR CALl 
^lOVE ERROR * TO ERROR CALL 



WAIT FOR COMPLETION 

GO GET STATUS FOR PACK ACK 

RETURN HERE IF NO ERROR 

GET AROUND ERROR * 

ERROR * GOES HERE 

MOVE SP TO USERS ERROR CALL 

MOVE ERROR * TO CALL 



GO VERIFY ACKNOWLEDGE STATUS 

RETURN HERE IF NO ERROR 

GET AROUND ERROR * 

ERROR * GOES HERE 

STRIP RETURN TO SUBROUTINE 

MOVE SP TO USERS ERROR CALL 

MOVE ERROR * TO USERS ERROR CALL 



.-RECALIBRATE 
23$: 



24$: 



THE DRIVE IF "SKJ" OR 'VIP IS SET 



25$: 



26$: 



27$: 
28$: 



BIT 


*SKI.73$ 


WAS SKI SET ? 


BNE 


24$ 


YES. GO RECALIBRATE 


BIT 


*PIP.RMDS1 


•IS PIP SET ?? 


BEQ 


32$ 


NO 


MOV 


*recal:go.rmcsio 


;LOAD RECALIBRATE COMMAND 


JSR 


PC. PUT 


•PUT THE RECAL COMMAND 


BR 


26$ 


•RETURN HERE IF NO ERROR 


BR 


25$ 


•GET AROUND ERROR * 


.WORD 


0 


ERROR # GOES HERE 


ADD 


#6.(SP) 


■MOVE SP TO USERS ERROR CALl 


M0V8 


25$-2.a(SP) 


•MOVE ERROR # TO USERS CALL 


JMP 


42$ 




JSR 


PC.TIMOUT 


•WAIT FOR RECALIBRATE TO COMPLETE 


JSR 


PC, GET 


•GO GET RECAL STATUS 


BR 


29$ 


•RETURN HERE IF NO ERROR 


BR 


28$ 


•GET AROUND ERROR * 


.WORD 


0 


•ERROR * GOES HERE 


ADD 


*6. (SP) 


•MOVE SP TO USERS ERROR LA.. 


M0V8 


27$. a(SP) 


•MOVE ERROR TO USERS CALL 


JMP 


42$ 





;-<-INeG RMOS/^/? FCTNL 
MO bE^TOR MODULE 
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17" 033766 


004737 


047136 


^72 033772 


000412 




173 033774 


000401 


• 


74 033776 


000000 




175 034000 


005726 




176 034002 


062716 


^ A A A A y 

000006 


1^7 034006 


1 1 3776 


033776 


178 034014 


0001 37 


034156 


179 






180 






1d1 034020 






182 034020 


012737 


000073 


183 034026 


004737 


036240 


184 03403^ 


000411 




185 034U34 


000401 




186 034036 

187 C34040 


000000 




062716 


000006 


188 034044 


4 4 7^Ty 

1 ^ 3776 


054036 


189 034052 


0001 37 


7 / 4 C Z 

034156 


190 






191 034056 


rtrt y ^7^ 

004737 


036602 


192 034062 


00^757 


r\7 C 77rt 

035770 


193 034066 


0004 1 1 




194 034070 


000401 




195 01^072 


000000 




196 034074 


06271 6 


000006 


197 034100 


1 1 3776 


/%7 / 


198 034106 


0001 37 


7 y 4 C z 

0341 56 


199 






200 034112 


/-» / 77 7 

004737 


051 502 


201 034116 


000412 




202 034120 


00040 1 




•^^7 /\7/ 4 

203 034122 


000000 




204 034124 


005726 




205 034126 


062716 


000006 


206 034132 


4 4 777Z 

1 13776 


034122 


207 034 140 


0001 37 


A7 / 1 C Z 


208 






209 034144 

210 034152 

211 034154 


T'i 777 

03273/ 


040000 


001001 




000446 




212 






213 






214 






215 






2i6 






A7/4fy 

217 034156 


rtrt r 777 

005337 


7C A7A 

035070 


'MO rt7/ 5^*^ 

218 034162 


1 00026 




219 






220 






221 






222 034164 


/\ 7 77 7 

032737 


4 Art 7 OA 

100720 


nTZ.173 
^CJ \JV*\fC 






224 






225 034174 


032737 


100000 


226 034202 


001422 




227 







000000 



001412 



000000 



000000 



000000 
001336 



29$: 



30$: 
31$: 



32$: 



33$: 
34$: 



35$: 



36$: 
37$: 



38$: 



39$: 
40$: 



41$: 



•****»*»»»»»•»*»»»»**»»***•»♦••»**»*•••»*»•»»•*»»*»**»*»*****»•* 

AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE. 
THE SECTOR WILL BE RETRIED IF POSSIBLE. 



JSR 


PC.RCLSTS ; 


GO VERIFY RECALIBRATE STATES 


BR 


7 1» 

32$ ; 


RETURN HERE IF NO ERROR 


BR 


7 4 « 

51$ ; 


GET AROUND ERROR # 


.WORD 


0 


ERROR # GOES MERE 


TST 


(SP)* 


STRIP RETURN TO SUBROUTINE 


ADD 


*6.(SP) 


MOVE SP TO USERS ERROR CALL 


M0V8 


30$.a(SP) 


MOVE ERROR # TO USERS CALL 


JMP 


42$ 




4E SECTOR IDENTIFIED BY RMDAO, INCLUDING HEADfR AND DATA 


MOV 


#RH.G0.RMCS10 


LOAD READ HEADER AND DATA fOMMAND 


JSR 


PC. PUT 


PUT COMMAND 


BR 




RETURN HERE IF NU ERROR 


BR 


34$ 


GET AROUND ERROR » , 


.WORD 


0 


ERROR * GOES HERE 


ADD 


*6.(SP) 


•MOVE SP TO USERS ERROR CALL 


M0V8 


33$.a(SP) 


"MOVE ERROR * TO USERS ERROR CALL 


JMP 


42$ 




JSR 


PC.TIMOUT 


•WAIT FOR READ OPERATION TO COMPLETE 


JSR 


PC. GET 


;G0 GET STATUS FOR READ OPERATION 


an 




-OCTllDkl UCDC fC Kin CDDHD 


BR 


37$ 


;GET AROUND ERROR # 


.WORD 


0 


; ERROR # GOES HERE 


ADD 


#6.(SP) 


;MOVE SP TO USERS ERROR CALL 


M0V8 


36$.a(SP) 


;MOVE ERROR * TO CALL 


JMP 


42$ 




JSR 


FC.DTASTS 


;G0 VERIFY RESULTS OF READ OPERATION 


BR 


41$ 


.•RETURN HERE IF NO ERROR 


BR 


40$ 


.GET AROUND ERROR # 


.WORD 


0 


.•ERROR * GOES HERE 


TST 


(SP) + 


.•STRIP RETURN ADDRESS TO SUBROUTINE 


ADD 


*6,(SP) 


.•MOVE SP TO USERS ERROR CALL 


M0V8 


39$,a(SP) 


;MOVE ERROR * TO USERS CALL 


JMP 


42$ 




BIT 


*TRE.RMCS1I 


;ANY CONTROLLER ERRORS ? 


BNE 


42$ 


'BR IF YES 


BR 


48$ 


•NO ERRORS DETECTED 



42$: 



DEC 

BPL 



68$ 

45$ 



;YES, DECREMENT RETRY COUNT AND 
; RE TRY IF COUNT NOT NEGATIVE. 



001352 
001400 



;ThE retry COUNT HAS EXPIRED - SEE IF THE ERROR IS MEDIA RELATED 

43$: BIT #DCK.HCRC!HCEIFER:ECH.RMER1I ;ANY MEDIA RELATED ERRORS ? 
BNE 44$ ;YES, GO TRY NEXT AVAILABLE SECTOR 

BIT *8SE,RMER2I .'ANY MEDIA RELATED ERRORS ? 

BEQ 46$ ;N0. EXIT AND REPORT ERROR ON RETURN 



BAD SEC* '^lODULE 



229 
230 
231 

232 03^204 

233 03A212 
23A 03A220 

235 03A222 

236 03A230 
237 

238 034232 

239 03A240 
2A0 0342AA 
2A1 

2A2 
243 
2AA 



K 12 
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034250 

245 034252 

246 034260 

247 C 34262 

248 034266 
249 

250 
251 
252 

2*^3 034272 

254 034300 

255 034302 

256 034310 
257 

258 034316 

259 034324 

260 
261 

262 034330 
034330 
034332 

263 034334 

264 034340 

265 034344 

266 034352 

267 C34360 

268 034362 

269 034364 
270 

271 034366 

272 034372 

273 034374 
034400 
034404 

276 034406 

277 034410 

278 034412 
034414 

279 
280 

281 054416 



274 
275 



062737 
122737 
001413 
122737 
001407 

012737 
162716 
000137 



000240 
032777 
001002 
162716 
000137 



022737 
001446 
112737 
012737 

012737 
000137 



010046 
010146 
012701 
012700 
012760 
012760 
005720 
005301 
001367 

0^2701 
005000 
005060 
005060 
005720 
005301 
001371 
012601 
012600 



000002 
000012 

000040 



000003 
000006 
033332 



000012 
10437S 

000003 
033332 



000374 
000014 
^77777 
177777 



000006 

103370 
104376 



S£0 0155 



001420 
001420 

001420 
035070 



020000 144674 

OC0004 
035064 



THE ERRORS DETECTED WHILE TRYING TO RECOVER THE BAD SECTOR fjLE ARE 
DUE TO THE MEDIA. SEE IF THE BAD SECTOR FILF CAN BE RECOVERED FROM 
ANOTHER AREA ON THE LAST TRACK 



44S: 



45$: 



ADD 

CMP8 

BEQ 

CMP8 

BEQ 

MOV 
SUB 
JMP 



*2.RMDA0 

*10..RMDAO 

46$ 

*32. ,RMDA0 
^6$ 

*3.68$ 

tf6.(SP) 

3$ 



ADVANCE sen OR ADDRESS BY 2 

QUIT IF ALL MFG SECTORS HAVE BEEN 

TRIED. 

QUIT IF ALL USER SECTORS HAVE BEEN 
TRIED. 

.•REINSTATE RETRY COUNT FOR THIS SECTOR 
.•MOVE SP BACK TO NO ERROR 
.•RETRY THE READ OPERATION 



;THE BAD SECTOR FILE CANNOT BE READ 
46$: 



47$: 



NOP 
BIT 
BNE 
SUB 
JMP 



#swi3.aswR 

47$ 

#4. (SP) 
67$ 



INHIBIT MESSAGE ? 
YES 

MOVE SP TO ERROR RETURN 
GO TO MODULE EXIT 



.-THE SECTOR WAS RECOVERED WITHOUT ERROR - READ THE USER FILE IF 



104376 001416 48$: 



001420 
001416 

035070 V 



49$: 



103370 50$: 
104376 



51S: 



) THE MGF FILE OR ELSE 


CMP 


tfUSRFIL.RMBAO 


BEQ 


52$ 


M0V8 


*10..RMDAO 


MOV 


*USRFIL.RM8A0 


MOV 


*3,68$ 


JMP 


3$ 


HE BAD 


SECTOR FILES 


MOV 


R0.-(5P) 


MOV 


RI.-(SP) 


MOV 


*252..R1 


MOV 


*U,RO 


MOV 


A -I.MFGFIL(RO) 


MOV 


*-1.USRFIL(R0) 


TST 


(R0) + 


DEC 


R1 


BNE 


50$ 


MOV 


*6.,R1 


CLR 


RO 


CLR 


MFGFIL(RO) 


CLR 


USRFIL(RO) 


TST 


(R0) + 


DEC 


R1 


BNE 


51$ 


MOV 


(SP)+.R1 


MOV 


(SP)+.RO 



WAS THE USER FILE READ ?? 

YES - READ IS COMPLETE 

READ THE USER FILE LAST TRACK. SECTOR 

POINT TO USERS FILE BUFFER 

.•RELOAD THE RETRY COUNT FOR THIS SECTOR 
;60 READ THE USER FILE 



;PUSH RO ON STACK 

;PUSH R1 ON STACK 

R1 = NLMBER OF ENTRIES IN FILES 

RO = ADDRESS INDEX TO FILE STORAGE 

ENTER ALL ONES IN MFG FILE 

ENTER ALL ONES IN USER FILE 

ADVANCE ADDRESS 

DECREMENT COUNT 

CONTINUE IF NOT DONE 

.•CLEAR HEADER. CLEAR ID\6 SERIAL NUMBERS 



.■ADVANCE ADDRESS 



10. 



;;POP STACK INTO R1 
;;POP STACK INTO RO 

.-SET MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER 
52$: 



ZRMNBO RM05/5/2 fCTNL TST 2 
BAD SECTOR MODULE 



MA.RO VOA.CO 



L 12 
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282 
?85 
28A 
285 
286 
287 
288 
289 
290 
291 
292 
295 
294 
295 
296 
297 



0344 '6 
034420 
034422 
034430 
034436 
034442 
034446 
034450 



034452 
034452 
034454 
C34456 
034460 
034466 
054474 
034476 
034502 
034504 
034510 
034516 
034520 
034524 
034526 
309 034550 
510 054532 
034554 
054556 
054540 
034542 
054544 
034546 



298 
299 
500 
501 
302 
505 
304 
505 
306 
507 
508 



511 
512 
515 
514 
315 
516 
517 
318 
519 
520 
521 
522 
325 
324 
525 
526 
527 
528 
529 
330 
551 
552 
533 
534 



054552 

054560 
054564 

054572 
054576 

054602 
054610 
054616 



0100^6 
005000 
012757 
CI 6060 
062700 
022700 
103570 
012600 



010046 
010146 
010246 
013757 
015757 
005002 
015700 
005400 
012701 
052757 
001402 
012701 
020100 
101404 
005700 
001405 
005202 
000405 
160100 
005202 
000767 
010257 



17' Wf 
101560 
OOOC '? 
000046 



001446 
001420 

001414 

000400 
000002 

000402 



055070 



SPO 0154 



001512 
001412 



;;PUSH RO ON STACK 
:R0 IS REGISTER INDEX 



551: 



MOV RO.-(SP) 

CLR RO 

MOV #-1.MEDE^e 

MOV BUFFER(R0),PUT8UF (RO) 

ADD *2.R0 ; ADVANCE RO 

CMP #46. RO .-DONE ?? 

BHIS 55$ 

MOV (SP)*.RO ;;POP STACK INTO RO 

»»»»♦♦»»•»••»**»«»*»*♦*♦***•****••»*»»•*•***•*****»»•»•♦•»•»•♦• 

/FRIFV THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FKC 



.VERIFY THAT THE DESIRED SECTOR IS NOT 
;,\ND NOT IN THE USERS BAD SECTOR FILE. 
.SECTOR IS IN ANV OF THE FILES. 



IN THE MFG BAD SECTOR FkC 
ASSIGN A NFW SECTOR IF THE 



.•LOAD 
54$: 



INITIAL VARIABLES AND COMPUTE THE NUMBER OF SECTORS 



00^514 
001516 



0014^2 



55$: 



56$: 



57$: 



MOV RO.-(SP) 

MOV RI.-(SP) 

MOV R2.-(SP) 

MOV RMDCO.ASNDC 

MOV RMDAO.ASNDA 

CLR R2 

MOV RMWCO.RO 

NEG RO 

MOV *256..R1 

BIT ABITI.RMCSIO 

bEQ 55$ 

MOV #258.. Rl 

CMP R1.R0 

BLOS 56$ 

TST RO 

BEQ 57$ 

INC R2 

BR 57$ 

SUB R1.R0 

INC R2 

BR 55$ 

MOV R2.68$ 



;PUSH RO ON STACK 

;PUSH R1 ON STACK 

.•PUSH R2 ON STACK 

LOAD REQUESTED CYLINDER. TRACK. 

AND SECTOR ADDRESS IN ASSIGNED STORAGE 

R2 = NLWBER OF SECTORS 

RO = WORD COUNT 

MAKE NUMBER POSITIVE 

R1 = NUMBER OF WORDS PER SECTOR 

IS THIS A HEADER AND DATA COMMAND ?-> 

NO . .' 

CHANGE WORDS PER SECTOR 
IS THERE A FULL SECTOR ?? 
YES ' ' 

IS RO'ZERO ?? 

YES 1! 

INCREMENT FOR PARTIAL SECTOR 

;SU8TRACT ONE SECTOR FROM WORD COUNT 
.•INCREMENT SECTOR COUNT 

.•SAVE SECTOR COUNT 



LOAD PARAMETERS AND SEARCH THE MF6/USER SECTOR FILE FOR THE 
ASSIGNED SECTOR. ALSO. SEARCH THE ADJACENT SECTORS IF THE 
SECTOR COUNT IS MORE THAN ONE. 



012757 


105404 


035100 


MOV 


004757 


054602 




JSR 


012757 


104412 


055100 


MOV 


004757 


054602 




JSR 


000157 


055042 




JMP 


015757 


001514 


035074 


58$: MOV 


015757 


001516 


055076 


MOV 


015737 


055070 


035072 


MOV 








.•SETUP FOR 



/|fMF6FJL + 14, 72$ 
PC. 58$ 

*USRF I L +14. 72$ 

PC. 58$ 
66$ 



THE STARTING ADDRESS OF MFG FILE 
TO BASE ADDRESS STORAGE. 
60 SEARCH FILE 

LOAD STARTING ADDRESS OF USR FILE 
TO BASE ADDRESS STORAGE. 
60 SEARCH FILE 

DONE WITH ALL FILE SEARCHES !! 



ASNDC.70$ .-LOAD COMPARING CYLINDER ADDRESS 

ASNDA.71$ ;LOAD COMPARING TRACK, SECTOR ADDRESS 

68$. 69$ ;LOAD NUMBER OF SECTORS TO CONFIRM 

A BINARY SEARCH OF THE CURRENT FILE FOR THE COMPARING 



:zRM^eo rmos/^/z fctml tst 2 

BAD SECTOR MODULE 



n 12 



535 






336 03462A 






537 034624 


013700 


035100 


338 034630 


022710 


\77777 


339 034634 


001446 




340 034636 


021037 


035074 


341 034642 


001010 




342 






343 






344 






345 034644 






3-6 034644 


126037 


000003 


347 034652 


001004 




348 






549 034654 


126037 - 


000002 


350 034662 


001402 




351 






352 034664 


022020 




353 034666 


000760 




354 






355 






356 






357 034670 






358 034670 


105237 


001516 


359 034674 


122737 


000037 


360 034702 


103337 




3^"' 034704 


105037 


001516 


362 034710 


105237 


001517 


363 034714 


123737 


001335 


364 034722 


103327 




365 034724 


005037 


001516 


366 034730 


005237 


001514 


367 034734 


022737 


001466 


368 034742 


103317 




369 034744 


005037 


001514 


370 034750 


000714 




371 






372 






373 






374 






375 034752 






376 034752 


005337 


035072 


377 034756 


001442 




378 






379 034760 


105237 


035076 


380 034764 


122737 


000057 


381 034772 


103022 




382 034774 


105037 


035076 


383 035000 


105237 


035077 


384 035004 


123737 


001335 


385 035012 


103012 




386 035014 


005037 


035076 


387 035020 


005237 


035074 


388 035024 


022737 


001466 


389 035032 


103002 




390 035034 


005037 


035074 


^91 
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;Cr^INOER. TRACK AND SECTOR ADDRESS 
^9$: 



60t: 



MOV 
CMP 
BEQ 
CMP 
BNE 



72$. RO 
*-l.(RO) 
64$ 

(R0).70$ 
62$ 



LOAD THE BASE ADDRESS IN RO 
IS THIS FILE TERMINArOR ? 
8R IF YES 

DOES TABLE ENTRY = COMPARING CYLINOfR 
BR IF NO 



035077 
035076 



.•FILE ENTRY EQUALS COMPARING CYLINDER. 
.-THE COMPARING TRACK, AND SECTOR. 
61$: 

CMP8 3(R0).71$*1 
BNE 62$ 



SEE IF THE NEXT ENTRY EQUALS 



.'DOES TABLE ENTRY = COMPARING TRACK ? 
;8R IF NO 



62$: 



CMP8 2(R0).71$ .DOES TABLE ENTRY - COMPARING SECTOR ? 

BEQ 63$ ;8R IF YES 

CMP (R0)*,(RO)* ;N0. ADJUST CYLINDER POINTER IN BAD FILE 

BR 60$ ;AND CONTINUE SEARCH. 



;THE COMPARING CYLINDER. TRACK AND SECTOR 
.•ADVANCE THE ASSIGNED SECTOR AND START THE 
63$: 



IS IN THE BAD SECTOR FILE. 
SEARCH ALL OVER. 



001516 



001517 



001514 



INCB 


ASNDA 


•INCREMENT SECTOR 


CMP8 


«31.,ASNDA 


•SECTOR OK ?? 


BHIS 


58$ 


•YES !I 


CLR8 


ASNDA 


•CLEAR SECTOR AND ADVANCE TRACK 


INCB 


ASNDA* 1 




CMP8 


LSTRK*1,ASNDA*1 


•TRAC< OK ? 


BHIS 


58$ 


■YES !! 


CLR 


ASNDA 


•CLEAR TRACK AND SECTOR 


INC 


ASNDC 


•INCREMENT CYLINDER 


CMP 


*822.,ASNDC 


•CYLINDER OK ?? 


BHIS 


58$ 


•YES !I 


CLR 


ASNDC 


•START AT CYLINDER 0 


BR 


58$ 


; SEARCH NEXT SECTOR 



THE COMPARING SECTOR IS NOT IN THE BAD SECTOR FILES. DECREMENT THE 
NUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF THE NUMBER 
IS NOT ZERO. 



64$: 



035076 
035077 
035074 



DEC 


69$ 


.-DECREMENT NUMBER OF SECTORS TO COMPARE 


BEQ 


67$ 


;DONE IF ZERO 


INC8 


71$ 


.•INCREMENT THE COMPARING SECTOR 


CMP8 


#31. .71$ 


.•SECTOR OK ?? 


BHIS 


65$ 


;YES !! 


CLR8 


71$ 


.•CLEAR SECTOR 


INCB 


71$+1 


.•INCREMENT TRACK 


CMP8 


1 STRK+1, 711+1 


; TRACK OK ?? 


BHIS 


65$ 


;YES i: 


CLR 


71$ 


.•CLEAR SECTOR TRACK 


INC 


70$ 


.•INCREMENT CYLINDER 


CMP 


*82?.,70$ 


.•CYLINDER OK ?? 


BHIS 


65$ 


;YES 


CLR 


70$ 


.-START AT CYLINDER 0 



Zf^MNBO RM05/3/2 FC^NL TST 2 
BAD SECTOR MODULE 



592 0350A0 

595 

394 

395 035042 

396 035042 

397 035050 

398 035056 
035060 
035062 

399 

400 035064 

401 035066 
402 

403 
404 

405 035070 

406 035072 

407 035074 

408 035076 

409 035100 

410 035102 



000671 



013737 
013737 
012602 
012601 
012600 

00024C 
000207 



000000 
000000 
000000 
000000 
000000 
000000 



flACRO V04.00 
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001514 
001516 



BR 



59$ 



.•SEARCH NEXT SECTOR 



•ASSIGN THE SECTOR AND RETURN TO USER 
66$: 

001446 MOV ASNDC.RMDCO 

001420 MOV ASNDA.RMDAO 

MOV (SP)*.R2 

MOV (SP)*.R1 

MOV (SP)*.RO 



LOAD CYLINDER 
LOAD TRACK AND SECTOR 
;POP STACK INTO R2 
;POP STACK INTO R1 
;POP STACK INTO RO 



67$: 



NOP 
RTS 



PC 



.THE FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE 



68$: 


.WORD 


0 


69$: 


.WORD 


0 


70$: 


.WORD 


0 


71$: 


• WORD 


0 


72$: 


.WORD 


0 


73$: 


.WORD 


0 



RETRY COUNT/ NLWBER OF SECTORS REQUIRED 
NUMBER OF SECTORS TO COMPARE 
COMPARING CYLINDER 
COMPARING TRACK AND SECTOR 

BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED 
CONTAINS RMER2 



/f'*1NB0 t<MC'5/?/^ fCTNt TST ? 



4 
5 
6 

7 

8 
9 

^0 



OWCRO 1/04.00 
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SEO 0157 



V 
'3 
U 
15 
16 
17 
18 
19 
20 



21 
22 
23 
?4 
25 
26 
2/ 
28 
29 
30 
31 
32 
33 
34 
35 
56 
37 
38 
^9 
40 
41 
42 
43 
44 
4S 
46 
47 
48 
49 
50 
51 
52 



C35104 
035104 
035106 
035110 
035112 
0351U 
035116 
035122 
035126 
035134- 

055142 
035150 
035152 
035156 
035162 

035166 
035174 
035176 
035202 

C35206 
035210 

035212 
035214 
035220 
035222 
035224 
035230 
035232 
03523A 
035236 
035240 
035244 
035252 
055254 



010046 
010146 
010246 
010346 
010446 
01 3700 
013701 
013737 
013737 

032737 
001445 
013710 
052710 
012702 

032737 
001404 
052710 
012702 

005201 
001443 

005720 
013720 
005201 
001436 
012703 
105213 
120213 
103013 
105013 
105263 
123763 
103004 
105063 



001416 
001414 
001446 
001420 



035336 
035340 



.S8TTL BUFFER GENERATOR SUBROUTINE 

THIS SLBROUTINE GENERATES A DATA BUFFER FOR WRITE COMMANDS. 
BUFFER STARTS AT RMBA AND IS RMWC WORDS LONG. THE BUFFER 
CONTAINS A REPETITIVE DATA PATTERN CONSISTING OF fTMPI WORDS 
FROM THE DATA PATTERN TABLE. BEGINNING AT ADDRESS STMPO. 
HEADER INFORMATION FOR THE BUFFER IS EXTRACTED FROM RMDC. 
RMDA AND RMOF . 

RO = ADDRESS OF DATA BUFFER 
R1 = LENGTH OF DATA BUFFER 
R2 - ADDRESS OF DATA PATTERN 
R3 - LENGTH OF DATA PATTERN 
R4 = SECTOR COUNT 



THE 



CALL: 

(1) JSR 

(2) ?? 



GENBOF : 



000002 001412 ■'0$; 

035336 
140000 
000035 

010000 001444 

010000 
000037 

15J: 



035340 
035^40 



000001 
001335 

000001 



000001 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

BIT 
BEQ 
MOV 
BIS 
MOV 

BIT 
BEQ 
BIS 
MOV 

INC 
BEQ 

TST 

MOV 

INC 

BEO 

MOV 

INCB 

CMP8 

BHIS 

CLRB 

INCB 

CMP8 

BHIS 

CLRB 



PC.GENBUF 



RO. -(SP) 

Rl.-CiP) 

R2,-(SP) 

R3.-{SP) 

R4.-(SP) 

RM8A0.ro 

RMWC0.R1 

RMOCO,60$ 

RMPAO,65t 

#8JT1.RMCS10 
25$ 

60$, (RO) 
*MSE!USE.(RO) 
#29.. R2 

<rFMT16.RM0F0 
15$ 

*FMT16. CRO) 
#31.. R2 

R1 
50$ 

(RO)* 
65$, (RO)* 
Rl 
50$ 

#65$. R3 

(ft3) 

R2.(R3) 

25$ 

(R3) 

1(R3) 

LSTRK*1.'(R3) 
25$ 

HR3) 



RETURN HERE 



PUSH RO ON STACK 
PUSH Rl ON STACK 

push r2 on stack 

push r3 on stack 

push r4 on stack 
load data buffer address 
load word count 

load starting cylinder address 
load starting track. sec tor address 

write header 6 data?? 
no: ! 

write header word #1 

set bad sector flags for good sector 

r2 = maximum sector addresi (29.) 

18 bit format?? 

YFS ' ' 

SET 16 FORMAT BIT IN HEADER 

CHANGE MAXIMU>1 SECTOR ADDRESS (31.) 

INCREMENT WORD COUNT 
EXIT IF DONE 

MOVE RO TO HEADER WORD #2 
WRITE HEADER WORD #2 
INCREMENT WORD COUNT AND 
EXIT IF DONE 
ADVANCE SECTOR ADDRESS 

SECTOR OVERFLOW ?? 
NO 1 . 

YES - CLEAR SECTOR ADDRESS 
ADVANCE TRACK ADDRESS 
TRACK OVERFLOW ?? 

NO : ! 

YES - CLEAR TRACK ADDRESS 



:«MNBO HM05/3/2 FCTNL TST 2 
ci^fftt^ GENERATOR SUBROUTINE 



•lACWO V04.00 <i-APR-81 



53 035260 

54 055264 


105237 


035336 


012704 


Gu0400 


55 035270 


013702 


001 17<, 


56 035274 


01 3703 


001176 


57 035300 


012220 




58 035302 


005201 




59 035304 


001405 




fcO 035306 


005304 




61 035310 


001714 




62 035312 


005303 




63 035314 


001765 




o4 035316 


000770 




65 035320 






035320 


012604 




035322 


012603 




035324 


012602 




035326 


012601 




035330 


012600 




66 035332 


000240 




t7 C35334 


00020/ 




66 






69 035336 


000000 




70 035340 


000000 







INC8 


25$: 


MOV 


30f: 


MCV 




MOV 


40S: 


MOV 




INC 




BEQ 




DEC 




BEQ 




DEC 




BEQ 


■ 


BR 


50$: 






MOV 




MOV 




MOV 




MOV 




MOV 




NOP 




RTS 


60$: 


.WORD 


65$: 


.WORD 
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60$ ; ADVANCE CYLINDER ADDRESS 

#256.. R4 .-LOAD SECTOR DATA COUNT 

$TMP0.R2 .-LOAD PATTERN ADDRESS 

$TMP1,R3 ;LOAD PATTERN COUNT 

(R2)*,(R0)* .-WRITE DATA PATTERN 

R1 ; INCREMENT WORD COUNT AND 

•)0t .-EXIT IF DONE 

R4 ; DECREMENT SECTOR COUNT 

10$ .-START NEXT SECTOR IF 0 

R3 .'DECREMENT PATTERN COUNT 

30$ .-RESTART PATTERN IF 0 

40$ .-CONTINUE DATA PATTERN 

{SP)*.R4 ;;POP STACK INTO R4 

(SP)*.R3 ;;POP STACK INTO R3 

(SP)*.R2 ;;POP STACK INTO R2 

(SP)*.R1 ;;POP STACK INTO R1 

(SP)*.RO ;;POP STACK INTO RO 

PC 

.-CrLlNDER ADDRESS STORAGE 
.•TRACK, SECTOR ADDRESS STORAGE 



CZRMNBO RM05/3/2 FCTNL TST 2 
rOMPARE BUFFER SlBROuTINE 



2 
I 
4 
5 
6 
7 

8 

9 

10 

12 
13 
U 
IS 
16 

17 035542 
035342 010046 
035344 010146 
C 35 346 010246 
035350 010346 

18 035352 005037 035702 
19 

20 

21 035356 033737 004000 

22 035364 001063 

23 035366 032737 100000 

24 035374 001457 

25 035376 032737 000100 

26 035404 001053 

27 035406 032737 010000 
2B 035414 001447 

29 
30 

31 035416 013700 001416 

32 035422 013701 001402 

33 035426 052737 100000 
34 

35 

36 035434 022701 000020 
57 035440 103004 

38 035442 162701 000020 

39 035446 005720 

40 035450 000771 

41 035452 012702 000001 

42 035456 010203 
43 

44 

45 035460 020301 

46 035462 001403 

47 035464 006302 

48 035466 005203 

49 035470 000773 

50 035472 012703 000013 
51 

52 

53 035476 030237 001404 
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001370 
00*352 
001352 
001370 



035702 



,S8TTL COMPARE BUFFER SUBROUTINE 

THIS SL8R0UT1NE COMPARES THE CONTENTS OF BUFONE AND BuFTwO. 
ASSUMING THAT BUFONE IS THE BUFFER FROM WHICH PATA WAS WRITTEN 
AND BUFTWO IS THE BUFFER TO WHICH DATA WAS READ. ERRORS IN BUfFER 
COMPARISON ARE REPORTED TO THE USER VIA THE USER'S ERROR CALL. 



.-CALL: 






;(1) 


JSR 


PC.CMP8UF 


;(2> 


.WORD 


WRiTE BUFFER ADDRESS 




.WORD 


READ BUFFER ADDRESS 


;(3) 


BR 


?? RETURN HERE IF NO ERROR 


;(4) 


NOP 


RETURN HERE IF ERROR 


;(5) 


ERROR 


ERROR DEFINED BY SUbROUTINE 


;(6) 


??? 





CMP8UF : 



MOV 
MOV 
MOV 
MOV 

CLR 



RO.-(SP) 
RI.-^SP) 
R2.-(SP) 
R3.-(SP) 
130$ 



.•PUSH RO ON STACK 
;PUSH R1 ON STACK 
.•PUSH R2 ON STACK 
;PUSH R3 ON STACK 
CLhAR CORRECTION FLAG 



; DETERMINE IF DATA SHOULD BE CORRECTED 



BIT 


ECI.RMOFI 


■WAS ECC CORRECTION ALLOWED 


BNE 


80$ 


■NO !! 


BIT 


#DCK,fiMER1I 


•WAS THERE A DATA CHECK ?"' 


BEQ 


80$ 


■NO I. 


BIT 


*ECH.RMER1! 


•IS ERROR CORRECTION HARD SET ? 


BNE 


80$ 


■YES !! 


BIT 


*FMT16.RM0FI 


•IS THIS 16 BIT FORMAT ?? 


BEQ 


80$ 


•NO : ! 



; CORRECT DATA USING ECC INFORMATION 
MOV RMBAO,RO 
MOV RMEC1I,R1 
BIS *8IT15.150$ 



RO = STARTING BUFFER ADDRESS 
R1 - ECC POSITION 
SET CORRECTION FLAG 



;MOVE 


RO TO 


WORD BOUNDARY OF 


ERROR BURST 


10$: 


CMP 


#16.. Rl 


;IS BIT POSITION > 1 WORD 




BHIS 


20$ 


;N0 i'. 




SUB 


*16.,F1 


.'SUBTRACT 1 WORDS WORTH 




TST 


C«0)* 


.•ADVANCE BUFFER ADDRESS 1 WORD 




BR 


10$ 




20$: 


MOV 


*1.R2 


;R2 = BIT POINTER 




MOV 


R2,R3 


;R3 = BIT NUMBER 


.-MOVE 


R2 TO 


STARTING BIT OF 


ERROR BURST 


30$: 


CMP 


R3,R1 


;IS R3 SAME AS Rl ?? 




BEQ 


35$ 


;YES !! 




ASL 


R2 


.•SHIFT BIT POINTER 




JNC 


R3 


.•INCREMENT BIT NUMBER 




8R 


30$ 




35$: 


MOV 


#11.,R3 


.■R3 = LENGTH OF ERROR BURST 



.•CORRECT THE ERROR BURST 
40$: BIT R2,RMEC2I 



;IS THIS BIT SET IN ECC PATTERN ?? 



rt"1^eC WM05/3/2 FTTNL ^ST 2 
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71 
^2 



SA 055502 

55 035504 

56 D35506 

57 C35510 

58 035512 

59 0355K 

60 035516 
t^ 035520 

62 G35522 

63 035526 
tA C35530 
o5 055532 
66 

67 

68 03553A 

69 0355^0 

70 035546 
035552 
035560 

73 C 55 564 

74 035570 

75 0355^2 

76 035574 

77 035576 

78 035600 
79 

80 

81 035602 

82 035606 

83 055612 

84 035616 
3:> 035622 

86 035626 

87 035634 
88 

89 

90 035642 

91 035650 

92 035652 

93 035660 

94 035666 

95 035670 
035670 
035672 
035674 
035676 

96 055700 
97 

98 035702 



001405 
030210 
001402 
040210 
000401 
050210 
006302 
001003 
012702 
005720 
005303 
001361 



C 1 7600 
062766 
01 7601 
062766 
013702 
163702 
022021 
001003 
005302 

001 374 

000433 



014057 
014137 
010037 
010137 
010237 
062766 
112776 



032737 
001403 
112776 
162766 
000240 

012603 
012602 
012601 
012600 
000207 

000000 



000001 



000010 
000002 
COOOlO 
000002 
001 340 
001414 



001140 
001142 
001134 
001 1 36 
001 1 74 
000004 
000336 



000163 
000002 



6EQ 

BIT 

BEQ 

BJC 

BR 

BIS 

ASL 

BNE 

MOV 

TST 

DEC 

BNE 



60S 

R2.(R0) 
50S 

R2.(R0) 
60$ 

R2.(R0) 
R2 
70$ 
*1.R2 

(RD)* 

R3 

40$ 



000010 
000010 



000010 
000010 



50$: 
60$: 



70$: 



80$: 



90$: 



;DATA COMPARE FAILED 

100$: MOV -(RO).$GDDAT 

MOV -(R1).$eDDAT 

MOV RO.$GDADR 

MOV R1.$8DADR 

MOV R2.$TMP0 

ADD #4,10(SP) 

M0V8 #336,a10(SP) 



.-NT - DO NOT CORRECT THIS BIT 
;IS THE BIT PRESENTLY SET ?? 
;N0 

.•RESET THE BIT 

;S£T THE BIT 
.•SHIFT TO NEXT BIT 

.■CONTINUE WITH fIRST BIT QF NEXT dORD 

.END OF BURST ?? 
;N0 : . 



WRITE 


BUFFER TO READ 


BUFFER 


MOV 


aiO(SP).RO 


;R0 = WRITE BUFFER 


ADD 


*2.10(SP) 


;M0>/E SP TO READ ADDRESS 


MOV 


aiO(SP).Rl 


;R1 = READ BUFFER 


ADD 


*2.10(SP) 


.■MOVE SP TO RETURN ADDRESS 


MOV 


RMWCI .R2 


;R2 = NIMBER OF WORDS TRANSFER 


sue 


RMUC0.R2 




CMP 


(R0)*.(P1)* 


.•COMPARE DATA WORDS 


BNE 


100$ 


.•EXIT IF NOT EOUAL 


DEC 


R2 


.•DECREMENT WORD COUNT 


BNE 


90$ 


.•CONTINUE IF NOT DONE 


BR 


110$ 


.•DONE COMPARE - NO fcRROR 



STORE GOOD DATA FOR TVPEOUT 
STORE BAD DATA FOR TVPEOUT 
STORE ADDRESS OF GOOD DATA 
STORE ADDRESS OF BAD DATA 
STORE WORD COUNT OF ERROR 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 



100000 035702 



.•CHANGE ERROR NUMBER IF ECC CORRECTION FAILED 



000010 
000010 



105$: 
110$: 



SIT 
3E0 

Move 
sue 

NOP 

MOV 
MOV 
MOV 
MOV 
RTS 



150$: .WORD 



*8IT15.150$ 
105$ 

*163.aiO(SP) 
*2.10(SP) 



{SP)+,r3 
(SP)+.R2 
(SP)+.R1 
(SP)*.R0 
PC 



WAS ECC CORRECTION USED 7^ 
NO ! ' 

ECC CORRECTION FAILED 
MOVE SP TO RETURN IF ERROR 



;;POP STACK INTO R3 
;;DOP STACK INTO R2 
;;POP STACK INTO R1 
.-.POP STACK INTO RO 
.•RETURN TO USER 

.•ECC CORRECTION FLAG 



4 
5 



'V 



MA:f<0 w04.00 
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.SarTL GET STATUS SUBROUTINE 

THIS SUBROUTINE SETS UP THE "GET INDEX TABLE" AND ThE 'IbET 
BUFFER" FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SL«ROuTINt 
AND THEN RETURNS TO THE USER. 



t 

7 






; CALL : 


JSR 


PC. GETSTS 




8 








??? 


RETURN HERE 


9 

1C 035704 






GETSTS: 








035^04 


010046 






MOV 


on ~(<p\ 


•PIlQU on niU CTATIf 


n 055706 


010146 






MOV 


ft 1 , I o"/ 1 


. jri It 1 uni oiMcN 


'<? 035710 


010246 






MOV 




. .piicu OJ DKI CTATr 


035712 


012700 


00^524 




MOV 




on - AnnoFCC nr imfifv t&qi e 

nU - Myi/ftCoj Ur jmi/tA 1 'vSL t 


14 035716 


012701 


001406 




MOV 


irRMP r 7 1 4 ? p 1 

wrvnC L c i ^ c # 1 


•R1 = ADDRESS OF GET BUFFER 


'5 035722 


012702 


000046 




MOV 


tfPMPrP P7 




'6 035726 


110220 




2S: 


M0V8 


Dp (POW 


■URITF RFf^ISTFR INDFX IN TARl F 


17 035730 


005041 






CLR 


-(R1) 


■CLEAR CORRESPONDING LOCATION 


18 035732 


162702 


000002 


5$: 


SUB 


*2.R2 


•DECREMENT TO NEXT INDEX 


^9 C35736 


100405 






BMI 


4$ 


;BRANCH OUT IF DONE 


20 0^5740 


022702 


000022 




CMP 


#RMD8,R2 


;DONT WRITE RMDB INDEX 


21 035744 


001370 






BNE 


2S 




?2 0^5746 


005041 






CLR 


-(R1) 




23 035750 


000770 






BR 


3S 




24 055752 


112720 


000200 


4S: 


MOVB 


#200. (RO)^ 


:WRrE TERMINATOR 


25 035756 


012602 






MOV 


(SP)*.R2 


;;POP STACK INTO R2 


26 035760 


012601 






MOV 


(SP)*.R1 


;;POP STACK INTO R1 


27 035762 


012600 






MOV 


(SP)*.RO 


:;POP SMCK INTO RO 


28 035764 


000240 






NOP 




. 9 055766 


000207 






RTS 


PC 





w 



G 

PAGE 



13 

2C 



4 

r 



8 

9 



'i, 
15 

17 
'8 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
50 
51 

35 
% 
55 



56 
57 
58 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



035770 
035772 
035776 
036002 
036006 
036010 
036012 
036014 
036016 
036020 
036024 
036050 
036034 
036040 
036044 
036052 
036060 
036066 
036074 
036102 
036104 
036112 
036120 
036122 
036124 
036126 
C36130 



000240 
062716 
105076 
162716 
010046 
010146 
010246 
010346 
010446 
013746 
013746 
013700 
012702 
012704 
012737 
012737 
016037 
016037 
032737 
001007 
062766 
112776 
000423 
105714 
100433 
111401 
042701 



000004 
000000 
0C0004 



000004 
000006 
001276 
001336 
001524 
03e>152 
000300 
000010 
000000 
004000 

000004 
000112 



T 77700 



000004 
000006 
001174 
001176 
001 1 76 

000016 
000016 



,S8TtL GE' S^ROUMNE 



THIS SUBROUTINE READS THE REGISTERS WHICH ARC LISTED ]N ThE 
"GET INDEX TABLE" AND STORES THEIR VALUES IN THE L ORRE Sf'OND 1 NG 
LOCATION IN THE "GE^ REGISTER BUFFER". FOR EXAMPLE. AN 
ENTRY OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE TO 
READ "WBA" AND STORE ITS CONTENTS AT THE LOCATION IN 
THE BUFFER ASSIGNED TO THAT REGISTER, THE NUMBER OF 
REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE INDEX 
TABLE MUSr BE TER'^JNATED WITH A CONTROL BYTE (200) 
WHICH SHOULD FOLLOW THE LAST ENTRY. 

SUBROUTINE CALL 



(1) 
(2) 



(3) 



RO 
R1 
R2 
R3 
R4 

GET: 



•GET INDEX TABLE" HAS BEEN LOADED WITH REGISTER INDE)* 
VALUES AND TERMINATED WITH A CONTROL BYTE 
"GET INPUT BUFFER" IS AVAILABLE FOR USE. (NOTE THAT 
UNUSED LOCATIONS. I.E., ENTRIES IN BUFFER CORRESPONDING 
TO REGISTERS NOT READ, ARE NOT CHANGED.) 
JSR PC. GET 

BR ??? RETURN HERE IF NO ERROR FOUND 

NOP RETURN HERE IF ANY ERROR FOUND 

ERROR SUB DEFINES ERROR NJ18ER 

REGISTER BASE 'VDDRESS 
REGISTER ADDRESS 
BUFFER BASE ADDRESS 
BUFFER ADDRESS 
POINTER '0 REGISTER INDEX 



1%: 



3t: 



NOP 

ADD *4,(SP) 

CLR8 a(SP) 

SUB »4,(SP) 

MOV RO.-(SP) 

MOV R1,-(SP) 

MOV R2.-(SP) 

MOV R3.-(SP) 

MOV R4.-(SP) 

MOV ERRveC,-(SP) 

MOV ERRVEC*2.-(SP) 

MOV $8ASE,R0 

MOV *GET8UF.R2 

MOV *GErjNX.R4 

MOV *5$.ERRVEC 

MOV APR6.ERRVEC+2 

MOV RMCS2(R0).$TMP0 

MOV RMCS1(R0).$TMP1 

BIT *DVA.STMP1 

BNE 3$ 

ADD Xr4.16(SP) 

M0V8 *n2,S16(SP) 

BR 71 

TST8 (R4) 

BMI 9$ 

M0V9 (R4),R1 

BIC #-CIDXMS«..Rl 



; CLEAR ERROR NU^BER IN USER'S 
.-ERROR CALL 

;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
.-.-PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;;PUSH R4 ON STACK 
.-.-PUSH ERRVEC ON STACK 

;;PUSH ERRVEC +2 ON STACK 



.•SETUP FOR TIMEOUT 

.•GET '^ED" STATUS 
.-GET "DVA" STATUS 
.•DEVICE AVAILABLE?? 

;YES: ! 

.•WRITE ERROR NUMBER IN u'~F'-'*S 
; ERROR CAlL 

.•DONE?? 

•YES' ' 

}r1 -'register AD^'RE 

; CLEAR ANY SIGN Fx'FN' I \ 



^JB«»0uTIIi6 



s? 

54 
55 
56 
57 
58 
59 
60 
61 
6? 
o5 
64 
65 
66 
67 
68 
69 
70 



056154 
056156 
056K0 
056 K4 
056U6 
056150 

056152 
056154 
056162 
056170 
056176 
036200 
036202 
056204 
036206 
056210 
056212 
056214 
C56214 
056220 
056224 
056226 
056230 
036252 
056234 
056256 



060001 
112405 
042705 
060205 
011115 
000764 

C22626 
062766 
112776 
162766 
105714 
100405 
005005 
112403 
060203 
00501 3 
00077T 

012657 
012657 
012604 
012605 
012602 
01 2601 
012600 
000207 



177700 



000004 
000007 
000002 



0000^6 
000016 
000016 



0C0006 
000004 



H 15 
":<.5:S^ ►Aot 



R0.R1 
(R4)».R3 

R2.R3 

('?1),(R5) 

»S 

(SP)*.(SP)* 

#4.16(SP> 

ir7.ai6(SP) 

#2. 16(5?) 

(R4) 

9$ 

R3 

(R4;*.R5 
R2.R3 
(R3) 
8t 

(SP)*.ERRVEC»2 

(SP)*.ERRVEC 

(SP)*,R4 

(SP)*.R3 

(SP)*.R2 

(SP)*,R1 

<SP)*,R0 

PC 



;R5 STORAGE AODRfSS »Oft REu.'S* 
.llEAR ANV ll&i EXTFHI.ION 

;R£AO REGISTER 



.-RESTORE STACK 

.-WRITE ERROR Nl/«ER IN 

.•USER'S ERROR CALL 

:DOm CLEARING?? 
;YES. : 

.CLEAR REMAINING STORAGE 
.•LOCATIONS 



;.-POP STACK INTO ERRVE' 
;POP STACK INTO ERRvEC 
;POP STACK INTO R4 
.-POP STACK INTO R5 
;POP STACK INTO R2 
;POP STACK INTO RT 
;POP STACK INTO RO 
RE TURN 



1 

t 

7 
9 
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13 

15 
16 
17 
18 

19 
20 
?1 
2? 
23 
24 
25 
26 
27 
28 
29 



30 
31 
32 
33 
3A 
?5 
56 
37 
?8 
3'? 
AO 
AT 

A2 
A3 

AA 
AS 
A6 
A7 
A8 
A9 
SO 



0362A0 
0362A2 
0362AA 
0362A6 
036250 
036252 
0362 5 A 
036260 
03626A 
036270 
03627A 
036300 
036306 
03631A 
C 36322 
036330 
036336 
0363A0 
0563A6 
03635A 
036356 
036360 
036362 
036 36A 
036370 
036372 
03637A 
036A00 
036402 
:36A0A 



000240 
0100A6 
010K6 
010246 
0103A6 
010AA6 
0137A6 
0137A6 
013700 
012702 
01270A 
012737 
012737 
016037 
016037 
032737 
001007 
062766 
112776 
000A2A 
10571A 
100A25 
111A01 
0A2701 
060001 
inA03 
0A2703 
060203 
011311 
^05724 



OOOOOA 
000006 
001276 
001A12 
001553 
036A10 
000300 
000010 
000000 
OOAOOO 

OOOOOA 
000112 



1 77700 
1 77700 



OOOOOA 
000006 
001 1 7A 
001176 
001 1 76 

000016 
000016 



.S8TTL PUT S'J3«0UriN€ 

THIS SOBROUTIME WRITES THE REGISTERS WHICH ARE LISTED IN IhE 
•PUT INDEX TABLE" WITH THE CONTENTS OF THE COftRESPONDiNG 
LOCATION IN THE "^UT REGISTER BUFFER". THE NU>©ER Of 
REGISTERS WRITTEN IS VARIABLE; THE INDEX TABlE MUST 
BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD 
FOLLOW THE LAST ENTRY. 

SUBROUTINE CALL: 



(^) 

(2) 
<3J 



RO 
R1 
R2 
R3 
RA 

PUT; 



1$: 



3$: 



•T>UT INDEX TABLE" HAS BEEN LOADED WITH INDEX VALUES 
OF REGISTERS TO BE WRITTEN. 

"PUT REGISTER BUFFER" CONTAINS CONTENTS OF EACH 
REGISTER TO BE WRITTEN. 
JSR PC. PUT 

BR ??? RETURN HERE IF NO ERROR FOUND 

NOP RETURN HERE IF ANY ERROR FOUND 

ERROR SUB DEFINES ERROR Nll«ER 

•>•}"> 

REGISTER BASE ADDRESS 
REGISTER ADDRESS 
BUFFER BASE ADDRESS 
BUFFER ADDRESS 
POINTER TO REGISTER INDEX 



At: 



NOP 

MOV RO.-CSP) 

MOV Rl.-(SP) 

MOV R2.-<SP) 

MOV R3.-(SP) 

MOV RA.-(SP) 

MOV ERRVEC.-(SP) 

MOV ERRVEC*2.-(SP) 

MOV $8ASE,R0 

MOV *PUT8UF,R2 

MOV #PUTINX.RA 

MOV *5$.ERRVEC 

MOV *PR6,ERRVEC*2 

MOV RMCS2(R0).$TMP0 

MOV RMCS1(R0).$TMP1 

BIT «DVA.$TMP1 

BNE 3S 

ADD *AJ6(SP) 

M0V8 #112,a16(SP) 

BR 7$ 

TST8 (RA) 

8M1 9$ 

MOVB (RA),R1 

BIC **CIDXMSK,R1 

ADD R0,R1 

M0V8 (RA),R3 

BIC **CIDXMSH,R3 

ADD R2,R3 

MOV (R3).(R1) 

TST8 (RA)+ 



;PUSH RO ON STACK 
;PUSH R1 ON STACK 
;PUSH R2 ON STACK 
;PUSH R3 ON STACK 
.•PUSH RA ON STACK 
.•PUSH ERRVEC ON STACK 

;;PUSH ERRVEC*2 ON STACK 



.•SETUP FOR TIMEOUT 

GET 'NED" STATUS 
GET "DVA" STATUS 
DEVICE AVAILABLE?? 
VES! ! 

WRITE ERROR NUMBER IN 
USER'S ERROR CALL 

DONE?? 
YES! ! 

R1 = REGISTER ADDRESS 
CLEAR ANY SIGN EXTENSION 

;R3 = STORAGE ADDRESS 
.•CLEAR ANY SIGN EXTENSION 

.•WRITE REGISTER 

.-ADJUST REGISTER POINTER 



54 
5S 
56 
S7 
58 
59 



C36406 000?6? 

0%«10 022626 5$: 

056A12 062766 000004 000016 

036420 112776 000007 000016 

036426 "62766 000002 000016 7$: 



056434 

056434 012657 000006 
036440 012637 000004 
036444 012604 
036446, ,012603 
0364507012602 
036452 012601 
036454 012600 
036456 000207 



9S: 



J 13 
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SfO 0165 



BR 51 

CHP 'SP)*.(SP>» .-ADJUST STACK 

ADD #4.16(SP) ;WRJTE EPROR NUMBER IN 

HO^ #7.i16(SP) .-USER'S ERROR CALL 

SUB #2.16(SP) 



MOV (SP)».ERRVEC»2 ;;POP STACK JNTQ ER»*iirEC*2 

MOV (S'^)».ERRVEC ;;P0P STACK INTO ERRVEC 

MOV (SP)*.R4 .-.-POP STACK INTO R4 

MOV <SP)*.R3 ;;P0P STACK INTO R3 

MOV CSP)*.R2 ;;POP STACK INTO R2 

MOV (SP)*.R1 ;;POP STACK INTO R1 

MOV vSP)*,RO ;;POP STACK INTO RO 

RTS PC .'RETURN 



•'t'^HO .04.00 
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3 

5 
6 
7 
8 

9 

10 

n 

12 
15 
'4 
15 
16 

'8 

19 

?0 

21 
22 



056460 
056460 
036464 
036470 
036476 
036504 
036512 
036520 
036524 
036526 
056550 
036536 
036544 
036552 
036556 
036560 
056562 
C 365 70 
056570 
056574 
036600 



013746 
013746 
012757 
012737 
012737 
012737 
005777 
000421 
022626 
012737 
012737 
012737 
005777 
000404 
022626 
062766 

012657 
0^2637 
000207 



000004 
000006 
036526 
000500 
177546 
000100 
142774 



056560 
172540 
000104 
142742 



000004 
000006 
001520 
001522 



000004 
001520 
001522 



000002 000004 

000006 
00C004 



.seriL SJZE CLOCK subrouiine 



SIZCLK: 



1$: 



2$: 

3$: 



MOV ERRVEC.-(SP) 

MOV ERRVEC*2.-(SP) 

MOV *1$.ERRVEC 

MOV *PR6.ERRVEC*2 

MOV #1 77546. CLKADR 

MOV #100,CLKVCT 

TST aCKADR 

BR 3$ 

CMP (SP)*.(SP)+ 

MOV *2$,ERRVEC 

MOV #1 72540. CLKADR 

MOV #104.CLKVCT 

TST aCLKADR 

BR 3$ 

CMP (SP) 

ADD *2.4(SP) 

MOV (SP)*.ERRVEC*2 

MOV {SP)>,ERRVEC 

RTS PC 



;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC ^2 ON STAfx 
SET UP FOR BUS TIMEOUT 

LOAD ADDRESSES FOR KWl'-L 

TEST FOR ICW11-L PRESENT 
VES - KW11-L IS PRESENT 
RESTORE SP 

SET UP FOR BUS TJMEOUT 

LOAD ADDRESSES FOR KW11-P CLOCK 

TEST FOR KW11-P PRESENT 
YES - KW11-P IS PRESENT 
RESTORE SP 
MOVE RETURN TO ERROR 

;;POP STACK INTO ERRVEC*2 
;;POP STACK INTO ERRVEC 
.•RETURN TO USER 



5 
6 

7 
8 
9 



10 
11 
12 
13 
U 
15 
16 
V 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
If 
28 
29 
30 
31 
32 
35 
3A 
35 



'ST 
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56 



056602 
056602 
036604 
056606 
056610 
0566K 
056620 
056626 
056654 
056640 
036644 
036650 
036654 
056656 
036664 

056670 
056674 
056700 
056704 
036706 
036712 
036714 
036716 
056720 

056722 
056724 
056732 
036740 

036746 
036746 
056752 
056756 
036760 
036762 
056764 



010C46 
010146 
010246 
01 3746 
013746 
012737 
012737 
015700 
015701 
0127-02 
020127 
001005 
012761 
012711 

016046 
042716 
022726 
001420 
032711 
001766 
005302 
U01554 
000412 

022626 
062766 
112776 
162766 



012657 
012657 
012602 
012601 
012600 
000207 



000004 
000006 
056722 
000300 
001276 
001520 
000036 
172540 

000001 
000005 

000000 
1 77576 
000200 

000200 



000004 
000007 
00000? 



000006 
000004 



.S8TTL TIMEOUT SUBROUTINE 

;THIS SUBROUTINE WAITS FOR RDV - 1 AND GO = 0 OR FOR A TIMEOUT 
.•GREATER T AN APPROX. 500 MSEC AND THEN RETURNS. 



.•CALL: 



TIMOUT: 



000004 
000006 



000002 



1$: 



2$: 
3$: 



000012 
000012 
0000 V 



4$; 



5$: 



JSR 


PC. TIMOUT 






MOV 


RO.-(SP) 


MOt/ 


R1 ,-(SP) 


MOV 


R2,*-(SP) 


MOV 


ERRVEC,-(SP) 


MOV 


ERRVEC*2.-(SP) 


MOV 


*4$.ERRVEC 


MOV 


*PR6,ERRVEC*2 


MOV 


J8ASE.ro 


MOV 


CLKADR.RI 


MOV 


*50. ,R2 


CMP 


R 1 ,lt\ 72540 


BNE 


2J 


MOV 


»1 vR 1 ) 


MOV 


*8JT2;bito,(R1) 


MOV 


RMCS1 (RO). -(SP) 


SIC 


ft C<RDY.GO>. ISPP 


CMP 


ffRDY. (SP^ + 


BEQ 


c < 


D I T 


m\ If , \ n\ J 


BEQ 


3$ 


DEC 


R2 


BNE 


1$ 


BR 


5$ 


fMP 


(SP)+,(SP)+ 


ADD 


/(r4.12(SP) 


M0V8 




sue 


*2,12(SP) 



MOV (SP)+.ERRVEC+2 

MOV (SP)+.ERRVEC 

MOV (SP)+.R2 

MOV (SP)*. R1 

MOV (SP)*,RO 

RTS PC 



RETURN HERE 



PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH ERRVEC. ON STACK 

;;PUSH ERRVEC ^2 ON STACK 
SETUP FOR BUS TIMEOUT - 04 TRAP 

R0=8ASE ADDRESS 
R1=CL0CK ADDRESS 
R2=NUMBER OF CLOCK CYCLES 
KW11-P CLOCK?? 
NO! i 

SET COUNTER 
START COUNTER 

GET STATUS 

RDY=1.G0=0?? 
YES. 1 

TIMER DONE?? 
NO!! 

DEC NUPCER OF CYCLES 
CONTINUE IF NOT DONE 

"RDY" DID NOT SET OR "GO" DID NOT RESET 

WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED, 

ADJUST STACK 

MOVE SP TO USER'S CALL 

WRITE ERROR NUMBER 



;;POP STACK INTO ERRVEC*2 
POP STACK INTO ERRVEC 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 
RETURN TO USER 
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1 
2 

4 
5 
6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 036766 
42 
43 
4^ 
45 
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SFO 0166 



036766 
036772 
46 036776 
47 
48 

49 037002 

50 037010 

51 037016 

52 037024 

53 037032 
54 

" 057040 
037042 



55 
56 



57 037046 



062716 
105076 
162716 



01373/ 
0A27Z7 
013737 
042737 
123737 

001415 
062716 
112776 



-000004 
000000 
000004 



001346 
^77770 
001234 
1 77770 
001140 



000004 
000001 



001142 
001142 
001140 
001140 
00"«42 



000000 



.S8TTL EPfiOft CHECK SUBROUTINES 

'.S8TTL PRIMARY ERROR CHECK SUBROUTINE 

THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VAl ID AND 
THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED. THE 
FOLLOWING CHECKS ARE MADE: 

.CORRECT UNIT IS SELECTED. I.E., THE UNIT SELErT BITS OF RMCS2 
(BITS 0-2) EQUAL THE UNIT BEING TESTED; 



.SELECTED UNIT IS AVAILABLE, I.E. 
AND NED (BIT 12 Of RMCS2) IS RESET; 



DVA (BIT n OF RMCSl) IS SET 



.LAST COrWAND WAS COMPLETED, I.E., THE MASS8US CONTROLLER IS 
READY (BIT 7 OF RMCSD AND THE GO BIT IS RESET (BIT 0 OF RMCS1) OR THE 
DRIVE READY BIT (BIT 7 OF RMDS) IS SET. 

.NO PARITY ERROR OCCURRED WHEN READING REMOTE REGISTERS, 

^[nO parity ERROR OCCURRED WHEN WRITING REMOTE REGISTERS, 
I.E., PAR 0, OR, PAR = DPE - 1 

THE SUBROUTINE ASSUMES THAT: 

.STATUS HAS BEEN STORED IN' THE REGISTER INPUT BUFFER. 
IN PARTICULAR. RMCSl , RMCS2 AND RMDS HAVE BEEN STOREr IN THEIR 
CORRESPONDING LOCATIONS OF THE "GET" BUFFER. 

.(SUNIT) CONTAINS THE DRIVE NUMBER 

THE SUBROUTINE IS CALLED AS FOLLOWS: 



(1) 



JSR 

BR 

NOP 

ERROR 

JSR 
'>'>•> 



PC.PRIERR 



pc.acsp)* 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN tRROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



PR I ERR: 



; CLEAR USER'S ERROR CALL 
ADD #4,(SP) 
CLR8 a(SP) 
SUB *4,(SP) 

;REPORT AN ERROR IF THE WRONG UNIT IS SELECTED 



;MOVE (SP) TO ERROR CALL 
; CLEAR ERROR NUMBER 
;MOVE (SP) TO NO ERROR RETURN 



MOV 
BIC 
MOV 
BIC 
CMP8 

BEO 

ADD 
M0V8 



RMCS2I,$BDDAT ;CORRECT UNIT SELECTED?? 
#*CUNTMSK.$BDDAT 

$UNIT,$GDDAT ;GOOD DATA FOR TYPEOUT 
**CUNTMSK.$GDDAT ^ 
SGDDAT.SBDDAT ; COMPARE EXPECTED AND RECEIVED 
; DRIVE NUMBERS 
;YES. I 



n 

#4.(5P) 
*1,a(SP) 



; ERROR 1 
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58 057054 

59 037060 

60 037062 

61 037066 

62 037070 

63 037074 
64 

65 
66 

67 037074 

68 037102 
o9 037104 

70 037112 

71 037120 

72 037126 

73 037132 

74 037140 

75 037146 

76 037150 

77 037156 

78 037164 

79 037172 

80 037200 

81 037204 

82 037206 

83 037212 

84 037214 

85 037216 
86 

87 

88 037216 

89 037224 

90 037226 

91 037234 

92 037242 

93 037250 

94 037256 

95 037262 

96 037270 

97 037274 

98 037276 

99 057302 
TOO 037304 
101 037306 
102 

103 

104 037306 

105 037314 

106 037316 

107 037324 

108 037526 

109 037334 
no 037542 
ni 037350 

112 037354 

113 037362 

114 037366 



1627^6 
004736 
162716 
000240 
0001 37 



032757 
001045 
015757 
052757 
015757 
062716 
112776 
032737 
001414 
013757 
015757 
042757 
112776 
162716 
004756 
162716 
000240 
000575 



052757 
001030 
013737 

052737 
042757 
015757 
062716 
112776 
162716 
004756 
162716 
000240 
000541 



001 556 
004000 
001556 
000004 
000002 
010000 

001546 
001546 
010000 
000005 
000002 

000010 



001336 

000200 
160001 
001556 
000004 
000004 
000002 

000010 



StQ 0169 



000002 
000010 
037610 

004000 001336 



001140 
001140 
001142 

000000 
001346 

001140 
001142 
001140 
000000 



000200 001336 



001140 
001140 
001140 
001142 

000000 



032737 


000001 


00^336 


001431 






032737 


000200 


001350 


001025 






013757 


001556 


001140 


042737 


160001 


001140 


013737 


001556 


001142 


062716 


000004 




112776 


000005 


000000 


162716 


000002 




004736 







IJr 



SUB 
JSR 
SUB 
NOP 
JMP 



#2.(SP) 
PC,a(SP)* 
#10. (SP) 

10$ 



.-REPORT AN ERROR IF THE DEVICE 
.-THE DEVICE IS NONEXISTANT 



.•MOVE SP TO RETURN FOR ERROR 
.•REPORT WRONG UNIT SELECTED 
.•RESTORE <SP) 

;SKIP OTHER CHECKS 



IS NOT AVAILABLE OR IF 



2$: 



5$: 



Q I T 


MT\*iA DMrC 1 T 


.r\cv/irc Ai/A T 1 AQi coo 




OKIC 


j» 


; T t o . 




PIUV 




• cvocrTcn ctatiic 




QIC 

Hi o 








MDV 








ADD 


#4.(SP) 






MOVB 


*2.a(SP) 


.■ERROR »2 




BIT 


*NED.RMCS2I 


;WAS NED SET?? 




BEO 


2S 


;N0! . 




MOV 


RMCS2I.$GDDAT 


.•EXPECTED STATUS 




MOV 


RMCS2J.$BDDAT 


.•RECEIVED STATUS 




BiC 


#NED.$GDDAT 






M0V8 


#5.a(SP) 


;YES - CHANGE ERROR 


NUMBER 


sue 


#2.(SP) 


.•MOVE SP TO RETURN 


FOR ERROR 


JSR 


PC.a'(SP) + 


.•REPORT DEVICE NOT 


AVAILABLE 


sue 


*10.(SP) 


.•RESTORE (SP) 




NOP 








BR 


10$ 


;SKIP OTHER CHECKS 





.•REPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY 



BIT 


#RDY.RMCS1I 


.•CONTROLLER READY?? 




BNE 


7$ 


•YES ' ' 




MOV 


RMCS1I,$GDDAT 


•EXPECTED STATUS 




BIS 


*RDY,$GDDAT 






BIC 


#SC!TRE!MCPE; 


GO.$GDDAT 




MOV 


RMCS1I,$8DDAT 


.•RECEIVED STATUS 




ADD 


#4.(SP) 






M0V8 


#4,a(SP) 


.•ERROR #4 




f sue 


#2.(SP) 


.-MOVE SP TO RETURN FOR 


ERROR 


JSR 


pc.a(sp)+ 


.•REPORT CONTROLLER NOT 


READY 


sue 


#10. (SP) 


.•RESTORE (SP) 




NOP 








BR 


10$ 


.-SKIP OTHER CHECKS 





7$: 

.•REPORT AN ERROR IF 60 IS NOT ZERO AND DRY IS NOT ONE 



BIT 
BEO 
BIT 
BNE 
MOV 
BIC 
MOV 
ADD 

Move 
sue 

JSR 



#G0.RMCS1 I 
8$ 

#DRY.RMDSI 
8$ 

RMCS1I,$G0DAT 



;G0 RESET?? 
;YES! ! 
.•DRIVE READY?? 
■ YES ' 

•EXPECTED STATUS 



#SC. TREIMCPEiGO.$GDDAT 
RMCS1I.$BDDAT /RECEIVED STATUS 



#4. (SP) 
#5.a(SP) 
#2.(SP) 

pc.a(SP)* 



.•ERROR #5 

.•MOVE SP TO RETURN FOR ERROR 
.•REPORT DRWE NOT READY 



MA 



"5 
''t 
"I? 
1*8 

12' 
122 
•25 
12A 
125 
'26 
127 
'28 
'29 
150 
151 
152 
'55 
154 
MS 
156 
'17 
138 
159 
UO 
K1 
K2 
K5 

U5 
Kto 
U7 
H8 
U9 
^50 
^51 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
^65 



057370 
057374 

037376 
037400 



057462 
037470 
037472 
037500 
037502 
037510 
037512 
037514 
037520 
037524 
037526 
037530 
037532 
037554 
057556 
037540 
037546 
037554 
037562 
037566 
037574 
037600 
037602 
037606 
03/^610 
037614 
037616 



1627^6 
00024C 
000504 



032737 
001451 
032737 
001045 
052/57 
001415 
010046 
012700 
1227^0 
001002 
012600 
000451 
105720 
100371 
012600 
013737 
042737 
013737 
062716 
112776 
16<-'716 
00-736 
162716 
000240 
062716 
000240 
000207 



000010 
000010 

000010 



001555 
000014 



001352 
000010 
001352 
000004 
000050 
000002 

000010 

000010 



8S: 



sje 

NOP 



057400 


032737 


02000c 


001336 


057406 


001425 






057410 


015757 


001336 


001140 


057416 


042757 


160001 


001140 


057424 


015737 


001336 


001142 


057452 


062716 


000004 




057436 


112776 


000013 


OOOOOC 


037444 


162716 


00000? 




057450 


004756 






057452 


162716 


000010 




057456 


000240 






057460 


000453 






C 37462 









001352 
001400 

00' 426 



001U0 
001140 
001142 

000000 



.•REPORT 
.-PARITY 



9U: 



92$: 



93$: 



B K 

" Pt3f 2*" 



SP 



HQ 01 7U 



.Rf STORE (SP' 



'0$ 



AN E;)R0R If THE RH CONTROLLER DETECTED BAD 
ON THE nASSauS CONTROL BUS 



9$: 
.-REPORT 



BIT 
BEO 
MOV 

BIC 
MOV 
ADD 
M0V8 

ste 

JSR 
503 
NOP 
BR 



•WCPE.RWCS11 
9$ 

R«CS1I.$GDDAT 



*sc.'tre:mcpe.go.$gddat 



RMCSII.tBDDAT 
#4,(SP) 

#i3.a(SP) 

#2.(SP) 
PC.i(SP)* 
•10, (SP) 

10$ 



AN ERROR 
BIT 
BEO 
BIT 
BNE 
BIT 
BEO 
MOV 
MOV 
CMPB 
BNE 
MOV 
BR 
TST8 
BPL 
MOV 
MOV 
BIC 
MOV 
ADD 
M0V8 

sue 

JSR 

sue 

NOP 
ADD 
NOP 
RTS 



IF DETECTED A 
#PAR.RMER1I 
11$ 

#DPE.RMEft2I 
11$ 

•PAR.RMERIO 
93$ 

RO.-(SP) 
*PUTINX.RO 
#RM£R1.(R0) 
92$ 

(SP)^.RO 
11$ 
(ROJ* 
91$ 

(SP)*.RO 
RMER1I.$GDDAT 
#PAR,$GODAT 
RMERII.SBDDAT 
#4,(SP) 
*50.a(SP) 
»2.(SP) 

pc.a(SP)* 

#10. (SP) 



#'0.(SP) 

PC 



PARITY ERROR 
NO ' ' 

EXPECTED STATUS 



RECEIVED STATUS 

MOVE STACK TO USER'S ERROR 

ERROR '13 

MOVE SP TO RETURN ^OR ERROR 
REPORT ERROR VIA USER 
RESTORE STACK 



CONTROL BUS PARITY ERROR 
WAS THERE A PARITY ERROR?? 
NOr. 

WAS IT THE CC»»*TROL BUS?? 
NOT SURE.'! 
DID TEST SET PAR ?? 
NO. .' 

;PUSH RO ON STACK 
RO POINTS TO INDEX TABLE 
SEARCH TABLE FOR RMER1 

;POP STACK INTO RO 
PAR WAS SET BY TEST 
END OF TABLE?? 
NO! ! 

;POP STACK INTO RO 
EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE THE ERROR NLfBER 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR 
MOVE SP TO NO ERROR RETURN 

RETURN TO ERROR 
RETURN TO NO ERROR 
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7 
8 
9 

10 

n 
12 
T3 
'4 
15 
16 
17 
18 
19 
20 
21 
22 
23 

2A 037620 

25 

26 

27 

28 037620 

29 037626 

30 037634 

31 037640 
3*? 037644 
33 

34 
35 
36 
37 

38 037650 

39 037656 

40 037660 

41 037666 

42 037674 

43 037702 

44 037/06 

45 037714 

46 037720 

47 037722 

48 037726 
49 

50 

51 037730 

52 037736 

53 037740 

54 037746 

55 037754 

56 037760 

57 037764 



013737 
04273/ 
062716 
105076 
162716 



032737 
001024 
013737 
042737 
012737 
062716 
112776 
162716 
004 736 
162716 
000240 



032737 
001423 
013737 
042737 
005057 
062716 
112776 



001412 
1 77701 
000004 
000000 
000004 



001350 
177577 
000200 
000004 
000010 
000002 

000010 



001336 
1 17776 
001140 
000004 
OOOUl 1 



043454 
043454 



000200 001 350 



001142 
001142 
001140 

000000 



000001 001 336 



001142 
001142 



000000 



,S8TTL SECONDARr ERROR CHECK SLftROuTINE 

THE ERROR CHECK SlflROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 
SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENDS. THESE 
ERRORS ARE DEEMED SECONDARY IN THAT THEV ARE NOT NECESSARILY 
ASSOCIATED WITH THE OPERATION BEING PERFORMED. 

WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR 
NLWBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS 
TO THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE 
MAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS »0R 
OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE 
RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL. 



CALL: 



JSR 

BR 

NOP 

ERROR 

JSR 



PC.SECERR 



pc,a(SP)* 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NLMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



.NOTE: THE SLBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT 
.-INPUT REGISTER BUFFER. 

SECERR: 

•STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER 

MOV RMCS10.515S ; STORE FUNCTION CODE 

BIC #*C<F0:F1 .F2'F3.F4>,515$ 

ADD *4.(SP) .-MOVE (SP) TO ERROR CALL 

CLRB a(SP) .CLEAR ERROR NUMBER 

SUB #4.(SP) ;MOVE (SP) TO NO ERROR RETURN 



.•CHECK SECONDARY ERRORS COMTWN TO ALL COMMANDS 
; REPORT EAROR IF DRIVE IS NOT READY. I.E.. IF DRY 



THE 



BIT f DRV. RMOS I 

BNE 5$ 

MOV RMDSI,$BDDAT 

BIC #*CDRy.$8DDAT 

MOV #DRV.$GDDAT 

ADD #4,(SP) 

M0V8 #10,a<SP) 

SUB #2.(SP) 

JSR PC,a(SP)* 

SLB #10. (SP) 
NOP 



.•DRIVE READY?-' 
• YES ' ' 
•BAD DATA FOR TYPEOUT 

;GOOD DATA FOR TYPEOUT 

.ERROR NUMBER 

.-MOVE SP TO RETURN FOR ERROR 
.•REPORT NOT READY 

.-RESTORE (SP) TO ERROR N 



.■REPORT ERROR IF GO BIT IS NOT RESET 

5$: BIT *G0.RMCS1I ;G0 BIT RESET?? 

8EQ 10$ ;YES:. 

MOV RMCSII.SBDDAT ;BAD DATA FOR TYPEOUT 

BIC #*CG0.$8DDAT 

CLR $GDDAT ;GOOD DATA fqr TYPEOUT 

ADD #4.(SP) 

M0V8 #n,a(SP) ; ERROR NUMBER 
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58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
o9 
70 
71 
72 
71 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
<J5 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 

ni 

112 
113 
^•4 



037772 
037776 
040000 
040004 



040006 
040014 
040022 
040030 
040036 
040040 
0-.0044 
040052 
040056 
040060 
040064 
040066 



040066 
04007: 
040ry6 

04rioo 

040104 
040106 
040114 
040122 
040130 
040136 
040140 
040144 
040152 
0401 56 
040160 



040164 
0401 70 
0401 74 
040200 
040202 
040210 
040212 
040220 
040222 
040230 
040236 
040244 
040252 
040254 
040260 
040266 
040272 



1627-6 000002 
004736 

162716 000010 
000240 



013737 
042737 
013737 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 



00503^ 
005737 
001003 
005737 
001403 
052737 
013737 
042737 
02373<^ 
001412 
062716 
112776 
162716 
004736 
162716 



005037 
013746 
042726 
001010 
032737 
001407 
022737 
103003 
052737 
013737 
042737 
023737 
001413 
062716 
112776 
162716 
004736 



001336 
177701 
043454 
001142 

000004 
000012 
000002 

000010 



001140 
001352 

001400 

040000 
001350 
137777 
001140 

000004 
000047 
000002 

000010 



040000 
001 336 
137777 
001140 

000004 
000014 
000002 



001142 
001142 
001140 
001140 



000000 



001140 
001142 
001142 
001142 



000000 



001140 
001346 
000377 

040000 001 350 
000030 043454 



001140 
001142 
001142 
001142 



000000 



sue 

JSR 
SJ9 
NOP 



»2.(SP) 

pc.a(SP)* 

•10. (SP) 



;RFPORT ERROR IF FUNCTION CODE 

10$: MOV RMCS11.$8DDAT 

BIC #-C76,$8DDAT 

MOV 515$,$GDDAT 

CMP S8DDAT.$GDDAT 

BEQ 15S 

ADD #4.(SP) 

M0V8 *12.S(SP) 

SUB *2.(SP) 

JSR PC.aCSP)* 

sue *io.(SP) 

NOP 



;M0VE SP TO RETURN FC« ERROR 
.•REPORT DEVlCf NOT AVAllABlE 
.RESTORE (SP) 



READ FROM DEVICE IS NOT CORRECT 
;1S FUNCTION CODE CORRECT?? 

.-EXPECTED FUNCTION CODF 

;VES. . 

.•ERROR NUMBER 

.•MOVE SP TO RETURN FOR ERROR 
.•REPORT WRONG FUNCTION CODE 
jRESTORE (SP) 



15$: 

REPORT AN ERROR IF COMPOSITE 
ERRORS ARE SET. OR IF COMPOS I 
OTHER ERRORS ARE SET 



CLR 
TST 
BNE 
TST 
BEQ 

20$: BIS 
25$: MOV 

BIC 

CMP 

BEQ 

ADD 

M0V8 

sue 

JSR 
SUB 

REPORT AN ERROR 
TRE IS SET, OR 
SET TRE IS SET 



30$: 



35$: 
40$: 



CLR 
MOV 

BIC 
BNE 

8J r 

BEQ 

CMP 

BHIS 

BIS 

MOV 

BIC 

CMP 

BEO 

ADD 

MO VP 

sue 

JSR 



$GDDAT 
RMER1I 
20$ 
RMER2I 
25$ 

*ERR.$GDDAT 
RMDSI.$BDDAT 
#*CERR.$8DDAT 
$GDDAT.$BDDAT 
30$ 

*4,(SP) 
*47.a(SP) 
#2.(SP) 

pc.acsp)* 
*io.(sp: 

IF "TRE" IS 
IF TRE IS NOT 

$GDDAT 
RMCS2J.-(SP) 
#377. (SP)* 
35$ 

*ERR.RMDS1 
40$ 

•SEARCH. 515$ 
40$ 

•TRE.$GDDAT 

RMCS11,$8DDAT 

•-rTRE.$BDDAT 

$GDDAT.$BDDAT 

45$ 

•4,(SP) 
•14.a(SP) 

•2.(SP) 

pc,a(SP)* 



ERROR IS SET AND NO OTHER 
TE ERROR IS NOT SET AND 



EXPECT "ERR" = 0 
IS RMERl =07? 
NO. .' 

IS RMERZ = 07? 

yes; : 

"err" sould be se^ 



IS "ERR" OK?? 
VES: ! 

MOVE SP TO USER'S ERROR 
WRITE ERROR NIWBER 
MOVE SP TO ERROR RETURN 
REPORT INVALID COMP ERROR 



SET AND NONE OF THE BITS WHICH SET 
SET AND ONE OR MORE BITS WHICH 



EXPECT "TRE" = 0 

WAS DLT. WCE. UPE. NED. NEM 

PGE. MXF OR MDPE SET 

YES I ! 

WAS EXCEPTION RECEIVED?? 
NO! I 

WAS DATA TRANSFERRED?? 

NO I .' 

"TRE" SHOULD BE SET 
BAD DATA FOR TYPE OUT 

IS "TRE" OK?? 
YESl 1 

MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT TRE ERROR 
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4-APR-81 '1 
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115 


040274 


162716 


000010 




M6 


040300 


000240 






117 


040502 








re 




















120 










121 










122 










^25 










124 










125 










'26 










127 










128 


040302 


010046 






129 


040304 


01 3700 


043454 




130 


040310 


016037 


064566 


043446 


131 


040316 


012600 






132 










133 










'34 










'35 


040320 


013737 


043446 


001140 


^36 


040326 


032737 


040000 


001350 


157 


040334 


001403 






158 


040336 


052737 


100000 


001140 


139 


040344 


042737 


077777 


001140 


140 


040352 


013737 


001350 


001142 


'41 


040360 


042737 


077777 


001142 


142 


040366 


023737 


001 KO 


001142 


143 


040374 


001413 






144 


040376 


062716 


000004 




^45 


040402 


112776 
162716 


000006 


000000 




040410 


000002 




147 


040414 


004736 






U8 


040416 


162716 


000010 




149 


040422 


000240 






'50 


040424 








151 










152 










15^ 










154 


040424 


013737 


043446 


001140 


155 


040432 


042737 


177776 


001140 


156 


C40440 


013737 


001352 


001142 


157 


040446 


042737 


177776 


001142 


158 


040454 


023737 


001140 


001142 


159 


040462 


001412 






160 


040464 


062716 


000004 




161 


040470 


112776 


000254 


000000 


162 


040476 


162716 


000002 




163 


040502 


004736 






164 


040504 


162716 


000010 




'65 


040510 


005037 


001140 




166 










167 










'68 


040514 


013746 


043446 




169 


J40520 


052716 


\Z7777 




TO 


040524 


013737 


001 346 


oor4? 


17' 


040532 


042657 


001142 





sue 

NOP 



#10. (SP) 



.-RESTORE (SP' 



USING THE FUNCTION CODE TABLE. CHECk FOR THE FOLLOWING ERRORS: 

.STATUS BITS NOT SET THAT SHOULD BE SET. E.G., ATA AND IlF 
.STATUS BITS SET THAT SHOULD WT BE SET, E.G., WCE AND HfH 

NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER 

STATUS CONDITIONS. E.G., WRITE LOCK ERROR SHOULD ONLY BE SET IF 

WRITE LOCK IS ON AND THE COMMAND IS A WRITE. 

.-GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE 



MOV RO,-(SP) 

MOV 515$, RO 

MOV FNCDTB(RO) ,500$ 

MOV (SP)*.RO 



.-PUSH RO ON STACK 
GET FUNCTION CODE 
STORE ENTRv 
;POP STACK INTO RO 



50$: 



.•REPORT AN ERROR IF AN UNEXPEC 

;ATA IS NOT SET AND SHOULD BE 

MOV 500$.$GDDAT 

BIT #ERR.RMDSI 

BEQ 50$ 

BIS #ATA.$GDDAT 

BIC #*CATA,$GDDAT 

MOV RMDSI,$BDDAT 

BIC ^•CATA,$8DDAT 

CMP $GDDAT.$6DDAT 

BEQ 55$ 

ADD #4.(SP) 

M0V8 *6.a(SP) 

sue *2.(SP) 

jsR pc.a(sp)* 

SUB #10, (SP) 
NOP 

55$: 



TED ATTENTION OCCURRED OR IF 
SET. 

GET EXPECTED ATA STATUS 
IS COMPOSITE ERROR SET ?? 
NO ! . 

EXPECT AN ATTENTION 
STRIP DONT CARES 
GET RECEIVED ATA 
STRIP DONT CARES 
IS ATA OK ?? 
YES !.' 

MOVE SP TO USERS ERROR CALL 
LOAD ERROR # IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR 
RESTORE SP 



.•REPORT ERROR IF ILF IS INCORRECT. I.E., IF ILF DOES NOT COMPARE 
.■WITH FUNCTION CODE TABLE 



60$: 



MOV 500$,$GDDAT 

BIC #*CJLF,$GDDAr 

MOV RMERU.JBDDAT 

BIC #*CILF,$BDDAT 

CMP $GDDAT,$8DDAT 

BEO 60$ 

ADD #4,(SP) 

M0V8 #254. a (SP) 

SUB #2,(SP) 

JSR PCafSP)* 

SUB #10, (SP) 

CLR $6DDAT 



,-6ET EXPECTED ILF 
; CLEAR ALL OTHER BITS 
;GEr RECEIVED ILF 
.CLEAR ALL OTHER BITS 
.-IS ILF OK ?? 
;YES 1! 

.•MOVE SP TO USERS ERROR CALL 
.•WRITE ERROR NUMBER IN CALL 
.•MOVE SP TO ERROR RETURN 
.•REPORT ERROR AND RETURN 
.•MOVE SP TO NO ERROR 
.-CLEAR EXPECTED STATUS 



.•REPORT AN ERROR IF WCE IS SET AND SHOULD NOT BP SET 



MOV 500$. -(SP) 

BIS #*CWCE,(SP) 

MOV RMCS2I,$8DDAT 

BIC (SP)».$BDDAT 



;GET WCE STATUS ENABLE 
.-SET ALL OTHER BITS 
.•RECEIVED STATUS 
.•CLEAR WCE IF ENABLED 



;iMNBO KTNi. TST 2 MACRO 

F 'ADARv ERRW CwfCK StJ8«0UM»* 



V04.00 <.-APR-81 n:<.3:35 



f 

PAGE 



U 



S£0 0174 



'7? 

VA 
'75 
V6 

177 

179 

'SO 
'81 
•32 
'35 
184 
'85 
'86 
187 
188 
'89 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
20? 
205 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2U 
215 
216 
217 
21B 
219 
220 
221 
222 
225 
224 
225 

:26 

2.V 

:28 



040556 
040540 
040544 
040552 
040556 
040560 
040564 



040564 
040570 
040574 
040602 
040606 
040610 
040614 
040622 
040626 
040650 
C40654 



040654 
040640 
040646 
040650 
040654 
040660 
040666 
040672 
040674 
040700 
040706 
040712 
040714 
040720 



040720 
040724 
040732 
040734 

040742 
040744 

04075C 
040756 
040762 



0014^2 
062716 
112776 
162716 
004736 
162716 



015746 
052716 
013757 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



015746 
052757 
001402 
042716 
052716 
013757 
042657 
001412 
062716 
112776 
162716 
004756 
162716 



C0C004 
000026 
000002 

000010 



045446 
157777 
001352 
001142 

000004 
000164 
000002 

000010 



045446 
000100 

010000 
167777 

001400 
001142 

000004 
000165 
000002 

000010 



000000 



90$: 



6EQ 

ADD 

M0V8 

SUB 

JSR 

SUB 



90$ 

#4.(SP) 

#26.a(SP) 

#2.(SP) 

pc,a(SP)* 

#10. (SP) 



BRANCH IF WCE OtC 
WVE SP TO USER'S ERROR 
WRITE ERROR NUMBER 
(10VE SP TO ERROR RE'uRN 
REPORT ERROR 
RESTORE ERROR 



CALL 



.•REPORT ERROR IF OPl STATUS IS SET AND SHOULD NOT 8£ SET 



001142 
000000 



100$: 

.•REPORT 
.•SET AND 



nov 

BIS 
MOV 
61 C 
BEQ 
ADD 
M0V8 
SUB 
JSR 
SUB 



500$. -(SP) 
#*C0PI.(SP) 
RMER1I.$BDDAT 
(SP)*.$BDDAT 
100$ 
#4,(SP) 
*164.a(SP) 
#2.(SP) 

pc.a(SP)* 

#10, (SP) 



GET OPI STATUS ENABLE 
SET ALL OTHER BITS 
GET RECEIVED STATUS 
CLEAR OPI IF ENABLED 
BRANCH IF OPI OK 
MOVE SP TO USER'S ERROR CAL. 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR 
RESTORE SP 



ERROR 
VV IS 



IF IVC IS SET 
NOT RESET 



AND IS NOT ENABLED OR IF IVC IS 



001550 
001142 

000000 



105$: 



MOV 


500$, -(SP) 


GET JVC STATUS ENABLE 


BIT 


#VV.RMDSI 


•IS VV SET 


BEQ 


105$ 


•NO :i 


BIC 


#IVC,(SP) 


■YES - IVC SHOULD BE 0 


BIS 


#*CIVC.{SP) 


•SET ALL OTHER BITS 


MOV 


RMER2I.$8DDAT 


•GET RECEIVED STATUS 


BIC 


(SP) ►.$BDDAT 


•Clear ivc if enabied 


BEO 


110$ 


•BRANCH IF IVC OK 


ADD 


#4.(SP) 


•MOVE SP TC USERS ERROR CALL 


M0V6 


#165.a{SP) 


;WRirE ERROR NUMBER IN CALL 


sue 


#2.{SP) 


•MOVE SP TO ERROR RETURN 


JSR 


pc,a(sp)* 


•REPORT ERROR 


sue 


#10. (SP) 


; RE STORE SP TO NO ERROR 



110$: 

BIT 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
ALL WRITE ERRORS, I.E., 
RMER1 - WLE. WCF 
RMER2 - DPE 
RMCS2 - UPE. 

EACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN the 
WRITE ERROR ENABLE BIT IS RESET. 

.•REPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED. OR IF 
;THE DRIVE IS NOT WRITE PROTECTED 

;ASSUME WRITE ERRORS ENABLED 
;ARE WRITE ERRORS ENABLED 

;m : ! 

IS THE DRIVE WRITE PROTECTED ?? 

YES !.' 

;RESET WLE ENABLE 
;GET RECEIVED STATUS 
; CLEAR WLE IF ENABLED 
;BRANrH IF WLE OK 



012746 


U7777 






MOV 


#-1.-(5P) 


052757 


004000 


045446 




BIT 


#WLE.500$ 


001404 








BEQ 


115$ 


052737 


004000 


001550 




BIT 


#WRL .RMDSI 


001002 








8NE 


120$ 


042716 


004000 




"15$: 


BIC 


#WLE,(SP) 


013737 


001 552 


00' 142 


120$: 


MOV 


RMER1I,$BDDAT 


042637 

0C1412 


001142 






BIC 


{SP)*.$8DDAT 
'25$ 








BEQ 



jNDARt tRROR ChCCH SUBROuTIftf 



G 

:<i?:^? PAGE 



U 



^50 
<^51 
?32 
2-33 

?35 

^% 

?37 

^58 

259 

2hO 

241 

2A2 

245 

244 

245 

246 

2/. 7 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

?63 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

c'81 

282 

283 

284 

285 



040764 
040770 
040776 
041002 
041004 
041010 



041010 
041014 
041022 
041024 
041030 
041036 
041042 
041044 
041050 
041056 
041062 
C41064 
041070 



041070 
041074 
041102 
041104 
041110 
041116 
041122 
041124 
041130 
041136 
041142 
041144 
041150 



041150 
041154 
041162 
041164 
041170 
041176 
041202 
041204 
041210 
041216 
041222 
041224 
041230 



041230 
041234 
041240 
041246 



0627-6 
112776 
162716 
004736 
162716 



012746 
032737 
001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
1627^6 



CI 2746 
052737 
001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



012746 
032737 
001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



0 1 3746 
052716 
013^37 
042657 



000004 
&00023 
000002 

000010 



1 77777 
004000 

000040 
001352 
001142 

000004 
000025 
000002 

0C0010 



U7777 
004000 

000010 
001400 
001142 

000004 
000040 
000002 

000010 



\77777 
004000 

020000 
001 546 
001142 

000004 
000C24 
000002 

000010 



043446 
\7^777 
001352 
001142 



000000 



1251: 



ADD 

wove 

SUB 
SUB 



#4.(SP) 

*25.a(SP) 

#2.(SP) 

PC.B(SP)» 

#10.(SP) 



MOVE SP TO US?RS fRROft ^Ai. 
WRITE E«R0« NUMBER \H (All 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
RESTORE SP 10 NO PRROR 



.-REPORT ERROR IF uCf IS SET AND WRITE ERRORS ARE NOT ENABLED 



045446 

001142 

cooboo 



130$: 



135$: 



MOV #-1.-(SP) 

BIT *W.E.500S 

BNE 1 30$ 

SIC #WCF.(SP) 

MOV RMER1I.$8DDAT 

BIC (SP)*.$8DDAT 

BEQ 135$ 

ADD #4.(SP) 

M0V8 #25,a(SP) 

sue #2,{SP) 

jSR PC.S(SP)* 

sue *io.(SP) 



ASSUME WRITE ERRORS ENABLED 
ARE WRITE ERRORS ENABLED '? 

VES 

DISABLE WCF ERROR 

GET RECEIVED STATUS 

RESET WCF IF ENABLED 

BRANCH IF WCF OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER IN CALu 

MOVE SP TO ERROR RETURN 

REPORT ERROR 

RESTORE SP TO NO ERROR 



043446 

001142 

000000 



140$: 



ERROR 


IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED 


MOV 


*-1.-(SP) 


ASSUME WRITE ERRORS ARE ENABLED 


BIT 


#WLE.500$ 


ARE WRITF ERRORS ENABLrD ?? 


BNE 


140$ 


VES ! . 


BIC 


*DPE,(SP) 
RMER2I.$8DDAT 


•RESET DPE ENABLE 


MOV 


•GET RECEIVED STATUS 


BIC 


(SP)*.$BDDAT 


•RESET DPE IF ENABLED 


BEO 


145$ 


BRANCH IF DPE OK 


ADD 


#4.(SP) 


MOVE SP TO USERS ERROR CALL 


Move 


#40,S(SP) 


WRITE ERROR NUMBER IN CALL 


sue 


#2.(SP) 


•MOVE SP TO ERROR RETURN 


JSR 


PC.SfSP)* 


•REPORT ERROR 


Sl/3 


#10. (SP) 


•RESTORE SP TO NO ERROR 



043446 

001142 

000000 



145$: 

.•REPORT m ERROR IF UPE IS SET 

MOV #-1.-(SP) 

BIT #WLE.500$ 

BNE 1 50$ 

BIC *UPE,(SP) 

MOV RMCS2I.$8DDAT 

BJC (SP)+,$BDDAT 

BEO 155$ 

ADD #4,(SP) 

MOVB #24.afSP) 

sue *2.(SP) 

JSR PC.iiSP)* 

SUB #10. (SP) 



1S0$: 



'55$: 



SET 



00114? 



; REPORT AN ERROR IF lAE IS 
MOV 500$, -(SP) 
BIS #-CIAE.fSP) 
MOV R/««R11,$eDDAT 
BIf (SP)*, $B0DAT 



AND WRITE ERRORS ARE NOT ENABLED 
ASSUME WRITE ERRORS ARE ENABLED 
ARE WRITE ERRORS ENABLED 

VES : 

DISABLE UPE ERROR 
GET RECEIVED STATUS 
RESET OPE IF ENABLED 
BRANCH IF UPE OK 
MOVE SP TO USERS ERROR CAL. 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



AND IS NOT ENABLED 
;GET lAE ENABLE 
;SET ALL OTHER BITS 
;GET RECEIVED STATjS 
;CLEAR lAF IF ENABLE'. 



ONDARv ERROi CHECK SUBROUTISE 



H U 



?86 

^8? 
?ft8 

?89 

20G 

291 

?92 

^93 

?9<. 

^95 

?96 

?97 

298 

?99 

500 

301 

502 

303 

304 

30S 

306 

307 

308 

309 

310 

511 

312 

51? 

5K 

515 

316 

51/ 

518 

519 

320 

321 

322 

323 

32A 

525 

326 

327 

328 

329 

330 

531 

33? 

535 

33A 

535 

336 

337 

538 

339 

5«.0 

5A1 

^2 



041252 
0412W 
0^.1260 
041266 
041272 
041274 
041300 



041300 
041304 
041312 
041314 
041320 
041326 
041332 
041334 
041340 
041346 
041352 
041354 
041360 



041360 
041364 
041372 
041574 
041400 
04 1406 
041412 
041414 
041420 
041426 
041452 
041434 
041440 



04U40 
G4U44 
04U52 



0014'2 
062716 
112776 
162716 
004736 
162716 



C00004 
000166 
000002 

000010 



000000 



160$: 



BEQ 
ADO 

*tove 

SU8 
JSR 
509 



160$ 

«4.(SP) 

#166,i(SP) 

#2.(SP) 

PC-S(SP)» 

#10. (SP) 



BRANCH IF lAE IS OK 

'WVE SP TO USERS ERROR CAU 

WRITE ERROR NUWER 

«OVE SP TO ERROR RETURN 

REPORT ERROR A^d> RETURN 

MOVE SP TO NO ERROR 



012746 
032737 
001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004756 
162716 



012746 
052737 
001002 



8IT 09 (A06) OF THE KWCTION CODE TABLE IS THE ENABLING BH »0R 
ALL READ/yRJTE ERRORS. I.E.. 
RMCS1 - TRE 
RMCS2 - DLT.NEM.MXF 
RMDS - LBT 
RMERI - AOE 

NOTE: 

L8T IS NOT CHECKED BECAUSE IT ONLV RESETS WHEN THE DESIRED 
CYLINDER REGISTER IS WRITTEN 
NOTE: 

AOE CANNOT BE SET IF LBT IS NOT ALSO SET 

NOTE : 

TRE IS CHECKED AS A FLWCTJON Of OTHER ERROR CONDI TONS ABOVE 



;f<EPORT AN ERROR IF DLT IS SET 



CI 2746 


y77777 






MOV 


#-1.-(SP) 


ASSUME ERRORS ARE ENABLED 


032757 


001000 


043446 




BIT 


#A0E . 500$ 


ARE ERRORS ENABLED ?? 


001002 








BNE 


165$ 


rES !. 


042716 


100000 






BIC 


#DLT.(SP) 


RESET DLT ENABLE 


015737 


001346 


00114? 


165$: 


MOV 


RMCS2I.$BDDAT 


■GET RECEIVED STATUS 


042637 


001 K2 






BIC 


(SP)*.$BDDAT 


CLEAR DLT IF ENABLED 


001412 








BEQ 


170$ 


BRANCH IF DLT IS OK 


U62716 


000004 






ADD 


#4.(SP) 


•MOVE SP TO USERS ERROR CA..L 


12776 


000032 


000000 




M0V8 


*32.a{SP) 


•WRITE ERROR NUMBER IN CALL 


162716 


000002 






SUB 


*2.(SP) 


•MOVE SP TO ERROR RETURN 


004736 








JSR 


Pc.a(SP)* 


■REPORT ERROR AND RETURN 


162716 


000010 






SUB 


#10. (SP.^ 


•MOVE SP TO NO ERROR 








170$: 







1 77777 
001000 

004000 
001 346 
001142 

000004 
000167 
000002 

000010 



1 77777 
001000 



043446 
001142 

000000 



175$: 



; REPORT ERROR IF NEM IS SET AND 

MOV #-1.-(SP) 

BP #AOE.500$ 

BNE 175$ 

BIC ♦NEM.(SP) 

MOV RMCS2I.$BDDAT 

BIC (SP)*,$BDDAT 

BEQ 180$ 

ADD #4.(SP) 

MOVB #167.a(SP) 

SUB #2.(SP) 

^SR pc.a(sp)* 

SUB #10. (SP) 

'80$: 



READ/WRITE ERRORS ARE NOT ENABLED 
ASSUME ERRORS ARE ENABLED 
ARE ERRORS ENABLED ?? 

YES .': 

DISABLE NEM 

GET RECEIVED STATUS 

CLEAR NEM IF ENABLED 

BRANCH IF NEM IS OK 

MOVE SP TO USERS ERROR CALl 

WRITE ERROR NUMBER IN CALL 

MOVE SP TO ERROR RETURN 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 



;REPORT ERROR IF MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 



0434^6 



MOV 
BIT 
BNE 



#-1.-(SP) 
#AOE . 500$ 
'85$ 



ASSUME ERRORS ARE ENABLED 
ARE DATA ERRORS ENABLED ?? 
VES . 



^M05/</2 fCTNL TST 2 »1A:»0 <G«..w. 
ADARv ERROR C»€CK SUBROUTINE 



54? 04H54 


042716 


001000 




544 041460 


013737 


C01346 

AA4 4 / S 

001 ;42 


AA4 4 / t 

001142 


545 041466 


042637 




346 041472 


001412 






?47 04^474 


062716 


AAA A A / 

000004 




548 041500 


4 4 ^^^^ 

1 12776 


000035 


A A AAA A 

000000 


349 041506 


162716 


/\y\A AA*^ 

000002 




350 04151? 


004736 






351 041514 


162716 


000010 




55t 041520 








353 








3^4 








355 041520 


/\4 "» ^ / Z 

012746 


\77777 




356 041524 


052737 


t\/\ 4 AAA 

001000 


Ay Ty y z 

04 5446 


557 041532 


001404 






358 041554 


032757 


AA *)A AA 

002000 


AA1 TCA 

001 350 


359 041542 


AAI AA^ 

001002 






360 041544 


042716 


AA1 AAA 

001000 




1 -1 c c n 

56 1 OA 1 550 


013757 


AA1 IC T 

001 55? 


A A 1 1 y "5 

001 14<f 


362 04 1556 


/\y '^z T"> 

042637 


A^ 4 1 y ^ 

00114? 




363 041562 


Art 4 y 1 T 

00141? 






564 \jH\btH 


Ai "^71 Z. 

06^/^16 


AAAAAy 

000004 




565 041 5/^0 


1 Mffb 


AAAA^A 

OOOOcO 


AAAAAn 

OOOOUU 


566 0Ai576 


1 z. z. 
16c '16 


AAAAAY 

OOOOOc 




56/^ 0<»i60^ 


AA/ 

004/^56 






iz. o Ay i X A/ 

56o 041604 


1 z. '^'71 z. 

l6?716 


AAA A 1 A 

000010 




369 04i6i0 








570 








371 








372 








573 








5^<» 








575 








Ay 1 1 A 
V 041 610 








\j5cf5f 


AATAAA 
\J\JC\J\J\J 


AA1 17A 

001 5f\) 


578 041616 


AA1 /AT 

001403 






')79 041620 


Qt*2f57 


AAA 1AA 

000?00 


Ay Ty y ^ 

045446 


580 041626 








581 








38? 








585 0416?6 


A 1 T 7 y z. 

0 i?746 


\ f f f if 




584 04 163? 


05?737 


000?00 


A/ / ^ 

04 5440 


70C A/ 1 z y 

585 041640 


AA1 AA T 

00100? 






586 04164^ 


Ay "^7 1 z. 

04^/^16 


AAAy AA 

0UU4UU 




70 7 Ay 1 z.y z. 

587 041646 


A1 T717 

01 5^5/ 


AA 1 7 C ^ 

001 55? 


AA1 1 / "5 

UOl 14^ 


TOO Ay 4z.cy 

388 041654 


Ay "^z. 1 7 


AA1 1 / ^ 

001 14? 




TOO A/ I^XA 

58V 041660 


AA1 y 1 0 

00141^: 






#AA Ay i ^ 

590 04166^ 


AZ. "^71 Z. 

06^/^16 


AAAAA/ 

000004 




Ay 1 z z. z. 

5Vl 041666 


1 \CfrO 


aa/\atc 
000055 


AAAAAA 


TQT Ay 1 ^ "7/ 

'9<f 0416^4 


1 "571 X 

16^^16 


AAHAA^ 

OOUOOc 




mi f\J 1 7AA 

595 041700 


AA/ 7T^ 

004 56 






594 04 1 fOd 


16?716 


A AAA 1 A 

000010 












396 








397 








598 041706 


012746 


]77777 




?99 04 T12 


032757 


000200 


043446 



190t: 
.•REPORT 



191$: 
195»: 



BIC 
MOV 
&IC 
BEO 
ADD 

nove 

StB 
JSR 
SUB 



I u 
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•«Xf ,(SP) 

R«CS2I.$80DAT 

(SP)*.$8DDAT 

190$ 

#4,(SP) 

#55.a(5P) 

#2.(SP) 

pc,a(SP)* 

#10. (SP) 



200$: 



ERROR IF AOE IS SFT AND 

MOV #-1,-(SP) 

BIT #A0E.500$ 

BEQ 191$ 

BIT #L8T.RMDSI 

BNE 195$ 

BIC #AOE.(SP) 

MOV RMER1I.$8DDAT 

BIC (SP)»,$8DDAT 

BEQ 200$ 

ADD #4.(SP) 

M0V8 #20.a(SP) 

SLB #2.(SP) 

JSR PC.S(SP)* 

SJ3 #10, (SP) 



DISABLE MXf ERROR 
GET RECEIVED STATUS 
CLEAR MXf IF frWBLED 
BRANCH IF MXF IS OK 
MOVE SP TO USERS ERROR fALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



DATA ERRORS ARE NOT ENABLED 
ASSLflE DATA ERRORS ARE ^NABlED 
ARE DATA ERRORS EANBLED ?? 

NO . 1 

JS LBT also SET ?? 

YES .'. 

DISABLE AOE 

GET RECEIVED STATUS 

CLEAR AOE IF ENABLED 

BRANCH IF AOE IS OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO ERROR RETURN 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 



BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
HEADER ERRORS. I.E., 

RMER1 - HCRC,HCE,FER 

RMER2 - BSE 

RESET THE ENABLING BIT (HCE) IF HEADER COMPARE INHIBIT IS SET 



201$; 



BIT 
BEQ 
8U 



#HCI.RMOFI 
201$ 

#HCE.500$ 



205$: 



.•REPORT AN ERROR IF HCRC IS SET 

MOV #-1.-(SP) 

BIT #HCE.500$ 

BNE 205$ 

BIC #HCRC.(SP) 

MOV RMER1I,$BDDAT 

BIC (SP)*.$BDDAT 

BEQ 210$ 

ADD #4,(SP) 

M0V8 #35.5i(SP) 

SUB #2.(SP) 

JSR PC.S(SP)* 

SUB #10. (SP) 

210$: 



IS HCJ SET ?? 
NO .'! 

YES - DISABLE ALL HEADER ERRORS 



AND HEADER ERRORS ARE NOT ENABLED 
ASSUME ERRORS ENABLED 
ARE HEADER ERRORS ENABlED ?? 

VES I I 

DISABLE HCRC 
GET RECEIVED STATUS 
RESET HCRC IF EN,'a8LED 
BRANCH IF HCRC IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



.■REPORT ERROR IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #-1.-(SP) .-ASSUME ERRORS ENABLED 

BIT #HCE.500$ .ARE ERRORS ENABLED ?? 



jARy tRRC« CMfC«C SUBROUMME 
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U 



041720 
OA 1722 
OA 1726 
OA175A 
0A17A0 
0A17A2 
OA 1746 
OA 175 A 
OA 1760 
OA 1762 
OA 1766 



OA 1766 
OA 1772 
0A2000 
0A2002 
0A2006 
0A201A 
CA2020 
0A2022 
0A2026 
0A203A 
0A20A0 
0A20A2 
0A20A6 



AGO 
^0^ 
A02 
A'J3 
V.OA 
AOS 
A06 
u07 

A08 
^09 

A10 
A'1 
41? 
A15 
A^A 
A1S 
416 
417 
h18 
419 
4^0 
^21 
422 
A?3 
42A 
42S 
A26 
A27 
A28 0A20A6 

429 042052 

430 OA2060 
042062 
OA 2066 
0A207A 
OA2100 
0A2102 
0A2106 
0A2nA 
0A2120 
0A2122 
0A2126 



A3 
4 32 
433 
434 
435 
A 36 
A37 
A 38 
A 39 
AAO 
4A1 
4A2 
AA3 
444 
445 
AA6 
4A7 
AA8 
AA9 
A50 
A51 
A52 
A53 
A5A 
A55 
A56 



0A2126 
0A2132 
0A21A0 
0A21A2 
0A2tA6 
0A2154 



001002 
0A2716 
0^3737 
0A2637 
001A12 
062716 
112776 
162716 
00A736 
162716 



0127A6 
032737 
001002 
0A2716 
013737 
0A2637 
001A12 
062716 
112776 
162716 
00A736 
162716 



0127A6 
C32737 
001002 
0A2716 
013737 
0A2637 
001412 
062716 
112776 
162716 
00A736 
162716 



G127A6 
032737 
001002 
0A2716 
015737 
0A2657 



000200 
001352 
001 1A2 

OOOOOA 
000036 
000002 

000010 



000200 

000020 
001352 
0011 A2 

OOOOOA 
000037 
000002 

00C010 



000200 

100000 
001 AOO 
00nA2 

OOOOOA 
00035A 
000002 

000010 



M7717 
000100 

OOOAOO 
001 ^A6 
0011 A2 



00' '42 2151: 



000000 



220$; 



BME 

eic 

MOV 
BIC 
BEQ 
ADD 
M0V8 

sue 

JSR 
SUB 



0A3AA6 

001 1A2 

OOOOOC 



225$: 



230$: 



0A3AA6 

001 U2 

000000 



235$: 



215$ 

*HCE,(SP) 

RMER1I.$BDDAT 

(SP)*.$BDDAT 

220$ 

*A,(SP) 

#36,a(SP) 

*2.(SP) 

pc.a(SP)* 

#10. (SP) 



YES . 

DISABLE MCE 

GET RECEIVED STATUS 

CLEAR HCE IF ENABLED 

BRANCH IF HCE IS OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR I^JMBER IN CALL 

MOVE SP TO ERROR RETURN 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 



ERRCft 


IF FER IS SET AND HEADER ERRORS ARE NOT ENABLED 


MOV 


#-1.-(SP) 
#HCE,500$ 


ASSUME FER IS ENABLED 


BIT 


■ARE HEADER ERRORS ENABLED V. 


BNE 


225$ 


•YES :. 


BIC 


*FER. (SP) 


DISABLE FER 


MOV 


RMER1I.$BDDAT 


•GE" RECEIVED STATUS 


BIC 


(SP)+.$BDDAT 


RESET FER IF ENABLED 


BEO 


230$ 


•BRANCH IF FER OK 


ADD 


#A.(SP) 


•MOVE SP TO USERS ERROR CALL 


M0V8 


#37.a(SP) 


•WRITE ERROR NUMBER IN CALL 


SUB 


#2.(SP) 


•MOVE SP TO ERROR RETURN 


JSR 


pc.a(SP)+ 


•REPORT ERROR AND RETURN 


SUB 


#10. (SP) 


;MOVE SP TO NO ERROR 



ERROR 


IF BSE IS SET AND HEADER ERRORS ARE NOT ENABLED 


MOV 


#-1.-(SP) 
»HCE,500$ 


■ASSUME ERRORS ENABLED 


BIT 


•ARE THEY ENABLED ?? 


BNE 


235$ 


YES :.' 


BIC 


#8SE,(SP) 


DISABLE BSE 


MOV 


R«ER2I.$8DDAT 


■GET RECEIVED STATUS 


BIC 


(SP)*.$6DDAT 


•CLEAR BSE IF ENABLED 


BEO 


2A0$ 


■BRANCH IF BSE OK 


ADD 


#A.(SP) 


■MOVE SP TO USERS ERROR CAL. 


M0V8 


#35A,a(SP) 


■WRITE ERROR NUMBER 


SUB 


#2,(SP) 


•MOVE SP TO ERROR RETURN 


JSR 


PC,a(SP)* 


•REPORT ERROR AND RETURN 


sue 


#10. (SP) 


■MOVE SP TO NO ERROR 



0A3AA6 

001 U? 



2A0$: 

BIT 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT pQR DATA 
FIELD ERRORS. I.E., 

RMCS2 - MOPE 

RMER1 - DCK.ECH 

NOTE : 

ECH CANNOT SET UNLESS IT IS ENABLED AND FCI IS RESET AND 
DCK IS SET. 

.•REPORT ERROR IF MDPE IS SET AND IS NOT ENABLED 
MOV 
BIT 
BNE 
BIC 

2'.5$: MOV 
BIC 



#-1.-(SP) 
#ECH.500$ 
2A5$ 

#MDPE.(SP) 

RMCS2I.$BDDAT 

(SP)*.$8DDAT 



ASSUME ENABLED 

ARE DATA FIELD ERRORS ENABLED ? 

YES .•: 

DISBALE MDPE 

GET RECEIVED STATUS 

CLEAR MDPE IF ENABLED 
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5fO 0*7<* 





042160 


C014''2 








042162 


062716 
1 ''2776 


G00004 






042166 


000027 


000000 


460 


0421 74 


162716 


000002 




042200 


004736 






402 


042202 


162716 


000010 




463 


042206 








^64 










465 










466 


042206 


012746 


\77177 




46/ 


042212 


032737 


000100 


043446 


4&8 


042220 


001002 






469 


0^2222 


042716 


100000 




470 


0'*2226 


013737 
042637 


001352 


001142 


4/1 


042234 


001142 




472 


042240 


001412 






47? 


042242 


062716 


y\ A A >k A 1 

000004 




474 


042246 


112776 


000030 


000000 


475 


042254 


162716 


000002 




4 76 


04 2260 


004756 






477 


042262 


162716 


000010 




478 


042266 








479 










480 










481 










482 










483 










484 


042266 


012746 


\77777 




485 


0^2272 


032737 


000100 


043446 


486 


042300 


001410 






487 


042302 


032737 


004000 


001370 


488 


042310 


001004 






489 


042312 


032757 


100000 


001352 


490 


042320 


001002 






491 


042322 


042716 


0001 CO 




492 


042326 


013737 


001 352 


001142 


493 


042334 


042637 


001 142 




494 


042340 


0OU12 






495 


042342 


062716 


000004 




496 


042546 


112' '6 


0UCU51 


UUUUUU 


497 


042354 


1627'6 


000002 




498 


C42360 


004736 






499 


042362 


162716 


000010 




500 


042566 









250$: 
.REPORT 



255$: 



BEO 

ADD 

M0V8 

SU8 

JSR 

SUB 



260$: 
REPORT 



265$: 
270$: 



250$ 
#4.(SP) 

#2/.a(SP) 

*2.(SP) 

pc.a(SP)» 

*10.(SP) 



FRROR 

MOV 

BIT 

BNE 

BIG 

MOV 

BIC 

BEO 

ADD 

M0V8 

SUB 

JSR 

SUB 



IF DCK IS SET 
#-1,-(SP) 
*ECH,500$ 
255$ 

*DC>C,(SP) 

RMER1I.$BDDAT 

(SP)*.$BDDAT 

260$ 

*4.(SP) 

*30.S(SP) 

*2.(SP) 

PC,a(SP)* 

*10.(SP) 



AND 



BRANCH IF MDPE OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



DATA FIELD ERRORS ARE NOT ENABLED 
ASSUf'E ENABLED 
ARE THEY ENABLED ?? 
YES : ! 
DISABLE DCK 
GET RECEIVED STATUS 
CLEAR DCK IF ENABLED 
BRANCH IF DCK IS OK 
MOVE SP TO USERS ERROR CAlL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



IS 



275$: 



ERROR 
DATA F 
ECI IS 
DlK 
MOV 
BIT 
BEQ 
BIT 
BNE 
BIT 
BNE 
BIC 
MOV 
BIC 
BEO 
ADD 
M0V8 

sue 

JSR 
SUB 



IF ECH IS SET AND. 
lELD ERRORS ARE NOT 
SET. OR 
NOT SET, 
#-1,-(SP) 
#ECH,500$ 
265$ 

#ECI.RM0FI 
265$ 

#DCK,RMER1I 
270$ 

*ECH.(SP) 
RMER1I.$8DDAT 
(SP)>.$8DDAT 
275$ 
*4.(SP) 
#31.S(SP) 
#2.(SP) 
PC.S(SP)* 
fflO,(SP) 



ENABLED, OR 



ASSUME ENABLED 
ARE ERRORS ENABLED 
NO .'1 

IS ECI SET ?? 
YES i: 

IS DCK ALSO SET ?? 

YES :i 

DISABLE ECH 

GET RECEIVED STATUS 

CLEAR ECH IF ENABLED 

BRANCH IF ECH IS OK 

MOVE SP TO USERS ERROR CALl 

WRITE ERROR NUMBER IN CALL 

MOVE SP TO ERROR RETURN 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 
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2 
5 
i, 
5 

6 
7 
8 
9 
10 

n 
12 

13 

U 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2A 

25 

26 

27 

28 

29 

30 

31 

3^ 

33 

3A 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



•PERFORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS 



042366 
042374 
0423^6 



042402 
042410 
042412 
042420 
042422 
042426 
042434 
042440 
042444 
042446 
042452 



042454 
042462 
042470 
042474 

042502 
042510 
042512 

042520 
042526 
042:30 
042536 
042542 
042550 
042554 
042556 
042562 



042564 
042566 
042572 

042576 
042602 
042610 
042612 

04P616 
042622 
042626 
042630 



022737 
103402 
0001 37 



013737 
001421 
032737 
001015 
062716 
M2776 
005037 
162716 
004736 
162716 
000240 



0137^7 
163737 
006357 
063737 

032737 
001403 
013737 

023737 
001416 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



005046 
013746 
163716 

012746 
032737 
001402 
062716 

005266 
161666 
003373 
022626 



000030 
045420 

001340 

040000 

000004 
000015 
001140 
000002 

000010 



001340 
001414 
001140 
001416 

000010 

001416 

001140 

001342 
000004 
000016 
000002 

000010 



001340 
001414 

009400 
000002 

000002 

000004 
000002 



043454 

001 U2 
001336 

000000 



280S: 



CMP 


♦SEARCH. 515$ 


;WAS DATA TRANSf ERRED ? 


BLO 


280$ 


;8R IF YES 


JMP 


355$ 


;N0 - EXJT 


ERROR 


If RMWC NOT ZERO AND TRE IS ZERO 


MOV 


RMWCI .$BDDAT 


.•WORD COUNT ZERO?? 


BEO 


285$ 


;YES 


BIT 


*TRE.RMCS1I 


.•TRANSFER ERROR DETECTED?'' 


BNE 


285$ 


;VES. ! 


ADD 


#4,(SP) 




M0V8 


*i5.a(sp) 


.ERROR NUMBER 


CLR 


$GDDAT 


;GOOD DATA FOR TVPEOUT 


SOB 


*2.(SP) 


.•MOVE SP TO RETURN FOR ERROR 


JSR 


PC.S(SP)* 


.•REPORT WORD COUNT NOT ZERO 


sie 


#10. (SP) 


.•RESTORE (SP) 


NOP 







001140 
001140 

001140 

001346 

001140 

001342 

001142 

000000 



285$: 



290$: 



ERROR 


IF RM8A IS NOT 


CORRECT 


MOV 


RMWCI.$GDDAT 


;GET WORD COUNT AT END OF TRANSFER AND 


sue 


RMWCO.$GDDAT 


.•SUBTRACT STARTING WORD COUNT, 


ASL 


$GDDAT 


2 


ADD 


RM8A0.$GDDAT 


;ADD STARTING BUS ADDRESS 


BIT 


#8AI.RMCS2I 


;WAS BUS ADDRESS INHIBIT (BAD SET ?? 


BEO 


290$ 


;N0 :i 


MOV 


Rf«AO,$GDDAT 


.•ADDRESS SHOULD NOT HAVE CHANGED 


CMP 


$GDDAr.RMBAI 


;8US ADDRESS OK?? 


BEO 


295$ 


;YES!.' 


MOV 


RMBAI.$8DDAT 


;8AD DATA FOR TYPEOUT 


ADD 


Ar4,(SP) 




M0V8 


#16,a(SP) 


.•ERROR NUMBER 


sue 


^2. (SP) 


.-MOVE SP TO RETURN FOR ERROR 


JSR 


PC.a(SP)+ 


.•REPORT UNE)(PECTED ADDRESS 


SUB 


*10.(SP) 


.•RESTORE (SP) 


NOP 







COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT 



001412 



295$: CLR -(SP) 

MOV RMWCI.-(SP) 

sue RMWCO.(SP) 

MOV #256.. -(SP) 

BIT #8IT1.RMCS10 

BEO 500$ 

ADD #2.(SP; 

500$: INC 4(SP) 

SUB (SP).2(SP) 

BGT 500$ 

CMP (SP)+.(SP)* 



Number of sectors transferred 

GET word count AT END OF TRANSFER AND 

subtract starting word count. 

assume 256. words per sector 
header 6 data command ?? 

NO . ! 

CHANGE TO 258. WORDS PER SECTOR 

INCREMENT SECTOR COUNT 
SUBTRACT ONE SECTOR'S WORTH 
CONTINUE IF NOT DONE 
RESTORE STACK 



.•COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
d9 
70 
71 
72 
^3 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

no 

111 
112 
113 
114 



042632 
042640 
042646 
042654 
042662 
042666 

042672 
042700 
042704 
042712 

042716 
042724 
042726 
042732 
042740 

C42742 
042750 
042752 
042756 
042764 
042766 



042770 
042770 
042774 
043002 
043004 
043012 
043014 
043022 
043030 
043036 
043044 
043046 
043052 
043060 
C43064 
043066 
043072 



043074 
043100 
043106 
043110 
043116 
0A3120 
043124 
043126 
043132 
043134 
043142 



013737 
013737 
013737 
013737 
000337 
005237 

042737 
000337 
042737 
062637 

023727 
103406 
005237 
162737 
000766 

023737 
103407 
00:237 
163737 
000766 
000240 



005037 
023727 
101407 
032737 
001003 
012737 
013737 
042737 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 



005037 
032737 
001031 
023727 
101425 
005737 
001012 
005737 
001007 
032737 
001413 







;MUM8ER 


OF SECTORS 




001446 


043446 


MOV 


RMDC0.500S 


."STORE ORIGINAL CYLINDER 


001420 


043450 




MOV 


RMDA0.505S 


.•STORE ORIGINAL TRACK 


001420 


043452 




MOV 


RMDA0.510S 


.■STORE ORIGINAL SECTOR 


001334 


043456 




MOV 


LSTR»(.520S 


.•STORE LAST TRACK. 


043456 






SWAB 


520$ 


;GET TRACK ADDRESS TO LO BY^E AND 


043456 






INC 


520$ 


.•INCREMENT TO GET TOTL * OF TRACKS. 


000377 


043450 




BIC 


**C<TADMS<>.505$ ;SAVE TRACK ADDRESS BJTS AND 


043450 






SWAB 


505$ 


;SUAP TRACK ADDRESS TO LOW BYTF. 


1 77400 


043452 




BJC 


#*C<SADMSK>.510$ ;SAVE SECTOR ADDRESS BITS 


043452 






ADD 






043A52 


000040 


31 OS: 


CMP 


510$, *32. 


.SECTOR OVEF LOWED?? 






BLO 


315$ 


;N0J .' 


043450 






INC 


505$ 


.•INCREMENT TRACK 


000040 


04345<? 




SUB 


#32.. 51 OS 


.•ADJUST SECTOR 








BR 


310$ 


.-TRY AGAIN 


043450 


04 3456 


TIC* 

51 SS.- 


CMP 


505$. 520$ 


.•TRACK OVERFLOWED?? 








BLO 


320$ 


;N0! ! 


043446 






T Mr 


500$ 


.•INCREMENT CYLINDER 








sue 


520$.505S 


.•ADJUST TRACK 








BR 


315$ 


;TRY AGAIN 








NOP 










.-REPORT 


ERROR 


IF 'IBT" IS NOT 


CORRECT 



001140 
043446 



002000 
001350 
175777 
001140 

000004 
000017 
000002 

000010 



320$; 



001466 



002000 001352 



001140 
001142 
001142 
001142 



000000 



325$: 



CLR 


SGDDAT 


;SET GOOD DATA FOR LBT 0 


CMP 


500$.*822. 


.SHOULD L8T BE SET?? 


BLOS 


325$ 


;NOI I 


BIT 


*IAE.RMER1I 


•WAS lAE SET 


BNE 


325$ 


;YES - LBT SHOULD NOT BE SET 


MOV 


*L8T,$GDDAT , 


;SET GOOD DATA FOR LBT 1 


MOV 


RMDSI.$BDDAT 


;8AD DATA FOR TYPEOUT 


BIC 


#*CL8T.S8DDAT 




CMP 


SGDDAT. SBDDAT 


;IS LBT CORRECT?? 


BEO 


330$ 


;YES! ' 


ADD 


/!r4.(SP) 




Move 


*l7,a(SP) 


.•ERROR NUMBER 


sue 


*2.(SP) 


.•MOVE SP TO RETURN FOR ERROR 


JSR 


PC.S(SP)* 


.•REPORT L8T IS WRONG 


sue 


#10. (SP) 


.•RESTORE (SP) 


NOP 







001140 

002000 001 352 
043446 001466 
043450 
043452 

000010 043454 



.•REPORT ERROR 
330$: 



IF "AOE" IS INCORRECT 



CLR 


$GDDAT 


;SET FOR AOE - 0 
.WAS "lAE" DETECTED?? 
;YES-"AOE" SHOULD BE ZERO 


BIT 


#IAE.RMER1I 


BNE 


340$ 


CMP 


500$, #822. 


.•SHOULD AOE BE SET?? 


BLOS 


340$ 


;N0: 1 


TST 


505$ 


; MAYBE 


BNE 


335$ 


;YES 


TST 


510$ 




BNE 


335$ 


;YES !! 


BIT 


#F2. 515$ 


;WAS THIS READ OR WRHE C 


BEO 


340$ 


;N0 1.' 



CHECK 



043UA 


005757 


001 340 






TST 


043150 


001410 








BEQ 


043152 


012737 


001000 


001140 


335S: 


MOV 


043160 


005037 


043450 






CLR 


043164 


012737 


000001 


043452 




MOV 


043172 


013737 


001352 


001 ■'42 


340S: 


MOV 


043200 


042737 


1 7tl77 


001142 




BIC 


043206 


023737 


001140 


001142 




CMP 


043214 


001413 








BEQ 


043216 


062716 


000004 






ADD 


043222 


1 1 2776 


000020 


000000 




MOVB 


043230 


162716 


000002 






SUB 


043234 


004736 








JSR 


043236 


162716 


000010 






SUB 


043242 


000240 








NOP 
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115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

152 

155 

154 

155 

156 

157 

158 

159 

140 

141 

142 

145 

144 

145 

146 

U7 

148 

149 

150 

^51 

152 

155 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

(68 

169 

170 

1^1 
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RMWCI 
340$ 

*AOE,$GDDAT 

505$ 

#1.510$ 

RMER1I.$BDDAT 

**CA0E,$BDDAT 

$GDDAT.$BDDAT 

545$ 

*4.(SP) 

#20,a(SP) 

#2.(SP) 

PC.a(SP)* 

*10.(SP) 



WAS ALL DATA TRANSFERRED ?7 
YES .'! 

SET FOR AOE = 1 
CLEAR EXPECTED TRACK 
EKPECT SECTOR = 1 
BAD DATA FOR TYPEOUT 

IS AOE CORRECTY?? 

YES! ! 

ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 
REPORT AOE IS WRONG 
RESTORE (SP) 



.-REPORT ERROR IF RMDA IS NOT CORRECT 



043244 


032737 


002000 


001552 545$: 


BIT 


*IAE.RMER1I 


.■WAS THERE AN lAE ERROR ?? 


045252 


001062 






BNE 


555$ 


;YES - DONT CHECK RMDA.RMDC 


C43254 


015757 


043450 


001140 


MOV 


505$,$6DDAT 


.•SETUP EXPECTED DISK ADDRESS 


043262 


000557 


001140 




SWAB 


$GDDAT 




043266 


115757 


045452 


001140 


MOVB 


510$.$GDDAT 




045274 


015757 


001544 


001142 


MOV 


RMDA I ,$BDDAT 


.•SETUP RECEIVED DISK ADDRESS 


045502 


025757 


001 140 


001142 


CMP 


$GDDAT.$BDDAT 


.-COMPARE EXPECTED & RECEIVED 


045510 


001413 






BEQ 


550$ 


.•BRANCH IF EQUAL 


045512 


062716 


000004 




ADD 


*4,(SP) 




043516 


112776 


000021 


000000 


MOVB 


*21,a(SP) 


.-ERROR NUMBER 


043324 


162716 


000002 




SUB 


*2,(SP) 


;MOVE SP TO RETURN FOR ERROR 


043330 


004736 






JSR 


pc,a(SP)* 


.•REPORT BAD DISK ADDRESS 


043552 


162716 


000010 




SUB 


#10. (SP) 


.•RESTORE (SP) 


045556 


000240 






NOP 







.•REPORT ERROR IF RMDC IS INCORRECT 



045540 


015757 


045446 


001140 


550$: 


MOV 


500$.*GDDAT 


.•SETUP EXPECTED CYLINDER 


045346 


042757 


1 76000 


001140 




BIC 


#-C1777. $GDDAT 




043354 


015757 


001572 


001142 




MOV 


RMDCI,$BDDAT 


.-SETUP RECEIVED CYLINDER 


043562 


025737 


001140 


001142 




CMP 


$GDDAT,$BDDAT 


.•COMPARE CYLINDERS 


045570 


001415 








BEQ 


555$ 


.•BRANCH IF EQUAL 


045572 


062716 


000004 






ADD 


#4,(SP) 




045576 


112776 


000022 


000000 




MOVB 


#22. a(SP) 


.-ERROR NUMBER 


045404 


162716 


000002 






SUB 


#2,(SP) 


;MOVE SP TO RETURN FOR ERROR 


045410 


004756 








JSR 


PC.a(SP)* 


.-REPORT BAD CYLINDER 


043412 


162716 


000010 






SUB 


#10, (SP) 


.-RESTORE (SP) 


043416 


000240 








NOP 






045420 


062716 


000004 




555$: 


ADD 


#4.(SP) 


.•MOVE (SP) TO ERROR CALL 


043424 


105776 


000000 






Tsra 


a(sp) 


;WAS ERROR FOUND?? 


045450 


001403 








BEQ 


560$ 




043452 


062716 


000004 






ADD 


#4.(SP) 


;MOVE (SP) TO ERROR RETURN 


045436 


000402 








BR 


565$ 




043440 


162716 


000004 




360$: 


SUB 


#4,(SP) 


.■MOVE (SP) TO NO ERROR RETURN 


043444 


000207 






365$: 


RTS 


PC 




043446 


000000 






500$: 


• WORD 


0 


.-CYLINDER 


045450 


000000 






505$: 


.WORD 


0 


; TRACK 


043452 


000000 






■^10$: 


.WORD 


0 


.•SECTOR 


043454 


000000 






515$: 


.WORD 


0 


.FUNCTION CODE 
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2 
3 

S 
6 

7 
8 

9 
10 
11 
12 
13- 
U 
15 
16 
17 
18 
19 
20 

21 OA 3460 

22 

23 

24 043460 

25 043466 

26 043474 

27 043500 

28 043506 
29 

30 
31 

32 043514 

33 043520 

34 043524 
35 

36 

37 043530 

38 043534 

39 043536 

40 043544 

41 043550 

42 C43554 

43 043562 

44 043566 

45 043570 

46 043574 

47 043576 
48 

49 

50 04 4576 

51 043602 
52 

53 043604 

54 043612 

55 043616 

56 043622 

57 C4363C 



0''3737 
047637 
062716 
013737 
047637 



U62716 
105076 
162716 



005737 
001420 
013737 
005037 
062716 
112776 
162716 
004736 
162716 
000240 



001352 
000000 
000002 
001400 
000000 



000006 
000000 
000004 



001176 

001176 
001140 
000004 
000066 
000002 

000010 



.S8TTL COMPOSITE ERROR CHECK SUBROUTINE 

THIS SUBROUTINE CHECKS THE STORED CONTENTS OF RK1ER1 AND 
R»«1ER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STAfUS 
/iASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER 
THE MASKS ARE APPLIED. 



(1) 



JSR 

.WORD 

.WORD 

BR 

NOP 

ERROR 

JSR 



PC.CMPERRSTS 



PC.a(SP)* 



MASK FOR ERROR REGISTER 1 

MASK FOR ERROR REGISTER 2 

RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



NOTE: BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
BE ZERO 



CMPERRSTS: 



001 1 76 
001176 

001200 
001200 



;MASK AND STORE THE CONTENTS OF RMER1 AND RMER2 

.-STORE RMER1 AT TEMP STORAGE 
;MASK RMER1 
.-MOVE SP ■'O NEXT MASK 
.•STORE RMER2 AT TEMP STORAGE 
.•MASK RMER2 



MOV 
BIC 
ADD 
MOV 
BK 



RMERIl.STMPI 

a(SP).$TMP1 

*2.(SP) 

RMER2I,$TMP2 

8(SP).$TMP2 



.•CLEAR USER'S ERROR CALL 
ADD *6.(SP) 

CLR8 acsp) 

SUB #4,(SP> 



MOVE SP TO USER'S ERROR CALL 

CLEAR ERROR NUMBER 

LEAVE SP AT NO ERROR RETURN 



:SEE IF TMERE WERE ANY ERRORS IN RMER1, I.E., $TMP1 



001142 
000000 



5$: 



TST STMPI 

BEQ 5$ 

MOV $TMP1,SBDDAT 

CLR SGDDAT 

ADD #4.(SP> 

M0V8 #66,a(SP) 

SU3 #2.(SP) 

JSR PC.a(SP)* 

SUB #10. (SP) 
NOP 









.-SEE IF THERE 


ARE ANV ERRORS 


005737 


001200 




TST 


$TMP2 


001420 






BEO 


10$ 


013737 


001200 


001142 


MOV 


$TMP2,SBDDAT 


005037 


001140 




CLR 


SGDDAT 


062716 


0000C4 




ADD 


*4.(SP) 


112776 


000067 


oocooo 


MOVB 


#67.a(SP) 


162716 


000002 




SUB 


#2,(SP) 



ANY ERRORS TO REPORT?? 
NO !) 

RECEIVED STATUS FOR TYPEOUT 
EXPECTED STATUS FOR TYPEOUT 
MOVE 5P TO USER'S ERROR CALL 
CORRECTABLE DATA CHECK ERROR 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 



;ANY ERRORS IN RMER2? 

;NOi ! 

RECEIVED STATUS FOR TYPEOUT 
EXPECTED STATUS FOR TYPEOUT 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN USER'S CALL 
MOVE SP TO RETURN FOR ERROR 
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58 OA 5654 
t)9 045656 

60 0<.56A? 

61 045644 
62 

63 

64 045644 

65 045650 

66 045654 

67 043656 

68 04366? 
o9 043664 
70 043670 



004756 
162716 
000240 



062716 
105776 
001403 
062716 
000402 
162716 
000207 



C00010 



000004 
000000 

000004 

000004 



10S: 



SOB 
NOP 



PC.i(SP)» .REPORT ERROR VIA USER 

#10.(SP> ;KTOVE SP ro NO ERROR RETURN 



•AuGMtrNT THE RETURN ADDRESS 1^ ANY ERROR WAS DETECTED 

ADD #4.(SP) .-MOVE SP TQ USER'S ERROR CALL 

TST8 i(SP> ;WAS THERE AN ERROR CALLED?? 

BEQ 20$ ;N0..' 

ADD #4.(SP) .-YES - MOVE SP TO ERROR RETURN 

BR 30S 

20$: SLfi (r4,(SP) .-MOVE SP TO NO ERROR RETURN 

30$: RTS PC .-RETURN TO USER 
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5 

5 
6 

7 
8 

9 
10 
11 
12 
^3 
U 
■•5 
16 
17 

18 
'9 
20 



21 
22 
23 
24 
25 
26 
27 
28 
2V 
30 
51 
32 
33 
3< 
35 
36 
37 
38 
39 
40 

41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



043672 



043672 
043676 
043702 



C43706 
043712 
0'.3716 
043720 
043722 
043730 
043736 
043742 



04 3 746 
043752 
043760 

043766 
043774 
043776 
044004 
044012 

044014 
044022 
C44024 
044032 
044040 



0*.4042 
044044 
044052 
044060 



044066 
044066 
044070 
044072 



062716 
105076 
162716 



013746 
01 3746 
010046 
010146 
012737 
C12737 
013700 
013701 



111160 
016037 
016037 

032737 
001407 
062766 

112776 
000422 

032737 
001021 
062766 
112776 
000407 



022626 
062766 
] 12776 
162766 



012601 
012600 
012637 



000004 
000000 
000004 



0C0004 
000006 



044042 
000300 
001276 
001466 



000010 
000000 
000010 



000004 
0001 1 1 



000004 
000112 



000004 
000113 
000002 



SEO 0186 



000004 
000006 



001 1 76 
OCl 1 74 



010000 001174 



000010 
000010 



000010 
000010 



000010 
000010 
000010 



.S8TTL DEVICE SELECT SUBROUTINE 

; THIS SUBROUTINE SELECTS THE OEVJCE, GETTING ^hE DEVICE NUMBER FROM THf 
; TEST QUEUE. 



PC.DEVSEL 



.-CALL: 

.-ri) JSP 

; (2) BR 

;(3) NOP 

;(4) ERROR 

DEVSEL: 



; CLEAR USER'S ERROR CALL 
ADD *4.(SP) 
CLR8 a(SP) 
SU8 *4.(SP) 



RETURN IF NO ERROR 

RETURN n ERROR 

ERROR DEFINED BY SiJBROUi INE 



MOVE SP TO USER'S ERROR 
CLEAR LOW ORDER BYTE OF 
MOVE SP BACK 



CALL 



;SAVE USER'S INFORMATION AND SETUP REGISTERS 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

;SELECT DEVICE 
M0V8 
MOV 
MOV 

BIT 
BEO 
ADD 

Move 

BR 



ERRVEC.-(SP> 

ERRVcC*2.-(SP) 

RO.-(SP) 

Rl.-(SP) 

*20$.ERRVEC 

*PR6.ERRVEC*2 

$8ASE,R0 

TSTQUE.Rl 



;;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC>2 ON STACK 
;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
.•SETUP FOR BUS TIMEOUT 

;R0 = UNI8US ADDRESS 

;R1 POINTS TO DEVICF NUMBER 



AND VERIFY THAT DEVICE IS AVAILABI E 
(R1).RMCS2(R0) .-WRITE UNIT SELECT BITS 
RMCS1(R0).$TMP1 ;GET 'DVA" STATUS 
RMCS2(RO),$TMP0 ;GET *tgED" STATUS 



004000 001176 10$: 



BIT 

BNE 

ADD 

M0V8 

BR 



*NED.$TMPO 
10$ 

#4,10(SP) 

*iii.aiO(SP) 

30$ 

*DVA,$TMP1 
35$ 

*4.10(SP) 

*n2,ai0(SP) 



.•HANDLE 
20$: 



30$: 



BUS TIMEOUT 
CMP (SP)*.(SP)* 
ADD *4.10(SP) 
M0V8 #ll3.alO(SP) 

sue #2.iO(SP) 



;IS DEVICE NONEXISTENT ? 
;N0: : 

;MOVE SP TO USERS ERROR CALL 
.WRITE ERROR NUMBER 



IS DEVICE AVAILABLE ? 
YES. : 

MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 



ADJUST SP 

MOVE SP TO USERS ERROR CALL 
WRITE BUS TIMEOUT ERROR NUMBER 
ADJUST RETURN TO 'NOP' PRECEDING 
THE ERROR CALL 



000006 



.-RESTORE USERS DATA AND RETURN TO ADDRESS ON STACK 
35$: 

MOV (SP)*,R1 .-.-POP STACK INTO RI 

MOV (SP)*.RO ;;POP STACK INTO RO 
MOV (SP)*.ERRVEC*2 ;;POP STACK INTO ERRVEC*2 
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012657 000004 NOV (SP)*.ERRVEC ;;POP STACK INTO ERRV5C 

52 04<.l02 000207 RTS PC ;EX1T 



-7 

» 

V. 
1 1 

V 
13 
K 
15 
16 
17 
18 
■■9 
20 
21 

22 04^104 

23 0U106 

24 0441 12 

25 044116 

26 044122 
27 

28 
29 

30 044126 

31 044134 
3c 044136 

55 044144 
34 

35 

36 044146 
04<,152 

38 044160 

39 044164 

40 044172 

41 044176 

42 044200 

43 044204 

45 
46 

47 044206 

48 044214 

49 044222 

50 044230 

51 044232 
•^2 

53 044240 

54 044246 

55 

56 044250 

57 044256 



000240 
062716 
105076 
162716 
005037 



032737 
001424 
U32737 
001020 



005037 
013737 
062716 
112776 
162716 
004736 
162716 
000437 



012737 
052737 
023727 
101025 
042737 

123737 
101016 

123727 
101410 
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000004 
000000 
000004 
045342 



000010 
000010 



001140 
001352 
000004 

000050 
000002 

000010 



002000 
040000 
001446 

040000 

001 ".21 



001352 
001400 

001142 
000000 



001140 
045342 
001466 

045342 

001335 



.SeriL SEEK STATUS CHECK SUBROUTINE 

THIS SLfiROUTINE VERIFIES THE RESULTS OF SEEK ^fSTS USING STATUS 
STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER. 

THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED 
AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE 'tRROR" TRAP 
OF THE CALLING ROUTINE. SEEK STATUS IS CHECKED AS F 01 LOWS: 



CALL: 
(1) 



JSR 

BR 

NOP 

ERROR 

JSR 
777 



PC.SEKSTS 

T?7 



PC.a(SP)* 



SEKSTS: 

.•CLEAR USERS' ERROR CALL 
NOP 



ADD 
CLR8 

sue 

CLR 



*4.(SP) 

a(SP) 

*4,(SP) 
300$ 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SU8 

GO BACK TO sue FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



MOVE (SP) TO ERROR CALL 
CLEAR ERROR NUMBER 
MOVE (SP) TO NO ERROR RETURN 
CLEAR ERROR FLAGS 



.•TEST FOR MASS8US CONTROL BUS PARITY ERROR WHEN WRITING 



.•LOCAL REGISTERS. I.E.. "PAR" 
BIT *PAR,RMER1I 
BEQ 1$ 
BIT *DPE.RMER2I 
BNE 1$ 



1 AND "DPE" - 0 
WAS PARITY ERROR DETECTED?? 

NO! ; 

WAS IT DUE TO CONTROL BUS?? 
NOr SURE. I 



; REPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL 



CLR SGDDAT 

MOV RMERII.tBDOAT 

ADD *4,(SP) 

M0V8 #50.a(SP) 

SUB *2.(SP) 

JSR PC.a(SP)+ 

SUB *10.(SP) 

BR 3$ 



.•EXPECTED STATUS 
.-RECEIVED STATUS 
.•MOVE STACK TO USER'S ERROR 
; ERROR *50 

;MOVE SP TO RETURN FOR ERROR 

.•RESTORE STACK 

;IAE SHOULD BE ZERO 



.■DETERMINE THE VALUE OF "lAE" STATUS BASED ON TRACK. SECTOR AND CYLINDER 
;ALSO. SET "SKI" IF CYLINDER ADDRESS IS TOO LARGE. 

1$: MOV #IAE,$GDDAT .•SETUP FOR lAE " 1 

BIS *SKI.300$ ; SETUP FOR SKI = 1 

CMP RMDCO.*822. .-GREATER THAN LAST CYLINDER ? 

BHI 3$ ;YES - CYLINDER IS INVALID 

BIC *SKI.300$ .-CLEAR SKI ERROR FLAG 



001420 000035 



CMP8 
BHI 

CMP8 
BLOS 



RMDAOO.LSTRKO .-GREATER THAN LAST TRACK ? 
3$ ;YES - TRACK IS INVALID 



RMDA0.*29. 

2$ 



.•SECTOR > 29. 
;8R IF NO 



^TAToi Check SUBRCXiTINE 



H 

PAGE 



15 

29-1 



60 
^.1 



'.8 044260 
59 044266 
04^.270 
044276 

t? 

63 044 W 

64 

65 

66 044 504 

67 044312 

68 044520 
o9 044526 
^0 044330 
"1 044336 
72 044540 
73 

74 044540 

75 044344 

76 044552 

77 044356 

78 044360 

79 044364 

80 044366 
31 

82 
83 
84 
85 
86 



044366 
044374 

87 044376 

88 044402 

89 C44410 

90 0A4414 

91 044422 

92 044430 
9.3 044432 
9A 044440 

95 044444 

96 044446 

97 044452 
98 

99 044454 
044<,62 
044470 
10? 044476 
103 044504 
104 
105 

106 044506 

107 044514 

108 044516 

109 044522 

110 044530 

111 044554 

112 044536 
C44542 
04'.544 



100 
101 



032737 
001406 
^2S727 
101002 



010000 
001420 



005037 001140 



113 
•4 



013737 
042737 
023737 
001004 
042737 
000413 



062716 
112776 
162716 
004736 
162716 
000240 



032737 
001427 
005037 
013737 
062716 
112776 
032737 
001403 
112776 
162716 
004736 
162^16 
000240 

013737 
042737 
013737 
042737 
001417 



032737 
001032 
062716 
112776 
162716 
004736 
162716 
000445 



001352 
175777 

001140 



001444 
000037 



001142 
001142 
001142 



040000 045342 



000004 
000051 
000002 

000010 



000000 



010000 001400 



001 uo 

001400 
000004 
000060 
000100 

000061 

000C02 

000010 



001400 
137777 
045342 
137777 



040000 

000004 
000267 
000002 

000010 



001142 

000000 
001350 

000000 



001142 
001142 
001140 
00M40 



001142 
000000 



2$: 



BIT #F(»1T16.RWF0 

BEO 3S 

ifVQ RMDA0.*31. 

BHI 3$ 

CLR SGDDAT 



;18 BIT FORMAT ? 
;VES - SECTOR IS 
.-SECTOR > 31. ? 
;VES - SECTOR IS 

;"IAE" SHOULD = 0 



INVALID FOR 18 BIT MODE 
INVALID 



COMPARE EXPECTED AND RECIEVED 



35$: 
.•REPORT 



MOV RMER1I.S8DDAT 

BIC **:IAE.$8DDAT 

CMP SGDDAT, SBDDAT 

BNE 35$ 

BIC *SKI,300$ 

BR 5$ 



"lAE" STATUS 
;IS lAE OK?? 

.■SAVE lAE BIT FOR COMPARE 

.•CORRECT "lAE" STATUS ? 

;8R IF NO 

.•CLEAR SKI FLAG 

.•GO CHECK NEXT ERROR 



5$: 



INCORRECT 
ADD 
M0V8 

sue 

JSR 

sue 

NOP 



lAE' 
ff4.(SP) 

*5i.a(SP) 

*2. (SP) 

PC.a(SP)+ 

#10. (SP) 



STATUS VIA USER'S ERROR CALL 



ERROR 51 

MOVE SP TO RETURN FOR ERROR 
REPORT INCORRECT lAE 
.•RESTORE (SP) 



REPORT ANY IVC ERROR AS 

IVC ERROR WITH VOLUME VALID ZERO 
ERRONEOUS IVC ERROR. VOLUME VALID IS SET 



BU *IVC.RMER2I 

BEQ 52$ 

CLR $GDDAT 

MOV RMER2I,$BDDAT 

ADD #4.(SP) 

M0V8 #60.a(SP) 

BIT *VV.RMDSI 

BEQ 51$ 

M0V8 *61.a(SP) 

51$: sue #2.(SP) 

JSR pc,a(sp)+ 

sue #10. (SP) 

NOP 

52$: MOV RMER2I.$BDDAT 

BIC #*CSKI.$BDDAT 

MOV 300$.$GDDAT 

BIC #*CSKI.$GDDAT 

BEQ 53$ 



ivc error?? 

no; ! 

expected status 
received status 
move sp to user's error 

ERROR 60 IF VV - 0 



ERROR 61 IF VV =1 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
RESTORE SP 



RECEIVED STATUS 
CLEAR DONT CARES 
GET EXPECTED SKI STATUS 
CLEAR DONT CARES 
BRANCH IF 0 EXPECTED 



.•REPORT ERROR IF SKI IS NOT SET (lAE WAS NOT DETECTED) 



BIT 


*SKI,$BDDAT 


•WAS SKI DETECTED ?? 


BNE 


54$ 


■YES :.' 


ADD 


#4.(SP) 


•MOVE SP TO USERS ERROR CALL 


MOVB 


*267.a(SP) 


•WRITE ERROR NUTBER 


sue 


#2.(SP) 


•MOVE SP TO ERROR RETURN 


JSR 


PC.a(SP)'- 


■REPORT ERROR AND RETURN 


sue 


#10. (SP) 


■MOVE SP TO NO ERROR 


BR 


6$ 


■GO TO NEXT ERROR CHECK 



'^M^43 ;,MCS/';V fCTNL TST 2 
i" -'A'jS >f< SUBRCKjTIftf 



MACWO VO^.OO 4-APR-81 11:43:53 



I 

PAGE 



15 

29-? 



fO 0190 



■^6 

1 7 

119 

VO 

i?1 

V2 

^23 

'24 

125 

126 

127 

128 

129 

130 

131 

^32 

133 

^34 

135 

136 

157 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

^50 

'51 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

'68 

169 

1^0 

171 



044544 
044SS2 
044554 
044560 
044566 
044572 
044574 
044600 



044602 
044610 
044612 
044616 
044624 
044630 
044636 
044642 
044644 
044650 



044652 
044660 
044662 
044666 
044674 
044700 
044706 
044714 
044716 
044724 
044730 
044732 
044736 



044740 
044744 
044750 
044754 
044 756 



044762 
044770 
044772 
045000 
045002 
045010 
045016 
045024 
045030 
045036 



032737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001420 
005037 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001427 
005037 
013737 
062716 
112776 
U32737 
001403 
112776 
162716 
004736 
162716 
000240 



013746 
042716 
022726 
001002 
000137 



032737 
001030 
032737 
001024 
013737 
052737 
013737 
062716 
112776 
162716 



040000 001142 



.-REPORT ERROR IF SKI IS SET 



000004 
000054 
000002 

000010 



000000 



001140 
001400 
000004 
000055 
000002 

000010 



001140 
001352 
000004 
000052 
010000 

000053 
00C002 

000010 



001350 
047677 

noioo 

045312 



010000 

020000 

001350 
010000 
001350 
C00004 
000062 
000002 



001142 
000000 



001142 

000000 
001350 

000000 



001350 

001352 

001140 
001140 
001142 

000000 



BIT 
BEQ 
ADD 
M0V8 
SU3 
JSR 

sue 

NOP 



«SKl,tBDDAT 
54$ 

#4.(SP> 
#54,5)(SP> 
#2.(SP) 
PC.al(SP>* 
#10. (SP) 



000200 001400 54$: 



.•REPORT ANY DEVICE CHECIC 



BIT »DVr,RMER2I 

BEQ 6$ 

CLR SGDDAT 

MOV RMER2I .SBDDAT 

ADD ff4.(SP) 

M0V8 #55.a(SP) 

SUB *2.(SP) 

JSR PC.a(SP)* 

SUB *10.(SP) 
NOP 



IS 3KI SET ?? 

NO - SKI IS OK 

MOVE (SP) TO ERROR 

LOAD ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT SEEK ERROR 

RESTORE (SP) 



WAS THERE DVC DURING SE«^k:? 
NO. . 

EXPECTED STATUS 
RECEIVED STATUS 

ERROR #55 

MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
RESTOOE SP 



020000 001352 6$: 



.•REPORT ANY 'TOPI" ERROR AS OPI WITH MOL 0. OR OPI 
.-BEfAUSE ON CYLINDER LATCH DIDN'T RESET 



7$: 



BIT 

BEQ 

CLR 

MOV 

ADD 

M0V8 

BIT 

BEQ 

MOVB 

SUB 

JSR 

SUB 

NO" 



ffOPI.RMERII 
8$ 

SGDDAT 

RMERII.tBDDAT 

#4.(SP) 

#52.a(SP) 

#MOL,RMDSI 

7$ 

#53,a(SP) 
*2.(SP) 

pc.a(SP)* 

#10. (SP) 



;SEE IF 'PIP" 
8$: MOV 
BIC 
CMP 
BNE 
JMP 



"OPI" ERROR?? 
NO. ! 

EXPECTED STATUS 
RECEIVED STATUS 
MOVE (SP) TO ERROR 
LOAD ERROR NUMBER 
WAS MEDIUM ON LINE?? 
NO! ! 

YES - CHANGE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT •■OPl" ERROR 
RESTORE (SP) 



'MOL" AND "W 1 



- 0. AND "ATA' 
RMDSI.-(SP) 

#*C<ATA.PIP.MOL.VV>.(SP) 

#ATA.M0LIVV.(SP)+ 

9$ .-ERROR IN RMDS 

14$ ;RMDS IS OK 



.•REPORT ERROR IF MOL - 0 AND OPI - 0 



9$: BIT #MOL.RMDSI 

BNE 10$ 

BIT #0PI,RMER1I 

BNE 10$ 

MOV RMDSI.$GDDAT 

BIS #MOL. SGDDAT 

MOV RMDSI.SBDDAT 

ADD #4.(SP) 

M0\/8 #62.a(SP) 

^UB #2.(SP) 



;IS MOL RESET?? 
;N0 - MOL IS SET 
.-WAS OPI SET 

.-YES - DONT REPORT ERROR 
.-EXPECTED STATUS 

.-RECEIVED STATUS 



;MOVE SP '0 RETURN FOR ERROR 



;WMNfaO kmj'y/i/2 FCTML TST ? 
STATUS CHECK SUBROUTINE 



^3 045042 


004736 






V3 045044 


162716 


C00010 




174 045050 


000240 






1 75 








176 








177 04505? 


032737 


020000 


001 350 


178 045060 


001430 






179 045062 


032737 


040000 


001400 


180 045070 


001 024 






^81 045072 


013737 


001350 


001140 


182 045100 
133 045106 


042737 


020000 


001142 


013737 


001350 


001142 


184 045114 


062716 


000004 




185 045120 

186 045126 


112776 


000056 


000000 


1627''6 


000002 




^87 045132 


004736 






188 045134 


162716 


000010 




189 045140 


000240 






190 








191 








192 045142 


032737 


100000 


001350 


193 045150 


001024 






^94 045152 


013737 


001350 


001140 


195 045160 


052737 


110600 


001140 


196 045166 


013737 


001350 


001142 


197 045174 


062716 


000004 




198 045200 


112776 


000057 


000000 


199 045206 


162716 


000002 




200 045212 


004 736 






2*^1 








202 045214 


162716 


000010 




203 045220 


000240 






204 








205 








206 045222 


032737 


000100 


001350 


207 045230 


001030 






208 045232 


032737 


010000 


001400 


209 045240 


001024 






210 045242 


013737 


001350 


001 140 


211 045250 


052737 


000100 


001140 


212 045256 


013737 


001350 


001142 


213 045264 


062716 


000004 




214 045270 


112776 


000064 


000000 


215 045276 


162716 


000002 




216 045302 


004736 






217 045304 


162716 


000010 




218 045310 


000240 






219 045312 








220 








221 








222 045312 


000240 






223 045314 


062716 


000004 




224 045520 


105776 


000000 




225 045324 


001403 






226 045326 

227 045332 


062716 


00000*. 




000402 






?28 









MACRO if04.00 4-APR-81 



JSR 
SUB 
NOP 
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0 0191 



pc,a(SP)» 

#10, (SP) 



.•REPORT AN ERROR IF 'T'lP" IS 

10$: BIT JTPIP.RMDSl 

BEO lis 

BIT 4rSKI.RMER2l 

BNE 11$ 

MOV RMDSI.$GDDAT 

SIC /(rPIP.SBDDAT 

MOV RMDSI.$BDDAT 

ADD *4.(SP) 

M0V8 *56.a(SP) 

sue *2.(SP) 

JSR pc.a(sp)* 

sue #10. (SP) 

NOP t 



.•REPORT ERROR VIA USER 



STIL SET AND SKI NOT SET 
IS "PIP" STILL SET?? 
NO.'.* 

WAS "SKI"SET?? 
YES-DCWT REPORT PIP 
EXPECTED STATUS 



RECEIVED STATUS 
MOVE (SP) TO ERROR 
LOAD ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT 'PIP" SET AFTER SEEK 
.•RESTORE (SP) 



.•REPORT AN ERROR IF "ATA"' IS NOT SET 
11$: 



BIT 


#ATA,RMDSI 


WAS "ATA" SET ?? 


BNE 


13$ 


YES. i 


MOV 


RMDSI.$6DDAT 


■EXPECTED STATUS 


BIS 


#ATA.MOL!DPR!DRY 


,$GDDAT 


MOV 


RMDSI.$BDDAT 


■RECEIVED STATUS 


ADD 


#4.(SP) 


■MOVE (SP) TO ERROR 


M0V8 


#57.a(SP) 


;LOAD ERROR NUMBER 


sue 


#2.(SP) 


•MOVE SP TO RETURN FOR ERROR 


JSR 


PC.a(SP)* 


•REPORT ATTENTION NOT SET DURING 






•SEEK TEST 


sue 


#10. (SP) 


; RE STORE (SP) 


NOP 







13$; 



ERROR 


IF VOLUME VALID 


IS RESET AND IVC IS ZERO 


BIT 


#VV,RMDSI 


;IS VV = 0 ?^ 


BNE 


14$ 


;N0. . 


BIT 


#IVC.RMER2I 


;IS IVC ALSO 0 ?"' 


BNE 


14$ 


;N0 - IVC IS SET 


MOV 


RMDSI.$GDDAT 


.•EXPECTED STATUS 


BIS 


#VV.$GDDAT 




MOV 


RMDSI.SBDDAT 


.•RECEIVED STATUS 


ADD 


#4.{SP) 




M0V8 


#64.a(SP) 


.-ERROR #64 


sue 


#2.(SP) 


.•MOVE SP TO RETURN FOR 


JSR 


PC.a(SP)* 




sue 


#10. (SP) 




NOP 






THE RE 


TURN ADDRESS IF 


AN ERROR WAS DETECTED 



NOP 

ADD 

TSTB 

BEQ 

ADD 

BR 



#4,(SP) 

a(SP) 

15$ 

#4.(SP) 
16$ 



MOVE (SP) TO ERROR CALL 
WAS ERROR CALLED?? 
NO. . 

MOVE TO ERROR RETURN 



K 15 

ZWMNBC fCTNL TST 2 MACRO VO^.OO 4-APR-81 11:43:35 PAGE ?9-<. 

^EEK STATUS CHECK SUBRCXjTIVE ^^^'^ 

?29 045354 1627^6 000004 15»: Slfl •A.CSP) ;MOVE (SP) TO W ERROR RETURN 

530S5I4O 000207 16$: RTS PC .-RETURN 

252 045W 000000 300S: .WORD 0 .-ERROR FLAGS 



7 

s 

6 
7 
8 
9 

^0 
'1 

010046 

045346 010U6 

045350 013746 000004 

045354 013746 000006 

13 045360 012737 045420 

14 045366 012737 000300 

15 045374 013700 001276 

16 045400 012760 000040 

17 045406 013701 001466 

18 045412 111160 000010 

19 045416 000412 
20 

21 045420 022626 

22 045422 062766 000004 

23 045430 112776 000007 

24 045436 162766 000002 

25 045444 

045444 012637 000006 

045450 012637 000004 

045454 012601 

045456 012600 

26 045460 000207 
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.sarrL controller clear subroutine 

:^H[S SUBROUTINE CLEARS THE HASSSUS CONTROLLER, MASS8US ADAPTERS, 
;AND DRIVES, THEN SELECTS THE DRIVE. 



;CAlL; 



CNTClR: 



JSR 

BR 

NOP 

ERROR 

->■>■> 



000004 
000006 

000010 



000010- 
000010 
000010 



10$: 



20$: 



PC. CNTCLR 



10V 


RO.-(SP> 


MOV 


RI.-(SP) 


MOV 


ERRVEC.-(SP) 


MOV 


ERRVEC*2.-(SP; 


MOV 


#10$.ERRVEC 


MOV 


*PR6,ERRVEC*2 


MOV 


$8ASE.R0 


MOV 


#CLR.RMCS2{R0) 


MOV 


TSTQUE,R1 


M0V8 


(R1).RMCS2(R0) 


BR 


20$ 


CMP 


(SP)+.{SP)* 


ADD 


*4J0(SP) 


M0V8 


*7.aiO(SF) 


sue 


*2,10(SP) 


MOV 


(SP)*.ERRVEC*2 


MOV 


(SP)*.ERRVEC 


MOV 


(SP)*.R1 


MOV 


(SP)*.RO 


RTS 


PC 



RETURif HERE IF NO ERROR FOUND 
RETURN HERE IF 4(Nr ERROR FOUND 
SUB DEFINES imon NUM8FR 



;PUSH RO ON STACK 
.•PUSH R1 ON STACK 
.•PUSH ERRVEC ON STACK 

;;PUSH ERRVEC ♦2 ON STAfK 
SETUP FOR BUS TIMEOUT 



RO = U^J]8US ADDRESS 
CLEAR MASS8US 
GET DEVICE UNDER TEST 
SELECT DEVICE 



ADJUST STACK 

MOVE SP TO USER'S ERROR CALL 
WRITE THE ERROR -NUMBER 
ADJUST 5P TO RETURN TO ERROR 

;;POP STACK INTO ERRVEC+2 
.-POP STACK INTO ERRVEC 
;POP STACK INTO R1 
;POP STACK INTO RO 



A^jS (.heck SUBRCXJTIMES 



3 

5 
6 
7 
8 

9 

10 
11 

U 
15 
16 
17 
18 
19 
20 
21 
22 
25 

24 OA 5462 

2'= 
?t 

27 045462 062716 

28 045466 105076 

29 045472 162716 
30 

31 045476 013737 

32 045504 042737 

53 045512 012737 

54 045520 023757 

55 045526 001413 
36 045550 062716 

57 045554 112776 

58 045542 162716 

59 045546 004736 

40 045550 162716 

41 045554 000240 
42 

43 045556 005057 

44 045562 015757 

45 045570 001413 
.'-6 045572 062716 
4<' 045576 112776 

48 045604 162716 

49 045610 004756 

50 045612 162716 

51 045616 000240 
52 

55 045620 015757 

54 045626 010146 

55 045650 005046 

56 045652 015701 
5 7 045656 irn6 
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000004 
000000 
000004 

001336 001142 
100000 001142 
004200 001140 
001140 001142 

000004 

000126 000000 
000002 

000010 



001140 

001542 001142 



000004 
000127 
000002 

000010 



000000 



001546 001142 



001466 



S8TTL STATUS CHECK SUBROUTINES 

S8TTL CONTROLLER CLEAR STATUS CHECK SUBROUTINE 



THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON 
STATUS STORED JN THE GET BUFFER. THIS SUBROUTINE SHOULD ONLY BE 
USED FOLLOWING A CONTROLLER CLEAR OPERATION. I.E., WRITING A 1 IN BIT 
5 OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION. 

STATUS PERTINENT "0 THE DEVICE IS NOT CHECKED. IN PARTICULAR. THE 
FOLLOWING STATUS BITS ARE NOT CHECKED; 

ATA. ERR.PIP.MOL.WRL. L8T.PGM.VV.0M.UN5.sk I, DVC 



CALL; 
(1) 



-SR 

BR 

NOP 

ERROR 

JSR 
I?? 



pc.clrsts 



pc.a(SP)* 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



CLRSTS: 



.•CLEAR USER'S 
ADD 
CLR8 
SUB 

.REPORT ERROR 
4$: MOV 
6IC 
MOV 
CMP 
BEO 
ADD 
M0V3 
SUB 
JSR 
SUB 
NOP 

.-REPORT ERROR 
5$: CLR 
MOV 
BEO 
ADD 
M0V8 
SUB 
JSR 
SUB 
NOP 

•REPORT ERROR 
7$: MOV 
MOV 
CLR 
MOV 
M0V8 



ERROR CALL 

Xf4,(SP) 

a(SP) 

#4.(SP) 
IF RMCS1 NOT INIT 

RMCSII.SBDDAT 

#SC.$BDDAT 

#DVA.'RDY.$GDDAT 

$GDDAT,$BDDAT 

5$ 

#4.(SP) 
#126,a(SP) 
#2.(SP) 
PC.3(SP)* 
*10.(SP> 

IF RMBA NOT RESET 
SGDDAT 

R/«A1.1BDDAT 
7$ 

<r4,(SP) 
#127.a(SP) 
#2.(SP) 

pc.a(SP)+ 

#10, (SP) 

IF RMCS2 NOT INITIALIZED 

RMCS2I,IBDDAT .'VERIFY RMCS2 



.•MOVE SP TO ERROR 
.•CLEAR ERROR NUMBER 
.•MOVE SP BACK TO NO ERROR 
lALIZED 
; VERIFY RMCS1 
; IGNORE SPECIAL CONDITION 
.•EXPECT DVA & RDY 
.•COMPARE EXPECTED. RECEIVED 
.•BRANCH IF EQUAL 
;MOVE SP TO USER'S ERROR CALL 
;WITE ERROR NUMBER IN CALL 
.•MOVE SP TO RETURN FOR ERROR 
.-REPORT ERROR VIA USER 
.•MOVE SP BACK TO NO ERROR 



.•VERIFY RMBA IS ZERO 

.-BRANCH IF ZERO 
;MOVE SP TO USER'S ERROR CALL 
;UITE ERROR NLl^ER IN CALL 
.-MOVE SP TO RETURN FOR ERROR 
.-REPORT ERROR VIA USER 
.-MOVE SP BACK TO NO ERROR 



RI.-(SP) 
-(SP) 
TSTQUE.Rl 
(Rl).(SP) 



;PUSH R1 ON STACK 
EXPECT IR £ UNIT NUMBER 
Rl ADDRESS OF TEST QUE 



"CN^SfOLLER CLEAR STATUS CHECK SLBROUTINE 
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^0 0195 



58 
59 
6G 
61 
62 
63 
6A 
65 
66 
67 
68 
o9 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
85 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
105 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
'14 



045640 
045644 
045650 
045652 
045660 
045662 
045666 
045674 
045700 
045702 
045706 

045710 
045714 
045722 
045730 
045732 
045736 
045744 
045750 
045752 
045756 

045760 
045766 
045774 
046002 
046010 
046012 
046016 
046024 
046030 
046032 
046036 

046040 
046044 
046052 
046054 
046060 
046066 
C46072 
046074 
046100 

046102 
046110 
046116 
046124 
0461 32 
046134 
046140 
046146 
046152 
046154 
046160 



0527^6 
012637 
012601 
023737 
001413 
062716 
112776 
162716 
004736 
^62716 
000240 

005037 
013737 
042737 
001413 
062716 
112776 
162^16 
004736 
162716 
000240 

013737 
042737 
012737 
023737 
001413 
062716 
112776 
162716 
U04736 
162716 
000240 

005037 
013737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 

013737 
042737 
012737 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 



000100 
C01140 

001140 

000004 
0001 30 
000002 

000010 



001140 
001352 
040000 

000004 
000131 
000002 

000010 



001362 
000046 
00001 C 
001140 

000004 
0001 33 
000002 

000010 



001140 
001404 

000004 
000135 
000002 

000010 



001376 
140000 
01 1 7/7 
001140 

000004 

000136 
000002 

000010 



001142 
000000 



001142 
001142 



000000 



001142 
001142 
001140 
001142 



000000 



001142 

000000 



001142 
001142 
001140 
001142 



000000 



.•REPORT 
9S: 



.-REPORT 
13$: 



.-REPORT 
17$: 



.-REPORT 
19$; 



*IR.(SP) 

(SP)*.$GDDAT 

(SP)*.R1 

SGDDAT.SBDDAT 

9$ 

#4.(SP) 

*i30.a(SP) 

*2.(SP) 

pc,a(SP)+ 

*10.(SP) 



BIS 
MOV 
MOV 
CMP 
8EQ 
ADD 
M0V8 
SUB 
JSR 
SUB 
NOP 

ERROR IF RMERl NOT RESET-IGNORE UNS 
$GDDAT 

RMERlI.tBDDAT 
*UNS.$8DDAT 
13$ 

#4.(SP) 
*l3l.a(SP) 
*2.(SP) 

pc,a(sp)* 

*10.(SP) 



.-POP STACK INTO Rl 
COMPARE FXPECTED I RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO USER'S ERROR CALl 
UITE ERROR NUr«ER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 



.•VERIFY RMERl 



CLR 
MOV 
SIC 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

ERROR IF RMMR1 NOT INI TJALI ZED-IGNORE WC.LS.LST 
RMMR1I .$8DDAT .-v'ERIFY RMMR 

*WC!LSILST,$8DDAT .-IGNORE WORD CLOCK, SCT. TRK 



IGNORE UNSAFE 
BRANCH IF ZERO 
MOVE SP TO USER'S ERROR CAlL 
UITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 



MOV 
8IC 
MOV 
CMP 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

AN ERROR IF RMEC2 IS NOT RESET 
$GDDAT 

RMEC2I.$BDDAT 
19$ 

*4,(SP) 
*135,a(SP) 
*2.(SP) 
PC,a(SP)+ 
*10.(SP) 



4rMWD.$GDDAT 
$GDDAT.$BDDAT 
17$ 

#4.(SP) 
#133.a(SP) 
#2.(SP) 
PC,a(SP)+ 
#10. (SP) 



EXPECT WRITE DATA BIT 
COMPARE EXPECTED AND RECFIVE") 
BRANCH IF 0 

MOVE SP TO USER'S ERROR CALL 
WITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 



CLR 
MOV 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

ERROR IF RMMR2 NOT INITIALIZED-IGNORE RQA.RQB 



.■EXPECT ZEROS 
.•VERIFY RMEC2 0 

MOVE SP TO USER'S ERROR CALL 
WITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA JSER 
MOVE SP BACK TO NO ERROR 



MOV RMMR2I,$BDDAT 

BIG *RQA1RQB.$BDDAT 

MOV *TST 1 1 777, $GDDAT 

CMP $GDDAT.$BDDAT 

BEQ 21$ 

ADD *4,(SP) 

MOVB <'136.a(SP) 

SUB #2.(SP) 

JSR Pc,a(SP)* 

SUB #10, (SP) 



VERIFY RMMR2 



.■EXPECT TEST BIT ON 



MOVE SP TO USER'S ERROR CALL 
WITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 



NOP 

.•REPORT ERROR IF RMER2 NOT RESET-IGNORE SKI.D/C 



'fiiOL.Ft* ...EAR STATUS CHECK SUBROUTI»«E 

■15 046162 005C37 001 HO 2^1: CL» 

■'6 046166 015737 OOUOO 001U2 K)V 

'17 046174 042737 040200 00V42 SIC 

*18 046202 001413 B€0 

119 046204 062716 000004 ADD 

120 046210 112776 000174 000000 M0V8 
^21 046216 162716 000002 SJ3 
"22 046222 004756 JSR 
125 046224 162716 000010 SUB 
'24 046250 000240 NOP 
V5 'REPORT ERRO 
'26 046252 015757 001350 001142 ^15»: MOV 
127 046240 042757 177177 C01142 8K 
'?8 046246 012757 000600 001140 MOV 
129 0462S4 025737 001140 001142 CMP 

150 046262 001415 8EQ 

151 046264 062716 000004 ADD 
'52 046270 112776 000154 000000 M0V8 

155 046276 162716 000002 SLB 
'54 C46502 004756 JSR 

046504 162716 000010 SU8 

156 046510 000240 NOP 
'57 046512 062716 000004 ?2$: ADD 
H8 046516 105776 000000 TST8 
'59 046522 C01405 8EQ 
140 046524 062716 000004 ADD 
'41 046550 000402 BR 
142 046552 '62716 000004 ^5$: SLB 
'45 046536 000240 241: NOP 
'44 046540 000207 RTS 
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SGDDAT 

RMER2I,S8DDAT 

#S>fIiDVC.J80DAT 

215$ 

#4,(SP) 

#l74,a(SP) 

#2.(SP) 

PC.ifSP)* 

#10. (SP) 



EXPECT ALL ZEROS 

VERIFY RWER2 

IGNORE DEVICE ERRORS 

BRANCH IF OTHER BITS 0 

MOVE SP TO USER'S ERROR CALL 

UITE ERROR NUMBER IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO NO ERROR 



if rmds not initialized 
rmdsi,18ddat ;test drive status register 
#*c<dry:dpr>.$8DDat 

#dpr1 drv. sgddat .-expected drive status 
igddat.sbddat .-compare expected & received 
.-branch if equal 
;move sp to user's error call 
.-write error number 
.-move sp to return for error 
.-report error to user 
.-move sp back to no error 



22% 
»4,(f:P) 

»i54.a(bP) 

#2,(SP) 

PC.a(SP)* 

#10. (SP) 



»4.(SP) 

a(SP) 

23$ 

#4.(SP) 
24$ 

#4.(SP) 



.-MOVE SP TO ERROR CALL 
.-WAS AN ERROE DETECTED?? 
;N01 I 

;YES - MOVE TO ERROR RETURN 
.•MOVE SP TO NO f=RhCffi RETURN 



SEO 0196 



PC 



.J 



5 
6 
7 

e 

9 

10 

11 

12 
15 
U 

15 0«6?42 
16 

18 0A63A2 

19 0A63A6 

20 C46352 
21 

22 

25 0^6356 
2A 0A636A 

25 0A6366 

26 0A637A 

27 0/,6A02 

28 0A6^10 

29 0A6AU 

30 0A6A22 

31 0A6A26 

32 0A6A30 

33 0A6A3A 
3A 0A6A36 
35 

36 

37 0A6436 

38 0A6AA4 

39 0A6A46 
AO 0A6A5A 
A1 0A6A62 
A2 CA6A70 
A3 0A6A7A 
AA 0A6502 
A 5 0A6506 
A6 0A6510 
A7 0A651A 
A8 0A6516 
A9 

50 

51 0A6516 

52 0A652A 
53 

5A 

55 0A6526 

56 0A653A 

57 0A6536 



062716 
105076 
162716 



032737 
001 02A 
013737 
052737 
013737 
062716 
112776 
162716 
0OA736 
162716 
0002A0 



032737 
001 02A 
013737 
052737 
013737 
062716 
112776 
162716 
00A736 
162716 
0002A0 



032737 
001570 



032737 
00U2A 
0137T7 



"lAfWO ;0A.00 
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001350 
000100 
001 350 
OOOOOA 
000155 
000002 

000010 



001350 
010000 
001350 
OOOOOA 
0000A1 
000002 

000010 



OA 0000 
"001352 



SEO 0197 



OOOOOA 
000000 
OOOOOA 



000100 001350 



OO'lAO 
0011 AO 
G011A2 

000000 



010000 001350 



0011 AO 
0011 AO 
0011A2 

000000 



060007 001352 



001352 
001 1A2 



.S8TTL PACK ACICNOULEOGE STATUS CHECK 

THIS SU3ftOUTJNE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE 
COMMAND USING THE STATUS STORED IN THE GET BUfFER. ERRORS ARE 
REPORTED TO THE UaER VIA THE USER'S ERROR CALL. 



CALL: 
(1) 



JSR 

8R 

NOP 

ERROR 

JSR 
■>■>■) 



PC.ACKSTS 
■>•>- 



PC.a(SP)* 



ACKSTS: 

.'CLEAR USER'S ERROR CALL 

ADD »i*,(SP) 

CLR8 a(SP) 

SUB <rA.(SP) 

.■REPORT AN ERROR IF 'VV" IS 0 

BIT #VV.RMDSI 

BNE IS 

MOV RMDSJ.SGDDAT 

BIS *VV.$GDDAT 

MOV RMDSI.SBDDAT 

ADD #A.(SP) 

M0V8 *155.a(SP) 

SUB #2.(SP) 

JSR PC.a(SP)+ 

SUB <riO.(SP) 
NOP 

1$: 

.•REPORT AN ERROR IF "MOL" IS 0 

BIT *MOL,RMDSl 

8r>lE 2$ 

MOV RMDSJ.SGDDAT 

BIS WOL.SGDDAT 

MOV RMDSI.SBDDAT 

ADD M^ASP) 

M0V8 #A1,a(SP) 

SUB #2.(SP) 

JSR PC.a(SP)+ 

SUB <f10.(SP) 
NOP 



2$: 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NLMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



MOVE SP TO ERROR CALL 
CLEAR LOW ORDER BYTE 
MOVE SP BACK 



IS VOLUME VALID SET?? 
YES' I 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO ERROR CALL 

WRITE NUf«ER IN ERROR CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR 

MOVE SP BACK TO BRANCH 



IS MOL SET?? 

YESl 1 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALl 

MOVE SP TO RETURN FOR ERROR 

REPORT TH ERROR 

MOVE SP TO BRANCH 



.-SEE IF "UNS",'10PI"."RMR","ILR", 
BIT *UNS:OPI .RMRIILR 
BEO 7$ 

.•REPORT AN ERROR IF "UNS" IS SET 
BIT *UNS.RMER1I 
BEQ 3f 

MOV RMERII.SBDDAT 



OR "ILF" IS SET 
.'ILF.RMERII 



WAS UNS SET?? 
NO. .' 

RECEIVED STATUS 
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58 
59 

60 
61 
62 
63 
6A 
65 
66 
67 
68 
o9 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
J 08 
109 

no 

111 
11? 
113 

n4 



046544 
046552 
046560 
046564 
046572 
046576 
046600 
046604 
046606 



046606 
046614 
046616 
C46624 
046632 
046640 
046644 
046652 
046656 
046660 
046664 
046666 



046666 
046674 
046676 
046704 
046712 
046720 
046724 
046732 
046736 
046740 
046744 
046746 



046746 
046754 
046756 
046764 
046772 
047000 
047004 
047012 
047016 
047020 
047024 
047026 



047026 
047054 
047056 
047044 



013757 
042757 
062716 
112776 
162716 
004756 
162716 
000240 



052737 
001424 
013737 
013737 
042737 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001424 
013737 
015757 



001552 
C40000 
000004 
000042 
000002 

000010 



•1ACR0 '.'04.00 



001140 
001140 
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SEO 0198 



000000 



5$: 



HOV RMER1I,$G00AT 

BiC #UNS.$GDOAT 

ADD #4.(SP) 

H0V8 #42.a(SP) 

SUB #2.(SP) 

JSR PC.aCSP)* 

SUB <flO.(SP) 
NOP 



;EXPECTED STATUS 

MOVE SP TO ERROR CALL 
WRJTE NUMBER Of ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 









.•REPORT ANY OPI 


EOROR 




052757 


020000 


001552 


BIT 


#CPI.RMER1I 


WAS OPI SET ?? 


001424 






BEQ 


4S 


•NO! .' 


013757 


001552 


001142 


MOV 


RMERII.SBDDAT 


•RECEIVED STATUS 


013757 


001552 


001140 


MOV 


RMERII.tGDDAT 


•EXPECTED STATUS 


042737 


020000 


001140 


BIC 


#OPI,$GDDAT 




062716 


000004 




ADD 


*4,(SP) 


•MOVE SP TO ERROR CALI 


112776 


000043 


000000 


MOVB 


#43.a(SP) 


■WRITE NUMBER OF ERROR IN CALL 


162716 


000002 




SUB 


#2,(SP) 


■MOVE SP TO RETURN FOR ERROR 


004756 






JSR 


PC.aCSP)* 


•REPORT THE ERROR VIA USER 


-62716 


000010 




SUB 


*10, (SP) 


;MOVE SP TO NO ERROR RETURN 


000240 






NOP 







4$: 









.-REPORT ANY RMR 


ERROR 




032737 


000004 


001352 


BIT 


#RMR,RMER1I 


WAS RMR SET?? 


001424 






BEQ 


5$ 


NO! ! 


013737 


001352 


001142 


MOV 


RMERII.SBDDAT 


■RECEIVED STATUS 


013737 


001352 


001140 


MOV 


RMERII.SGDDAT 


■EXPECTED STATUS 


042737 


000004 


001140 


BIC 


*RMR.$GDDAT 




062716 


000004 




ADD 


#4.(SP) 


•MOVE SP TO ERROR CALL 


112776 


000044 


000000 


MOVB 


#44.a(SP) 


•WRITE NUMBER OF ERROR IN CALL 


162716 


000002 




SUB 


#2.(SP) 


•MOVE SP TO RETURN FOR ERROR 


004756 






JSR 


PC,a(SP)+ 


•REPORT THE ERROR VIA USER 


162716 


000010 




SUB 


#10, (SP) 


•MOVE SP TO NO ERROR RETURN 


000240 






NOP 







000002 001552 



5$: 
.•REPORT 



001352 
001352 
000002 
000004 
000045 
000002 

000010 



001142 
001140 
001140 

000000 



000001 001552 



6$: 

.-REPORT 



001352 
001552 



001142 
001140 



ANY ILR ERROR 

BIT #ILR.RMER1I 

BEQ 6$ 

MOV RMERII.SBDDAT 

MOV RMERII.SGDDAT 

BIC #ILR,$GDDAT 

ADD *4,(SP) 

MOVB *45,3(SP) 

SUB #2.(SP) 

JSR PC.a(SP)+ 

SUB #10. (SP) 
NOP 



ANY ILF ERROR 

BIT #ILF.RMER1I 

BEQ 7$ 

MOV RMERII.SBDDAT 

MOV RMERII.SGDDAT 



WAS ILR SET?? 
NO. . 

RECEIVED STATUS 
EXPECTED STATUS 

MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



WAS ILF SET?? 
NO! . 

RECEIVED STATUS 
EXPECTED STATUS 
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115 047052 
M6 047060 
047064 

118 047072 

119 047076 

120 047100 

121 047104 

122 047106 
^25 

124 

125 04-^106 

126 047112 

127 :47n6 

128 047120 

129 047124 

130 047126 
1?i 047132 
^32 047134 



042737 
062716 
112776 
162716 
004736 
162716 
000240 



062716 
105776 
001403 
062716 
000402 
162716 
C00240 
000207 



000001 
C00004 
000046 
000002 

000010 



000004 
000000 

000004 

000004 



MACRO VG4. 

001140 
000000 





E 


16 




ADD— B1 


1 1 -iL^- PACF 


32- 


c 


ntr 
oik. 


W i L r ^ 9\JL'|/Al 1 






Ann 


if A /cp'i 




•MOVP *>P TO PRROP fAl 1 








•URITF MMRFR OF FRROR IN CALL 








'MRVF TO RFTURN FOR FRROR 




pf a(SP)^ 




-REPORT THE ERROR VIA USER 


SUB 


*iO-(SP) 




.-MOVE SP TO NO ERROR RETURN 


NOP 









seo 019V 



7$: 

;AJ(jMENT RETURN ADDRESS 



8$: 
9t: 



ADD 
TSTB 
BEQ 
ADD 
BR 
SiJ8 
NOP 
RTS 



#4. (SP> 

a(SP) 
8S 

#4.(SP) 
9f 

#4,(SP) 
PC 



IF ERROR WAS FOUND 

.•MOVE SP TO ERROR CALL 
;WAS ERROR FOLWD?? 
;N0! . 

;VES - MOVE TO ERROR RETURN 
.•MOVE SP TO NO ERROR RETURN 



'ZRM^eO FCTNL TST 2 "lACRO V04.00 
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2 
3 
4 
5 
6 
7 
8 
9 
10 
1- 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
59 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



047136 



0471 36 
047142 
047146 



047152 
047160 



047162 
047170 
047172 
047200 
047202 
047210 
047216 
047224 
047230 
047236 
047242 
047244 
047250 
047252 



047252 
047260 
047262 
047270 
047276 
047304 
047310 
047316 
047322 
04/324 
047330 
047332 



062716 
105076 
162716 



032737 
C01553 



032737 
001430 
03273/ 
00^024 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001424 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



001352 
000001 
00135? 
000004 
000071 
000002 

000010 



.S8TTL RECALl8r<AiE STATUS CHECK SUBROUTINE 

.•THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION 
.•USING THE STATUS STORED IN THE GET BUFFER. 



CALL; 
(1) 



JSR 

BR 

NOP 

ERROR 

JSR 
■>•>■} 



PC.RCLSTS 



pc.a(sp)» 



RCLSTS: 



000004 
000000 
0C0004 



022011 001352 



000010 001352 

000010 001400 

001352 001140 

000010 001140 

001352 001142 
000004 

000050 000000 
000002 

000010 



000001 001 352 



001140 
001140 
001142 

000000 



.•CLEAR USER'S ERROR NUMBER 
ADD #4.(SP) 
CLR8 5)(SP) 
SUB *4.(SP) 



.-CALL SUBROUTINE 

RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



.•CLEAR USER'S ERROR CALL 
.•MOVE SP BACK TO BRANCH 



.-SEE IF "PAR" OR "ILF" OR "tlPI" OR "lAE" IS SET 
BIT WPI.PAR.ILF.IAE.RMER1I 

BEO 4$ ;NONE ARE SET - 60 TO NEXT CHECK 

.•REPORT ANY MASS8US CONTROL BUS PARITY ERROR. I.E.. 



;'PAR" - 1 AND 'DPE" = 0 

BIT tfPAR.RMERlJ 

BEO 1$ 

BIT *DPE.RMER2I 

BNE 1$ 

MOV RMERII.SGDDAT 

BIC *PAR.$6DDAT 

MOV RMER1I,$BDDAT 

ADD *4,(SP) .-MOVE 

M0V8 *50,a(SP) 

SUB *2.(SP) 

JSR pc.a(sp)+ 

SUB #10. (SP) 
NOP 



SP 



WAS 'VAR" SET?? 
NOI i 

WAS ■T)PE" SET?? 

YES - NOT A REGISTER ERROR 

EXPECTED STATUS 

RECEIVED STATUS 

TO USER'S ERROR CALL 

WRITE ERROR NUMBER IN CALL 

MOVE SP TO RETURN FOR ERROR 

GO REPORT ERROR 

MOVE SP BACK TO BRANCH 



1$: 
.•REPORT 



2$: 



ANY "ILF" ERROR 

BIT AILF.RMERII 

BEO 2$ 

MOV RMER1I.$GDDAT 

BIC #ILF.$GDDAT 

MOV RMER1!,$BDDAT 

ADD #4.{SP) 

M0V8 #71.a(SP) 

SUB .''2.(SP) 

JSR PC.a(SP)+ 

SUB #10. (SP) 
NOP 



SET 



•)7 



WAS "ILF" 
NOi . 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVF SP BACK TO BRANCH 
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001352 




04 74 36 
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04 7440 
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81 


047446 


042737 


002000 


001 140 


82 


047454 


013737 


001352 


001142 


83 


047462 


062716 


000004 

w w w 




8A 


047466 


11 2776 


000070 


000000 


85 


04 7474 


^62^6 


000002 

www WWk 






047500 


004736 






87 


047502 


162716 


00001 0 

wwww • w 




88 


047506 


000240 








047510 








90 










91 
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047510 


032737 


050200 
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001400 

WW ' » w w 


93 


047516 
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047520 


032737 


010000 
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001400 
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047530 
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001400 
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010000 
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001 140 


103 


047544 


013757 


001400 
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001 142 




047552 


062716 


000004 

w w w w w~ 




105 


047556 


n2776 


000074 


000000 

www WW 


106 


047564 


032737 


0001 00 

www 1 w w 


001350 


107 


047572 


001403 






108 


047574 


1 1 2776 


000075 

wwww ' ^ 


000000 

w www w w 


109 


047602 


162716 


000002 




MO 


047606 


004736 






m 


047610 


162716 


000010 




M? 


047614 


000240 






"3 


047616 








M4 











REPORT ANV "XiPI"' ERROR AS 



3$: 



31$: 



OP J 
OPI 
BIT 
BEQ 
WOV 
BIC 
MOV 
ADD 
M0V8 
BIT 
BEQ 
M0V6 
SUB 
JSR 
SUB 
NOP 



DUE TO "m\." = 0 

BECAUSE ON CYLINDER LATCH DIDN'T RESET 



#0PI.RMER1I 
31$ 

RnERII.SGDDAT 

»0PI,$6DDAT 

RMER1I,$8DDAT 

#4,(SP) 

#72. a(SP) 

#«0L,RMDSI 

3$ 

#73.a(SP) 
*2.(SP) 

pc.acsp)^ 

*10.(SP) 



;UAS OPI SET?? 
;N0.' I 
.•EXPECTED STATUS 



RECEIVED STATUS 

MOVE SP TO USER'S ERROR CAJ. 

WRITE ERROR NUMBER IN USER'S CALL 

WAS *WOL" = 0?? 

YES! I 

NO - CHANGE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 



.•REPORT AN ERROR IF "lAE" IS SET 

BIT *IAE.RMER1I 

BEQ 4S 

MOV RMERlI.tGDDAT 

BIC *IAE.$GDDAT 

MOV RMERII.SBDDAT 

ADO #4,(SP) 

MOVB #70.a(SP) 

SUB #2.(SP) 

JSR PC.a(SP)*- 

SUB *10.(SP) 
NOP 

4$: 



IS "lAE" SET?? 
NO. .' 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO ERROR CALL 

WRITE ERROR NUMBER IN USFR'S CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR 

MOVE SP BACK ^0 NO ERROR RETURN 



;SEE IF "SKI" OR "IVC" OR ""DVC" IS SET 
BIT *SKI . IVC.DVC.RMER2I 

BEQ 8$ .-NONE OF THE BITS ARE SET 



REPORT ANY "IVC" ERROR AS 
.IVC WITH VV - 0 
.ERRONEOUS IVC ERROR 
BIT #IVC.RMER2I 
BEQ 6S 

MOV RMER2I.$GDDAT 
BIC #IVC.$GDDAT 
MOV RMER2I .SBDDAT 
ADD #4.(SP) 
MOVB #74.a(SP) 
BIT *VV.RMDSI 
BEO 5$ 
MOVB *75.a(SP) 
SUB *2.(SP) 
JSR PC.a(SP)+ 

sue *io.(SP) 

NOP 



5t: 



WAS IVC SET?? 
NO. I 

EXPECTtD STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER IN CALL 

WAS VV - 0?? 

YES' ' 

NO -"change ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 



6t: 



^FCALlBRATt STATUS 



fNL TST 2 "iAC«0 
CHECK SUBROUTINE 



V04.00 4-APR-81 11:45:53 



H 

PAGE 



16 

55-2 



ns 








■•16 047616 


032757 


C40000 


001400 

W 1 ~ w 


■1 17 047624 


001424 






■•''8 047626 


01 3737 


001400 

W 1 ~ w 


001140 


119 047654 


042757 


040000 

\/~ WW 


0011 40 


120 047642 


013737 


001400 

w • » w 


001 ■'42 


121 047650 


062716 


000004 

WWW" 




122 047654 


1 12776 


000076 

WW' w 


000000 

w W WW 


12? 047662 


162716 


000002 

W W wfc 




124 047666 


004756 






125 047670 


162716 


000010 

wwwV ■ w 




126 047674 


000240 

Www t ~ w 






127 047676 








128 








129 








130 047676 


032737 


000200 


001400 


131 0^*770'^ 


001424 






132 047706 


013757 


001400 


001140 


133 047714 


042757 


000200 


001 140 


154 ZU7722 


0^3737 


001 400 


001142 


135 047730 


062716 


000004 




136 047734 


112776 


000077 


000000 


137 ^77U,2 


162716 


000002 




138 047746 


004736 






139 0^*77^0 


162716 


000010 




140 047754 


000240 






141 047756 








142 








143 








144 047756 


013746 


001350 




145 0W762 


042716 


047676 




146 047766 


022726 


110100 




147 0^7772 


001002 






148 047774 


000137 


050410 




149 050000 








150 








151 
152 














153 050000 


032737 


010000 


001350 


154 050006 


001030 






155 050010 


032737 


020000 


001 352 


156 050016 


001024 






157 050020 


013757 


001350 


001140 


158 050026 


052737 


010000 


001140 


159 050034 


013737 


001350 


001142 


160 050042 


062716 


000004 




161 050046 


112776 


000100 


000000 


162 050054 
■"63 050060 


162716 


000002 




004736 






164 050062 


162716 


000010 




165 050066 


000240 






166 050070 








167 








168 








169 050070 


0Z27Z7 


000100 


001350 


1 '"O 050076 


001030 






171 050100 


032737 


010000 


001400 



.•REPORT ANr "SKJ 
BIT 
BEO 
MOV 
BiC 
MOV 
ADD 
M0V8 

sue 

JSR 

sue 

NOP 

7$: 



•• ERROR 

*SKJ.RMER2I 

7$ 

RMER21 .SGDDAT 

*SKI,$6DDAT 

RMER2I.$BDDAT 

*4.(SP) 
#76.a(SP) 
#2.(SP) 
PC,a(SP)* 
#10. (SP) 



;WAS SKI SET?' 
;N0. : 

.-EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO BRANCH 



ANY 


"DVC" ERROR 




BIT 


*DVC.RMER2] 


WAS "DVC" SET?? 


BEO 


8S 


NO! . 


MOV 


RMER2I.$GDDAT 


EXPECTED STATUS 


BJC 


*DVC.$GDDAT 




MOV 


RMER2l.$BnDAT 


•RECEIVED STATUS 


ADD 


*4,(5P) 


•MOVE SP TO USER'S ERROR CALL 


M0V8 


#77. a(SP) 


■WRITE ERROR NUMBER 


sue 


*2.(SP) 


•MOVE SP TO RETURN FOR FRROR 


JSR 


pc.aisp)* 


■REPORT ERROR VIA USER 


sue 


*10,(SP) 


•MOVE SP TO USER'S BRANCH 


NOP 







8$: 

;SEE IF 'PIP' AND "OM" ARE 0. AND "ATA"/MOL" AND "Vv" ARI 1 

MOV RMDSI.-(SP) .-PUT RMDS ON STACK 

BIC **C<PIP:M0L!VV.0M.ATA>.(SP) 

CMP #ATA.'M0L.VV.(SP) + 

BNE 85$ 

JMP 13$ 



85$: 

.•REPORT AN ERROR If MOL - 0 AND OPI 0, I. 
.•lINE after RECALIBRATE WAS INITIATED 



MEDIUM WENT OFF 



91: 



BIT 
BNE 
BIT 
BNE 
MOV 
BIS 
MOV 
ADD 
M0V8 

sue 

JSR 

sue 

NOP 



ffMOL.RMDSI 
9$ 

tfOPI.RMERlI 
9$ 

RMDSI.$GODAT 
#MOL,$GODAT 
RMDSI.$BDDAT 



DID MOL DROP?? 

NO! ! 

WAS OPI ERROR REPORTED?? 
YfcS - DON'T REPORT MOL=0 
EXPECTED STATUS 

.•RECEIVED STATUS 



*4.(SP) .-MOVE SP TO USER'S ERROR CALL 



#100,a(SP) 
*2.(SP) 

pc.a(SP)+ 

*10. (SP) 



.-REPORT AN FRROR IF 'VV" - 
BIT ffVV.RMDSI 
BNE 10$ 
BIT *Iv'C.RMER2I 



WRITE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO USER'S BRANCH 



0 AND "IVC" = 0 

DID "VV" DROP?? 
NO! . 

WAS THERE A WC ERROR?? 



WeO ffTNL TST 2 rWCRO VOA.OO 

IBRAIE ^US CHECI^ SUBROJTINE 



1 7? 


nsm in 


001 02^ 






1 7? 


m ^7X7 


r.oi xso 
nni xsn 

000100 


001 140 


1 7L 




01 X7X7 


001 142 

\J\J 1 1 •*c 


1 7S 

1 r J 




nS27^7 

\JjC I Jf 


001 140 

VV ' 1 "tV 


' D 




062716 










1 1 2776 


000101 


000000 
vvvvvv 


1 7fi 




162716 


OOOOOP 






nsni sn 


00^7^6 






1 Rfl 
1 ou 


nsni S2 


162716 






I O 1 


nsol SA 


000240 






' Oc 










1 O J 




















* O J 




0X2737 


1 00000 


001 350 

W 1 J -/V 


1 Ow 




001 024 






1R7 


osni 70 


01 X7X7 


001 ^so 


001 140 

VV 1 "tV 




0501 Its 


052737 


100000 


001 140 

VV 1 1 V 


1 


050204 


01 3737 


001 350 


001 142 




050212 


062716 


000004 

wwv~ 




191 


C50216 


112776 


OC0102 

WV 1 Vi 


000000 

W VWV 


192 


050224 


162716 


000002 

WV wt 




193 


050230 


004736 






194 


050232 


162716 


000010 

WW 1 V 




195 


050236 


000240 






196 










197 


050240 








198 










1 WW 










POO 










Cw 1 


050240 


032737 


000001 

WVW 1 


001350 

W 1 — / v 


POP 


050246 


001424 






P0< 

C V J 


050250 

v JVC v/ 


01 3737 


001350 


001 140 




050256 




000001 

WVW 1 


001 140 


P05 


050264 


01 5737 


001350 

V V 1 J > V 


001142 


P06 




062716 


000004 

V w w~ 




?07 


050276 


112776 


000103 

V V V 1 V tJ 


000000 

www 


?08 


050304 


162716 


000002 

W V WL. 




P09 


050310 


004736 






210 


050312 


162716 


000010 

WVV 1 V 




?1 1 


050316 


000240 






PIP 


050320 








?13 










PK 










215 

P*16 










050320 


032737 


020000 

VC WW 


C01350 

W 1 J^V 


21 7 


05P326 


001430 

V/v ' ~ Jv 






218 


050330 


032737 


040000 

V » WVV 


001400 

V V P ~ VV 


219 


050336 


00 1 024 






220 


050340 


013737 


001350 

V V 1 -> > V 


001 140 

W 1 ' ~ V 


221 


050346 


042737 


020000 

VC WW 


001 140 

W 1 1 ■'V 


222 

c c c 


050354 


013737 


001350 

W 1 V 


001 142 


22 S 


050362 


062716 


000004 




22A 


050366 


112776 


000104 


000000 


225 


05037A 


162716 


000002 




226 


050400 


004736 






227 


050402 


162716 


000010 




228 


050406 


000240 







10$: 



I 

4-APR-81 11 •43:53 PAGE 



BNE 10$ 

MOV RMDSJ.$&DDAT 

MOV RMDS].$BDDAT 

BIS *VV.$GDDAT 

ADD *4,(SP) 

M0V8 #101,a(SP) 

sue »2ASP) 

jSR pc.a(SP)* 

sue #10. (SP) 

NOP 



16 

33-3 



.-VES - DONT REPORT VV=C 
.-EXPECTED STATUS 
.•RECEIVED STATUS 

.MOVE SP TO USER'S ERROR CALL 
.-WRITE ERROR NUMBER IN CALL 
.•MOVfc SP TO RETURN FOR CRROR 

.■MOVE SP BACK TO USER'S BRANCH 



.■REPORT m EftROR IF ATA IS NOT SET 



BIT *ATA.RMDSI 

BNE 11$ 

MOV RMDSI.$GDDAT 

BIS #ATA.$GDDAT 

MOV RMDSl.SBDDAT 

ADD *4.(SP) 

'OVB *102.a(SP) 

SUB *2.(SP) 

JSR pe.a(SP)* 

SUB *10.(SP) 
NOP 



;WAS ATA SET DURING RECALIBRATE 
;YES; . 

.•EXPECTED STATUS 

.-RECEIVED STATUS 

.-MOVE SP TO USER'S ERROR CALL 

.-WRITE ERROR NUMBER IN CALL 



.-MOVE SP TO USER'S BRANCH 



11$: 

; REPORT 
.-ALWAVS 



12$: 



AN ERROR IF "OM" IS NOT ZERO BECAUSE RECALIBRATE SHOULD 

CLEAR OFFSET MODE 

BIT #OM.RMDSI 

BEO 12$ 

MOV RMDSI.$GDDAT 

BIC #OM.$GDDAT 

MOV R«DSI,$BDDAT 

ADD <r4.(SP) 

M0V8 #103.a(SP) 

SUB ft2.(SP) 

JSR PC.a(SP)* 

sue /rio,(SP) 

NOP 



WAS 'DM" RESET?? 
VES ' 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO USER'S BRANCH 



.-REPORT AN ERROR IF "PIP" IS STIL ON. I.E., DRIVE NOT ON 
.-CYLINDER 



BIT ffPIP.RMDSI 

BEO 13$ 

BIT *SKI,RMER2I 

BNE 13$ 

MOV RMDSI,$GDDAT 

BIC #PIP. $GDDAT 

MOV RMDSI.$BDDAT 

ADD <'4,(SP) .-MOVE 

Move #i04,a(SP) 

SLd *2.(SP) 

JSR pc,a(SP)+ 

sue *io.(SP) 

NOP 



.-IS DRIVE OFF CYLINDER?? 
;N0. ! 

:UfiS "SKI" DETECTED?? 
.-YES-DONT REPORT "PIP" 
.■EXPECTED STATUS 

.-RECEIVED STATUS 
SP TO USER'S ERROR CALL 
.-WRITE ERROR NUMBER 
.•MOVE SP TO RETURN FOR ERROR 

;MOVE SP BACK TO JSFR'S BRANCH 



"IfimBQ W05/5/2 fCTML TST 2 MACRO V(K.OO 
t<ECALlBRATE STATUS CH£U SU8R0UTi»«E 



J 16 

4-APR-81 11:43:33 PAGE 33-A 



SfO 



239 
2A1 



?29 050410 

230 

251 

232 050410 

235 050416 
234 

235 

236 050420 

237 050426 

238 050430 
050436 
050444 
050452 

242 050456 

243 050464 

244 050470 

245 050472 

246 050476 

247 050500 
248 

249 

250 050500 

251 050506 

252 050510 

253 050516 

254 050524 

255 050532 

256 050536 

257 050544 

258 050550 

259 050552 
26U 050556 
261 050560 
262 
263 
?64 



265 



050560 
050566 

266 050570 

267 050576 

268 050600 

269 050606 

270 050614 

271 050622 

272 050626 

273 050634 

274 050640 

275 050642 

276 050646 

277 050650 
278 

279 

280 050650 

281 050654 

282 050660 

283 050662 
" 050666 

050670 



284 
285 



032737 
001514 



032737 
001424 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001424 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 
U00,''40 



032737 
001430 
032757 
001024 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



062716 
105776 
001403 
062716 
000402 
162716 



0«.0006 001352 



000002 001352 



001352 
000002 
001 352 
000004 
000105 
000002 

000010 



001352 
000004 
001352 
000004 
000106 
000002 

000010 



040000 

000200 

001352 
040000 
001352 
000004 
000107 
000002 

000010 



000004 
000000 

000004 

000004 



001140 
001140 
001142 

000000 



000004 001352 



001140 
001140 
001142 

000000 



001352 

001400 

001140 
001140 
001142 

000000 



13$: 



;SEE IF "ILR" OR "Rm" OR "UNS" IS SET 
BIT «ILR.'RMR'.UNS,RMER1I 
BEQ 16S 



;REPORT AN ERROR IF "ILR" IS SET 



14$: 



BIT #ILR.RMER1I 

BEO 14$ 

MOV rm:rii.$gddat 

BIC *ILR,$GDDAT 

MOV RMER1I.$BDDAT 

ADD *4.(SP) .-MOVE 

M0V8 <no5,a(SP) 

SUB #2.(SP) 

JSR pc.a(sp)* 

SUB *10,(SP) 
NOP 



.-WAS ILR SET DURING RECAL IBRATfc .' 
;N01 : 

.•EXPECTED STATUS 

.■RECEIVED STATUS 
SP TO USER'S ERROR CALL 

.-WRITE ERROR NUMBER IN CALL 
.-MOVE SP TO RETURN FOR ERROR 

.•MOVE SP TO USER'S BRANCH 



.•REPORT AN ERROR If "RMR" IS SET 



BIT 


*RMR.RMER1I 


;WAS RMR SET?? 


BEO 


15$ 


;N0. ! 


MOV 


RMERII.SGDDAT 


.•EXPECTED STATUS 


BIC 


#RMR.$GDDAT 




MOV 


RMER1I ,$BDDAT 


.•RECEIVED STATUS 


ADD 


*4.(SP) 


;MOVF SP TO USER'S ERROR CALL 


MOVB 


#106.a(SP) 


.-WRITE ERROR NUMBER IN USER'S CALL 


SUB 


*2,(SP) 


.•MOVE SP TO RETURN FOR ERROR 


JSR 


PC.a(SP)+ 


.-REPORT ERROR VIA USER 


SUB 


*10.(SP) 


.-MOVE SP TO USER'S BRANCH 


NOP 







15$: 

.-REPORT AN ERROR IF 'IJNS" IS SET 

BIT *UNS.RMER1I 

BEQ 16$ 

BIT *DVC.RMER2I 

BNE 16$ 

MOV RMER1I.$GDDAT 

BIC #UNS.$GDDAT 

MOV RMER1I.$BDDAT 

ADD *4.(SP) 

MOVB #107.a(SP) 

SUB *2.(SP) 

JSR PC.a(SP)+ 

SUB *10.(SP) 
NOP 

16$: 



AND "DVC" IS 0 
WAS UNSAFE ON?? 
NO! .' 

WAS THERE A DEVICE CHECK?? 
YES - DON'T REPORT UNSAFE 
EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR TALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO USER'S BRANCH 



.-AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 



17$: 



ADD *4.(SP> 

TST8 a(SP) 

BEQ 17$ 

ADD *4.(SP) 

BR 18$ 

sua #4.(SP) ;N0 ERROR - RETURN SP TO BRANCH 



MOVE SP TO USER'S ERROR CAl L 
WAS AN ERROR REPORTED?? 
NO. . 

YES - AUGMENT SP RETURN 



K 16 

CZR^fiBO RM05/'?/2 fC'Nt TST 2 MACHO VO^i.OO 4-APR-81 11:43:3? PAGE 33-5 

CALIBRATE STATUS CHECK SUSROJTI*^ SEO 0?0^» 

?86 050674 000240 18S: NOP 

L'87 050676 000207 Rts PC .-STATUS CECK IS tOMPlETf 



'\L TST 2 MAC WO v'04.00 
Hf^K SUBROUTINE 



L 16 

4-APR-81 11:45:53 PAGE 34 



4 

5 
6 
7 

8 

9 050700 
10 

n 

1? 050700 062716 000004 

13 050704 105076 000000 

14 050710 16P716 000004 
15 

16 050714 013737 001336 

17 050722 042737 173700 
'3 050730 012737 004010 

19 050736 023737 001140 

20 C50744 001443 

21 050746 062716 000004 

22 050752 112776 000141 

23 050760 162716 00000? 

24 050764 004736 

25 050766 162716 000010 

26 050772 000240 
27 

28 050774 013737 001350 

29 051002 042737 021101 

30 051010 012737 010600 

31 051016 023737 001140 

32 051024 001413 

33 051026 062716 000004 
54 051032 112776 000142 

35 051040 162716 000002 

36 051044 004736 

37 051046 162716 000010 
58 051052 000240 

39 

40 051054 005037 001140 

41 051060 013737 001552 

42 C51066 001413 

45 051070 062716 000004 

44 051074 112776 000143 

45 051102 162716 000002 

46 051106 004736 

47 051110 162716 000010 

48 051114 000240 
49 

50 051116 013737 

51 051124 010146 

52 051126 010246 

53 051130 013701 

54 051134 116i02 

55 051140 042702 

56 051144 005102 

57 051146 040237 001142 



001466 
000001 
1 77400 



001142 
001142 
001140 
001142 



OOOOOC 



001142 
001142 
001140 
001142 



000000 



001142 
000000 



001354 00r42 



,S8TIL DRIVE CLEAR STATUS CHECK SUBROUTINE 



BR 

NOP 

ERROR 

JSR 
■>">•) 



pc.a(sp>* 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



DRVSTS: 
.'CLEAR 



.•REPORT 
4$: 



.•REPORT 
5$: 



; RE PORT 
6$: 



.•REPORT 
8$: 



USER'S 
ADD 
CLR8 
SUB 
ERROR 
MOV 
BIC • 
MOV 
CMP 
BEO 
ADD 
M0V8 
SUB 
JSR 
SUB 
NOP 
ERROR 
MOV 
BIC 
MOV 
CMP 
BEO 
ADD 
M0V8 
SUB 
JSR 
SUB 
NOP 
ERROR 
CLR 
MOV 
BEO 
ADD 
M0V8 
SUB 
JSR 
SUB 
NOP 
ERROR 
MOV 
MOV 
MOV 
MOV 
M0V8 
BIC 
LOM 
BIC 



ERROR CALL 

*4,(SP) .-MOVE SP TO ERROR CALL 

a(SP) .-CLEAR ERBOR CALL 

/r4.(SP) .-MOVE SP TO USER'S BRANCH 

IF RMCS1 NOT INITIALIZED 

RMCSII.SBDDAT ; CHECK RMCSl 
#*C<DVA.FNCMSK>.$8DDAT ; CLEAR DONT CARES 
*DVA.DRVCLR.$GDDAT .-EXPECT DVA 



SGDDAT.SBDDAT 
6$ 

*4,(SP) 
#141 .a(SP) 
#2.(SP) 

pc,a(sp)+ 

#10. (SP) 

if rmds not ini 
rmdsi.sbddat 
#pgmiom!vv!pi 
#mol:dpr:dry. 
sgddat.sbddat 

6S 

#4,(SP) 
#142,a(SP) 
#2,(SP) 
PC.S(SP)+ 
#10. (SP) 



COMPARE EXPECTED I RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



TIALIZED 

.-CHECK RMDS 
P.SBDDAT .-CLEAR PONT CARES 
SGDDAT .-EXPECT DRY & DPR 
COMPARE EXPECTED 6 RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



IF RMER1 NOT INITIALIZED 



$GDDAT 

RMERII.SBDDAT 
8$ 

#4.^SP) 
#143.a(SP) 
#2.(SP) 
PC.a(SP)+ 

#10. (SP) 



EXPECT O'S 

CHECK RMERl 

BRANCH IF EQUAL 

MOVE SP TO ERROR CALL 

WRITE NUMBER CF ERROR IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR VIA USER 

MOVE SP TO NO ERROR RETURN 



IF ATA NOT INITIALIZED 



RMASI.$BDDAT 

R1,-(SP) 

R2.-(SP) 

TSTQUE.R1 

1 (R1).R2 

#*CATNMSK.R2 

R2 

R2.$8DDAT 



CHECK ATTENTION BIT 
.-PUSH R1 ON STACK 
.-PUSH R2 ON STACK 



58 
S9 
60 
61 
62 
63 
(A 
t5 
66 
67 
68 
o9 
^0 
71 
72 
73 
74 
^5 
76 
77 
?8 
79 
80 
81 
8? 
83 
84 
8b 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
9/ 
98 
99 
TOO 
101 
102 
105 
104 
105 
106 
107 
108 
109 
110 
111 
11? 
113 

n4 



RM05/3/2 FCTNL TST 2 »1AC«0 
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n 

PAGE 



16 
34-1 



051152 
051154 
051156 
051162 
051164 
051170 
051176 
051202 
051204 
051210 

051212 
051220 
051226 
051234 
051242 
0*!1244 
051250 
051256 
051262 
051264 
051270 

051272 
051300 
051306 
051314 
051322 
051324 
051330 
051336 
051 542 
051544 
051350 
051552 

051556 
051364 
051366 
051372 
051400 
051404 
051406 
051412 

051414 
051422 
051424 
051430 
051436 
051442 
051444 
051450 
051452 

051452 



012602 
012601 
005737 
00H13 
062716 
112776 
162716 
004736 
162716 
000240 

013737 
042737 
012737 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 

013737 
042737 
012737 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 
005037 

013737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 

013737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 



001142 

000004 
000144 
000002 

000010 



001 362 
000046 
000010 
001140 

000004 
000145 
000002 

000010 



001 376 
140000 
011777 
001140 

000004 
000146 
000002 

000010 

001140 

001404 

000004 
000150 
000002 

000010 

001400 

000004 
000147 
000002 

000010 



000000 



001142 
001142 
001140 
001142 



000000 



001142 
001142 
001140 
001142 



000000 



001142 
000000 

001142 

000000 



MOV 
NOV 

TST 

BEO 

ADD 

M0V8 

SUB 

JSR 

SUB 

NOP 

.•REPORT ERROR 
9$: MOV 
BIC 
MOV 
CMP 
BEO 
ADD 
M0V8 
SUB 
JSR 
SUB 
NOP 

.•REPORT ERROR 
11$: MOV 
BIG 
MOV 
CMP 
BEO 
ADD 

Move 

SUB 
JSR 
SUB 
NOP 

15$: CLR 
.•REPORT ERROR 
MOV 
BEO 
ADD 
M0V8 
SUB 
JSR 
SUB 
NOP 

.-REPORT ERROR 
17$; MOV 
BEQ 
ADD 
M0V8 
SUB 
JSR 
SUB 
NOP 

18$: 
19$: 



(SP;*.R2 

(SP)*.P1 

$8DDAT 

9$ 

*4.(SP) 

#144.a(SP) 

#2.(SP) 

pc.a(SP)«- 

#10. (SP) 



;;POP STACK INTO ft2 
;;POP STACK INTO R1 
;IS ATTENTION CLEARED?? 
.•BRANCH If ATTENTION CLEARED 
.•MOVE SP TO ERROR CALL 
.•WRITE NUr«ER OF ERROR IN CALL 
.•MOVE SP TO RETURN FOR ERROR 
.•REPORT THE ERROR VIA USER 
.-MOVE SP TO NO ERROR RETURN 



if rmmr1 not initialized 
rmmr1i.$bddat ; check rmmr 
*uc:lsilst,$8ddat .-clear dont cares 



#MUD,$GDDAT 
$GDDAT,$BDDAT 
11$ 

*4.(SP) 

#145.a(SP) 

*2,(SP) 

PC.a(SP)* 

*10.(SP) 



EXPECT WRITE DATA ON 
COMPARE EXPECTED AND RECEIVED 
BRANCH IF ZERO 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



IF RMMR2 NOT INITIALIZED 



RMMR2I,$8DDAT 
*R0A1RQB,$BDDAT 
#TST; 1777.$CDDAT 
$GDDAT,$BDDAT 
15$ 

#4,(SP) 
*146.a(SP) 
»2.(SP) 
PC.a(SP)*- 
#10. (SP) 

$GDDAT 
IF RMEC2 NOT RESET 
RMEC2I .$8DDAT 
17$ 

#4.(SP) 

#i50,a(SP) 

#2.(SP) 
PC.S(SP)* 
#10. (SP) 

IF RMER2 NOT RESET 
RMER2I ,$BDDAT 
18$ 

#4.(SP) 
#147,a(SP) 
#2.(SP) 

pc.a(SP)+ 

#10. (SP) 



CHECK RMMR2 
CLEAR REOA. REQ8 

.•EXPECT TEST BIT ON 
COMPARE EXPECTED £ RECEIVED 
BRANCH IF EOUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 

.•EXPECT ZEROS 

CHECK RMEC2 
BRANCH IF 0 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



CHECK RMER2 

BRANCH IF NO ERROR 

MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR VIA USER 

MOVE SP TO NO ERROR RETURN 



jsmnbo hm05/5/2 fctnl "st 2 macro v04. 00 4-apr-81 11:43:53 
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N 

PAGE 



If 



sf u 0?08 



116 05K5? 062716 000004 

M7 0SKS6 105776 000000 

"18 05 K6? 00U03 

'19 05K64 062716 000004 

120 051470 000402 

121 051472 162716 000004 
'22 051476 000240 

123 051500 000207 



; AUGMENT RETURN ADDRESS 

ADD #4.(SP) 

TST8 a(SP> 

BEQ 21S 

ADD #4.(SP) 

BR 25$ 

21t: SII3 «4.(SP) 

25S: NOP 

RTS PC 



IF ANV ERROR WAS FOUT^D 

.•MOVE SP TO ERROR CALL 
;UAS AN ERROR DETECTED?? 
*N0 ' ' 

* -yES- MOVE SP TO ERROR RETURN 
:MOVE SP BACK TO NO ERROT' RETURN 
.•RETURN TO USER 



B 1 
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SEO 0209 



1 
2 
3 

0 
6 
7 

8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



051502 



051502 
051506 
051512 
051516 



051522 
051530 
051532 
051540 
051546 
051554 
051560 
051566 
051572 
051574 
051576 



051576 
051604 
051606 
051614 
051616 
051624 
051632 
051640 
051644 
051652 
051660 
051662 
051670 
051674 
051076 



062716 
105076 
162716 
005037 



032737 
001422 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
000466 



032737 
001435 
032737 
001031 
013737 
042737 
013737 
062716 
112776 
032737 
001003 
112776 
162716 
004736 
000425 



0C0O04 
000000 
000004 
055076 



020000 001 336 



001336 
020000 
001336 
000004 
000013 
000002 



000010 

000010 

001352 
000010 
001352 
000004 
000C50 
001000 

000274 
000002 



001140 
001140 
001142 

000000 



001352 

001400 

001140 
001140 
001142 

000000 
001346 

OOOCOO 



.SBTTL DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 

THIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER COMMANDS 
USING STATUS STORED IN THE GET BUFFER AND TEST PARAMETERS 
STORED IN THE PUT BUFFER. ERRORS ARE REPORTED BY WRITING 
THE ERROR NUMBER IN THE USERS ERROR CALL. 



USER'S SUBROUTINE CALL; 



(1) 
(2) 
(3) 
(4) 
(5) 
(6) 



DTASTS: 



JSR 
BR 
NOP 
ERROR 

JSR 

■>•> 



PC. DTASTS 



pc.a(sp^* 



RETURN HERE IF NO DATA ERRORS 
RETURN HERE TO REPORT AN ERROR 
sue WRITES ERROR NUMBER 
USER RETURNS FOR MORE CH«^CKS 
SUB RETURNS HERE AFTER ALL 
ERRORS ARE REPORTED 



.-CLEAR USER'S ERROR CALL AND ERROR FLAGS 



ADD 
CLR8 
SUB 
CLR 



#4,(SP) 

acsp) 

#4.(SP) 
500$ 



MOVE SP TO USER'S ERROR 
CLEAR LOW ORDER BYTE OF TRAP 
RESTORE SP TO NO ERROR 
CLEAR ERROR FLAGS 



.-REPORT ANY CONTROL BUS PARITY ERROR WHILE READING REMOTE REGISTERS. 



.•I.E., 



10$: 



MCPE = 1 

BIT *MCPE.RMCS1I 

BEQ 10$ 

MOV RMCS1I.$GDDAT 

BIC *MCPE.$GDDAT 

MOV RMCS1I,$8DDAT 

ADD #4.(SP) 

MOVB #13.a(SP) 

SUB *2.(SP) 

JSR PC.a<SP)+ 

BR 30$ 



.REPORT ANY 



.-I.E., 



15$: 



CONTROL BUS PARITY 
PAR - 1 AND DPE = 0 

BIT /irPAR.RMERlI 

BEQ 20$ 

BIT #DPE,RHER2I 

BNE 20$ 

MOV RMER1I.$GDDAT 

BiC /irPAR.SGDDAT 

MOV RMER1I,$8DDAT 

ADD #4.(SP) 

MOVB /ir50.a(SP) 

BIT *MXF.RMCS2I 

BNE 15$ 

MOVB #274, a (SP) 

SUB #2.(SP) 

JSR PC.a(SP)* 

BR 30$ 



WAS THERE A PARITY ERROR''? 
NO! : 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

U^ITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 



ERROR WHILE WRITTING REMOTE REGISTERS. 



WAS THERE A PARITY ERROR?? 

NO! i 

DATA PARITY ERROR ? 

YES ' ' 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR 
WRITE ERROR NUMBER 
DID MXF GET SET?? 

YES! ! 

NO - CHANGE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 



.■LOOK FOR ANY ERRORS WHICH MAY HAVE OCCURRED DURING COMTWND INF 1 AT ION OR 



nci 7fVi 

UJ I fKAJ 








20$: 




051700 


032737 


001000 


001346 




BIT 


051706 


0OK25 








BEO 


U J 1 r 1 u 


ni '^777 
U 1 jfji 


nni 


nni 1 ^n 




MOV 


n*;! 71 A 




W 1 vvv 






BIC 


051 724 


013737 


001 346 


001142 




MOV 


051732 


062716 


000004 






ADD 


051736 


112776 


000275 


000000 




M0V8 


051 7AA 


162716 


000002 






sue 


051750 


004736 






30$: 


JSR 


051752 


















.•RESTORE SP TO 


051752 


162716 


000010 






sue 


051756 


000137 


055050 






JMP 



051762 
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58 
59 
60 
6^ 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

no 
111 

112 
113 
114 
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PAGE 



1 

35-1 



SEO 0210 



.•MECHANICAL POSITIONING 

.-FIRST TEST MXF WHICH WOULD INDICATE 
:C0DE AND GO BIT WERE LOADED 



COMPOSITE ERROR SET WHEN FUNCTION 



*MXf .RMCS2I 
40$ 

RMCS2I,$GDDAT 

*MXF.$GDDAT 

RMCS2I.$BDDAT 

*4.(SP) 

*275.a(SP) 

*2,(SP) 

PC,a(SP)* 



*10.(SP) 
380$ 



40$: 



REPORT AN 
AND 'MOL" 



ERROR IF 
ARE SET, 



"DPI*" ERROR 
BUT 'VV" IS 



051762 


032737 


020000 


001352 




BIT 


*0PI.RMER1I 


051770 


001447 








BEO 


60$ 


051772 


013737 


001352 


001140 




MOV 


RMER1I.$GDDAT 


052000 


042737 


020000 


001140 




BIC 


*OPI.$GDDAT 


052006 


013737 


001352 


001142 




MOV 


RMER1I.$8DDAT 


052014 


032737 


010000 


001350 




BIT 


*MOL.RMDSI 


052022 


001404 








BEO 


45$ 


052024 


032737 


000100 


001350 




BIT 


m.RMDSI 


052032 


001013 








BNE 


50$ 


052034 


062716 


000004 




45$: 


ADD 


*4.(SP) 


052040 


112776 


000276 


000000 




M0V8 


#276.a(SP) 


052046 


162716 


000002 






sue 


*2,(SP> 


052052 


004736 








JSR 


pc,a(SP)+ 


052054 


162716 


000010 






sue 


*10.(SP) 


052060 


000413 








BR 


60$ 


052062 








50$: 







WAS 'MISSED TRANSFER"' SET?? 
NO. 1 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP ^0 USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 



;MOVE SP TO NO ERROR 
;SKIP TO END OF SUB 



OCCURRED DUE TO "WOL" - 0. OR IF "OPV 
RESET, INDICATING AN INTERMITTENT 

IS '10PI" SET?? 
NO! J 

EXPECTED STATUS 



received status 

was medium off line?? 

yes: ! 

'j*s "wol" intermittent?? 

\Z I 

MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 



052062 
052066 
052074 
052100 
052102 
052106 
052110 



052110 
052116 



062716 
112/76 
162716 
004736 
162716 
000240 



032737 
001432 



052120 013737 



000004 
000277 
000002 

000010 



010000 
001400 



000000 



.•REPORT '10PI" ERROR. WHICH IS DUE TO 'ION 
;'1RUN" TIMEOUT (20 MS) OR SEARCH TIMEOUT 
#4,(SP) 

*2.(SP) 
PC.aCSP)* 
*10.(SP) 



60S: 



ADD 

Move 
sue 

JSR 

sue 

NOP 



CYLINDER" NOT DROPPING OR 

(50 MS) 

MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 



001400 
001140 



INITIATION 
THERE AN "IVC 



ERROK 



.•LOOK FOR "IVC" ERROR DURING COMMAND 

BIT *IVC,RMER2I ;WAS 

8EQ 70$ ;N0! . 

.•REPORT "IVC" fRROR DUE TO 'VV" 0. OR REPORT ERRONEOUS 

MOV RMER2I.$GDDAT .-EXPECTED STATUS 



'IVC" ERROR 
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S£0 0211 



115 


052126 


042737 


010000 


001140 


116 


052134 


013737 


001400 


001142 


117 


052142 


062716 


000004 




118 


052146 


112776 


000300 


000000 


119 


052154 


032737 


000100 


001 350 


120 


052162 


001403 






121 


052164 


1 1 2776 


000301 


000000 


122 
'23 


052172 


162716 


000002 




052176 


004736 






12A 


052200 


162716 


000010 




125 


052204 








126 










127 










128 


052204 


032737 


000007 


001352 


129 


052212 


001510 






130 










131 


052214 


032737 


000002 


001352 


132 


052222 


001424 






133 


052224 


013737 


001352 


001140 


134 


C52232 


042737 


0C0002 


001 140 


135 


052240 


013737 


001352 


001142 


136 


052246 


062716 


000004 




137 


052252 


112776 


000302 


000000 


138 


052260 


162716 


000002 




139 


052264 


004736 






HO 


052266 


162716 


000010 




U1 


052272 


000240 






142 


052274 








143 










144 










145 


052274 


032737 


000001 


001352 


He 
'47 


052302 


001424 






052304 


013737 


001352 


001140 


148 


052312 


042737 


000001 


001 140 


149 


052320 


013737 


001352 


001142 


150 


052326 


062716 


000004 




151 


052332 


1 1 2776 


000303 


A AM A A A 

000000 


152 


052340 


162716 


000002 




153 


052344 


004736 






154 


052346 


162716 


000010 




155 


052352 


000240 






156 


052354 








157 










158 










159 


052354 


032737 


000004 


001352 


160 


052362 


001424 






161 


052364 


013737 


001352 


001140 


162 


052372 


042737 


000004 


001 HO 


163 


052400 


013737 


001352 


001142 


164 


052406 


062716 


000004 




165 


052412 


112776 


000304 


A A A A A A 

000000 


166 


052420 


162716 


AAA AM ^ 

000002 




167 


052424 


004736 






168 


052426 


162716 


000010 




169 


052432 


000240 






170 


052434 








171 











65S: 

70$: 
.-SEE IF 

.•REPORT 



BIC 


#IVC,$GDDAT 




MOV 


RMER2I ,S8DDAT 


RECfcJVED STATJS 
•MOVE SP TO USER'S ERROR 


ADD 


#4,(SP) 


M0V8 


#300.a{SP) 


■WRITE ERROR NUMBER IN CALL 


BIT 


/ifVV.RMDSI 


•WAS VOLUME VALID?? 


BEQ 


65$ 


•no: I 


M0V8 


#301.a(SP) 


•CHANGE ERROR NUMBER 


SUB 


*2,(SP) 


jMOVE SP TO RETURN IF ERROR 


JSR 


Pc.a(SP)* 


;REPORT "'IVC" ERROR AND RETURN 


sue 


*10.(SP) 


^RESTORE SP TO NO ERROR 



"ILF" 


OR 'W1R" IS SET 




BIT 


#ILR.ILF !RMR. 


RMER1 I 


BEQ 


100$ 


;N0 ERRORS DETECTED 


AN ERROR IF "ILR" IS 


SET 


BIT 


*ILR,RMER1I 


;WAS "ILR" DETECTED?? 


BEQ 


80$ 


;N0. I 


MOV 


RMER1I,$6DDAT 


.•EXPECTED STATUS 


BIC 


*ILR,$GDDAT 




MOV 


RMER1I.$8DDAT 


.•RECEIVED STATUS 


ADD 


#4,(SP) 


.•MOVE SP TO USER'S ERROR CALL 


M0V8 


*302.a{SP) 


.•WRITE ERROR NUMBER IN CALL 


SUB 


*2,(SP) 


.•MOVE SP TO RETURN IF ERROR 


JSR 


PC,a(SP)+ 


.-REPORT ERROR AND RETURN 


sue 


#10. (SP) 


.•RESTORE SP TO NO ERROR 


NOP 







80$: 

.-REPORT AN ERROR IF "ILF" IS SET 

BIT *ILF,RMER1I 

BEQ 90$ 

MOV RMER1I.$6DDAT 

BIC *ILF.$GDDAT 

MOV RMER1I,$8DDAT 

ADD *4,(SP) 

MOVe #303, a (SP) 

sue #2.(SP) 

JSR pc.a(sp)* 

sue #10. (SP) 

NOP 

90$: 

.-REPORT AN ERROR IF "RMR" IS SET 



WAS "ILF" DETECTED?? 
NOl .' 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERORR AND RETURN 
RESTORE SP TO NO ERROR 



BIT 


#RMR.RMER1I 


.WAS "RMR" DETECTED?? 


BEQ 


100$ 


;N0! . 


MOV 


RMER1I,$GDDAT 


;EXPECTED STATUS 


BIC 


#RMR,$GDDAT 




MOV 


RMER1I,$BDDAT 


.-RECEIVED STATUS 

.-MOVE SP TO USER'S ERROR CALL 


ADD 


#4.(SP) 


M0V8 


#304. a (SP) 


; WRITE ERROR NUMBER IN CALL 


sue 


#2,(SP) 


.-MOVE SP TO RETURN IF ERROR 


JSR 


PC.a(SP)* 


.•REPORT ERROR AND RETURN 


sue 


#10. (SP) 


.-RESTORE SP TO NO ERROR 


NOP 





100$: 

.-DETERMINE WHETHER OR NOl "lAE" SHOULD BE SET AND CHECK FOR ERROR 
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E 
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1 
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SEO 021? 



W2 

173 

17A 

175 

176 

177 

178 

179 

180 

181 

182 

133 

18A 

185 

186 

187 

188 

^89 

190 

191 

192 

193 

19A 

195 

196 

197 

198 

199 

200 

201 

202 

203 

20/. 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

223 

22/. 

225 

226 

227 

228 



052434 
052442 
052450 
052456 
052460 

052466 
052474 

052476 
052504 
052506 
052514 
052516 
052524 
052526 

052532 
052540 
C52546 
052554 
052556 
052564 
052566 
052572 
052600 
052604 
052606 
052612 



052612 
052620 
052626 
052634 
052642 
052650 
052652 
052660 
052662 
052666 
052674 
052700 
052702 
052706 

052710 



052710 
052716 
052720 
052724 
052732 
052736 
052740 
052744 



012737 


002000 


001140 


052737 


040000 


055076 




00144^ 


001466 


101025 






042737 


040000 


055076 


123737 


001421 


001335 


101016 






123727 


001420 


000035 


101410 






032737 


010000 


001444 


001406 






123727 


001420 


000037 


101002 






005037 


001140 




013737 


001352 


001142 


042737 


175777 


001 ""-2 


023737 


OCT 140 


001 14i; 


001004 






042737 


040000 


055076 


000412 






062716 


000004 




112776 


000305 


000000 


162716 


000002 




004736 






162716 


000010 





032737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 



105$: 
110$: 



115$: 



120$: 



MOV 


*JAE.$6DDAT 


BJS 


*SKJ.500$ 


TMP 


RMDCO #822 


BHI 


110$ 


SIC 


#<:a,500$ 


CMPB 


RMDAO+1 ,LSTRK*1 


BHI 


110$ 


CMP8 


rm:>ao,#29. 


BLOS 


105$ 


BIT 


#FMi16.RM0F0 


BEQ 


110$ 


CMP8 


RMDA0.*31 . 


BHI 


110$ 


CLR 


$GDDAT 


MOV 


RMER1 I ,$8DDAT 


BIG 


**CIAE,$8DDAT 


CMP 


$GDDAT.$8DDAT 


BNE 


115$ 


BIC 


#SKI ,500$ 


BR 


1<:0» 


ADD 


#4.(SP) 


M0V8 


#305.a(SP) 


sue 


#2,(SP) 


JSR 


pc.acsp)* 


sue 


#10. (SP) 



SETUP FOR "lAE" - 1 
SETUP FOR "SKI" = 1 
GREATER THAN LAST CyLl^^)tR 
YES - CYLINDER IS INVALID 
RESET SKI FLAG 



;YES - TRACK IS INVALID 

IS SECTOR > 29. ? 
NO 

18 BIT FORMAT ? 

YES - SECTOR IS INVALID 

IS SECTOR > 31. ? 

YES - SECTOR IS INVALID 
"lAE" SHOULD = 0 



FOR 18 BIT (iODE 



;GET RECEIVED STATUS 

IS "lAE" STATUS OK?? 
NO I ! 

lAE OK - SKI SHOULD BE 0 

MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



:REPORT AN ERROR IF "SKI" IS SET AND "lAE" STATUS WAS OK 



013737 


001400 


001142 


MOV 


RMER2I,$8DDAT 
#*CSKI.$8DDAT 


■RECEIVED STATUS 


042737 


137777 


001142 


BIC 




013737 


055076 


001140 


MOV 


500$.$GDDAT 


■EXPECTED STATUS 


042737 


137777 


001140 


BIC 


#*CSKI.$GDDAT 




032737 


040000 


001400 


BIT 


#SKJ.RMER2I 


■WAS "SKI" SET?? 


001417 






BEQ 


140$ 


•no: ! 


032737 


040000 


055076 


BIT 


#SKI,500$ 


;WAS SKI CAUSED BY lAE 0?'' 
;YES - DON'T REPORT SKI 


001032 






BNE 


150$ 


062716 


000004 




ADD 


#4,(sp; 


■MOVE SP TO USERS ERROR CALL 


112776 


000306 


000000 


M0V8 


#306,a(SP) 


;WRITE ERROR NUMBER 


162716 


000002 




SL8 


#2.(SP) 


•MOVE SP TO RETURN IF ERROR 


004736 






JSR 


PC.a(SP)* 


■REPORT ERROR AND RETURN 


162716 


000010 




sue 


#10. (SP) 


•MOVE SP TO NO ERROR 


000417 






3R 


150$ 





040000 055076 
000004 

000307 000000 
000002 

000010 



140$: 

.•REPORT AN ERROR IF SKI = 0 AND 



BIT 
BEQ 
ADD 
M0V8 

sue 

JSR 

sue 

NOP 



#SKI.500$ 
150$ 
#4.(SP) 
#307,a(SP) 
#2.(SP) 

pc,a(SP)+ 

#10. (SP) 



lAE WAS NOT DETECTED 
SHOULD SKI BE SET?? 
NO! ! 

MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 
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229 


052746 








230 










231 
232 


052746 


032737 


006200 


001400 


233 


052754 


001512 






23A 










235 










236 


052756 


032737 


000200 


001400 


237 


052764 


001424 






238 


052766 


013737 


001400 


001140 


239 


052774 


042737 


000200 


001140 


2-0 


053002 


013737 


001400 


001142 


2A1 


053010 


062716 


000004 




2A2 


053014 


112776 


000310 


000000 


2^5 


053022 


162716 


000002 




244 


053026 


004736 






245 


053030 


162716 


000010 




246 


053034 


000240 






247 


053036 








248 










249 










250 


053036 


032737 


002000 


001400 


251 


053044 


001430 






252 


053046 


032737 


010000 


001350 


253 


053054 


001424 






254 


053056 


013737 


001400 


001 140 


255 


053064 


042737 


002000 


001140 


256 


053072 


013737 


001400 


001142 


257 


053100 


062716 


000004 




258 


053104 


112776 


00031 1 


000000 


259 


053112 


162716 


000002 




26U 


0531 16 


004736 






261 


053120 


162716 


000010 




262 


053124 


000240 






263 


053126 








264 










265 










266 


053126 


032737 


M f ^ M M 

004000 


001400 


267 


053134 


001422 






268 


053136 


013737 


001400 


00114C 


269 


053144 


042737 


004000 


001140 


270 


053152 


013737 


001400 


001142 


271 


053160 


062716 


M M M MM > 

000004 




272 


053164 


112776 


000312 


0^ 0^ f\ f\ 

000000 


273 


053172 


004736 






274 


053174 


162716 


000010 




275 


053200 


000240 






276 


053202 








277 










278 










279 


053202 


052717 


#V ^ s M M M 

054000 


001352 


280 


055210 


001 527 






281 










282 


053212 


032737 


040000 


001352 


283 


053220 


001427 






284 


053222 


032737 


000200 


001400 


285 


053230 


001023 







150$: 
;LOOK 



FOR "LSC 
BIT 
BEQ 



F 1 
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OR *tBC" OR "DVC" IN ERROR REGISTER *2 

*LSC.LBC.DVC,RMER2I 

180S :N0 ERRORS SET 



SEO 0?13 



.•REPORT ANY DEVICE- FAULT, I.E.. 

BIT *DVC,RMER2I 

BEQ 160$ 

MOV RMcR2I,$GDDAT 

BIG #DVC,$GDDAT 

MOV RMER2I.$BDDAT 

ADD *4.(SP) 
MOVB *310.a(SP) 

SU3 *2.(SP) 

JSR pc.a(sp)+ 

sue *io.(SP) 

NOP 

160$: 



"DVC" = 1 

;IS "DVC" = 1?? 

;No: ; 

.•EXPECTED STATUS 

.•RECEIVED STATUS 
;MOVE SP TO USERS ERROR 
•JRITE ERROR NU^BER IN CALL 
.^OVE SP TO RETURN IF ERROR 
.REPORT ERROR AND RETURN 
.•RESTORE SP TO NO ERROR 



LOSS OF 


BIT CLOCK, I.E.; 


"leC" = 1, IF 'WOL" 1 
•IS L8C SET?? 


BIT 


*L8C.RMER2I 


BEQ 


170$ 


•NO! .' 


BIT 


*MOL,RMDSI 


•WAS LBC ERROR BY MOL 0 


BEQ 


170$ 


•YES! : 


MOV 


RMER2I.$GDDAT . 


•EXPECTED STATUS 


BIC 


*L8C.$GDDAT 




MOV 


RMER2I,$8DDAT 


•RECEIVED STATUS 

;MOVE SP TO USER'S ERROR CALL 


ADD 


*4.(SP) 


M0V8 


*311.a(SP) 


rURITE ERROR NUMBER IN CALL 


sue 


#2.(SP) 


;MOVE SP TO RETURN IF ERROR 


JSR 


pc.a(SP)* 


; REPORT ERROR AND RETURN 


sue 


*10.(SP) 


rRESTORE SP TO NO ERROR 


NOP 







170$: 



LOS OF 


SYSTEM CLOCK. I 


.E.. "LSC" 1 


BIT 


*LSC.RMER2I 


;IS "LSC" - 1?? 


BEQ 


180$ 


;N0.' : 


HOV 


RMER2I.$GDDAT 


.•EXPECTED STATUS 


BIC 


#LSC.$GDDAT 




MOV 


RMER2I.$8DDAT 


.•RECEIVED STATUS 

.•MOVE SP TO USER'S ERROR CALL 


ADD 


*4.<SP) 


M0V8 


*312.a(SP> 


: WRITE ERROR NUMBER 


JSR 


pc.a(SP)+ 


; REPORT ERROR AND RETURN 


sue 


*10,(SP) 


.•RESTORE SP TO NO ERROR 


NOP 







180$: 

.•LOOK FOR '\JNS" OR "DTE" OR '\JLE" IN ERROR REGISTER #1 

BIT ffUNS.DTElWLE.RMERlI 

BEQ 220$ ;N0 BITS SET 

;R£PORT "UNS" ERROR IF "DVC" = 0 

BIT *UNS,RMER1I ."IS '\JNS" SET?? 

BEQ 190$ ;N0.! 

BIT *DVC.RMFR2I ;WAS "UNS" CAUSED BY "DVC"?: 
BNE 190$ ;YES.. 



G 1 
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SEO 02U 



?86 


055252 


015757 


001352 


001140 


287 


055240 


042757 
013757 


C40000 


001140 


?88 


055246 


001352 


001142 


289 


055254 


062716 


000004 




290 


055260 


112776 


00031 5 


000000 


291 


055266 


162716 


000002 




292 


055272 


004756 






293 


053274 
053500 


162716 


000010 




294 








295 










296 










297 


055500 


052757 


010000 


001352 


298 


053306 


001425 






299 


055310 


015737 


001552 


001 140 


300 


053316 


042737 


010000 


001140 


301 


053524 


015757 


001352 


001 142 


302 


055552 


062716 


000004 




303 


055556 


1 12776 


000314 


000000 


304 


053544 


162716 


000002 




305 


C55550 


004756 






306 


055552 


162716 


000010 




307 


055556 








308 










309 










310 










31 1 


05i556 


052737 


004000 


001352 


312 


05 5. '64 


001441 






31 3 


0555^6 


015757 


001352 


001 142 


314 


055374 


015737 


001 552 


001 140 


315 


055402 


052737 


004000 


001 140 


316 


055410 


062716 


r\r\r\r\r\ / 

000004 




31 / 


055414 


}y2f7b 


000315 


000000 


518 


055422 


032737 


004000 


001350 


319 


055450 


001404 






520 


055452 


032757 


000010 


001412 


521 


055440 


001406 






522 


055442 


112776 


000316 


000000 


525 


055450 


0^2757 


/ f\f\f\ 

004000 


00^ 140 


524 


055456 


162716 


000002 




525 


055462 


004756 






326 


055464 


162716 


000010 




527 










528 


053470 








329 










330 










551 


055470 


062716 


000004 




552 


055474 


105776 


000000 




553 


053500 


00 1 404 






554 


055502 


162716 


000004 




335 


055506 


000157 


054510 




356 


055512 


162716 


000004 




777 










338 










559 










540 


055516 


015737 


001412 
1 77700 


055100 


341 


055524 


042737 


055100 


342 


055552 


022737 


000063 


055100 



190$: 



MOV RMERII.IGDDAT 

BIC *UNS.$GDDAT 

MOV RMER1I,$BDDAT 

ADD #4,(SP) 

M0V8 #315.a(SP) 

see *2.(SP) 

JSR PC,a(SP)* 

SUB *10.{SP) 



.•EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

RESTORE SP TO NO ERROR 



.•REPORT ANY DRIVE TIMING ERROR. I.E.. "DTE" = 1 



BIT 


XTDTE.RMERIl 


•IS DTE SET?? 


BEQ 


200$ 


■NO. ! 


MOV 


RMER1I.$GDDAT 


■EXPECTED STATUS 


BIC 


*DTE.$GDDAT 




MOV 


RMER1I.$8DDAT 


■RECEIVED STATUS 

■MOVE SP TO USER'S ERROR CALL 


ADD 


*4.(SP) 


M0V8 


*314.a(SP) 


•WRITE ERROR NUMBER IN CALL 


SUB 


*2. (SP) 


•MOVE SP TO RETURN IF ERROR 


JSR 


PC.a(SP)+ 


•REPORT ERROR AND RETURN 


SUB 


*10,(SP) 


;MOVE SP TO NO ERROR 



200$: 

.•REPORT AN ERROR IF WRITE LOCK 
.■WRITE PROTECTED. OR IF FUNCTI 



DRIVE IS NOT 



205$: 
210$: 



220$: 



BIT #WLE.RMER1I 

BEQ 220$ 

MOV RMER1I.$BDDAT 

MOV RMER1I,$GDDAT 

BIS *WLE,$GDDAT 

ADD #4.(SP) 

M0V8 *315,a(SP) 

BIT #WRL.RMDSI 

BEQ 205$ 

BIT *8IT3.RMCS10 

BEQ 210$ 

M0V8 *516.a(SP) 

BIC #WLE.$GDDAT 

SUB #2.(SP) 

JSR PC.a(SP)+ 

SUB /IflO.(SP) 



ERROR IS SET. SEE IF 
ON WAS NOT A WRITE 
WAS ■\JLE" SET?? 

NOI ! 

RECEIVED STATUS 
EXPECTED STATUS 



MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
WAS DRIVE WRITE PROTECTED?? 

NO! ! 

WAS COMMAND A WRITE?? 
YESi ! 

CHANGE ERROR NUMBER 

.-MOVE SP TO RETURN IF ERROR 
.•REPORT ERROR AND RETURN 
.MOVE SP TO NO ERROR 



.a-^lIT DATA ERROR CHECKS IF ANY PREVIOUS ERRORS HAVE BEEN DETECTED 



225$: 



ADD 

TST8 

BEQ 

SUB 

JMP 

SUB 



#4.(SP) 

a(SP) 

225$ 
#4.(SP) 
540$ 
*4.(SP) 



MOVE SP TO USER'S ERROR 
WAS ERROR DETECTED'? 
NO - DO DATA CHECKS 
RESTORE SP 
SKIP DATA CHECKS 
RESTORE SP 



.-CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DA^A. AND 
;IF HEADER COMPARE IS NOT INHIBITED 

MOV RMCS10.510$ .-STRIP AND STORE FUNCTION CODE 

BIC **CFNCMSK.510$ 

CMP ffWH.G0.510$ ;WAS FUNCIION WRITE HEADER % DA^A"*-^ 



H 1 
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SfO WIS 





UV 1 J . C 






XJ.L n^X^LO 


n7P777 




nni 770 




nnA 1 r\A 
UUl lUO 














XL7 










n75777 
\JJCf 11 


UUUocU 


001 7^5 
UU 1 JJC 


7Z.Q n^7^An 


nni Q77 

UUI jjj 














J J 1 








jjc UjjjOc 


n75777 


AAA/. AA 


nni 7«\ 5 
UU 1 JJC 




UU 1 '•cc 








ni 7777 

U 1 jf j» 


nni 7';? 

UU 1 J JC 


nni 1 LCi 


Jjj \jj DO\AJ 


n^?777 

V/**C ' J' 


AAA/AA 


001 1 ^n 


jJO UjjOvO 


ni 7777 

U 1 j» Jf 


nni 7^? 

WW 1 JJC 


nni 1Z.? 




nA?71 A 

vOC ' 1 D 






JJO UjjOcU 


1 1 P77A 

1 1 C ' f o 


00071 7 
UUU J 1 f 




JJ7 UjjOcO 


1AP71 A 
1 Oc f 1 o 


wUwUwc 




jOv UjjOjc 


ftnA77A 
UU*»» JO 






jO I v J jOj*» 








jOc UjjOjO 








JO J 








jO** 








JO J k/JJUJC 


KJjC I Jl 


oonn?n 


nni ^sp 

vju 1 JJC 


JQO v/jjo**** 


nni4?? 






JO f wJJO*tO 


\j \ J 1 Jl 


nni ^s? 

V/W 1 JJC 


nni 140 


JOO VyJJOJ** 


KJHC. 1 J 1 


\J\J\J\JC\J 


nni i4n 

yjyj 1 1 *♦ u 


<AQ nS'^AA? 

JO" UJJOOc 


ni X7X7 

\) \ Jl Jl 


nni ^s? 

UVJ 1 JJC 


nni 14P 
\J\J 1 1 *♦ c 


770 ns''!67n 


vOc 1 1 O 


vwV/ww*t 




jf 1 u J jOf *♦ 


1 1 P77A 
1 1 c » » o 


nnn^pn 


nnnnnn 


77P n*i77n? 


1 A?71 A 
1 oc ' 1 o 


00000 P 




ns^7nA 

Dl J \J J Jl vO 


UvH 1 JO 






77^. ns^7in 

jr*1 vJJ'lV 


rinn4S^ 






?7S 0S^71? 

JfJ V/JJ'IC 








77A 

J' o 








377 








JfO VJJfIC 


n7?777 

V JC 1 Jl 


nnnpnn 


nni 7SP 

vv 1 JJC 


^7Q ns 7 7?n 


VV 1 *• J J 






XRO ns^7?? 


ni 77^7 

yj \ Jl Jl 


nni 7SP 

vU 1 JJC 


nni 1 LO 


XR^ ns^7^n 

JO I \J JJi Jv 


C\L77\7 

\J^C 1 Jl 


nnnpnn 


nni i4n 


^s? n';^7^A 

JOC \J J J f JO 


ni \7X7 

\J \ J 1 J 1 


nm ^sp 

vv 1 JJC 


nni 14P 


^fl7 0^77^^ 
jO J \Jjjf 


nA?71 A 
uocf lo 


nnnnn^ 




7fl^ 0^77^0 

jO*t OJ Jr Jv 


1 1 ?77A 

1 1 C f ' D 


oon7Pi 


nnnono 


7ft'; n'>77';A 

jOJ v/JJr JO 


1AP71 A 
1 Oc ' 1 D 


00000 P 




7Aa nS^7AP 

JOO V J J r OC 


nn477A 

UvH r JO 






7fl7 Ci^%7f\L 

JO r \J J-Jf OH 


0004 ?S 






JOG 








JOT 








390 








701 0^X7f^ 


VJC r Jr 


vV/VOC v 


noi ^s? 

vv 1 JJC 


7QP 0S^774 


nni4PS 






J7J \J J J f f \j 


ni ^7^7 


nni x'i? 

V/v 1 JJC 


nni i4n 

vv 1 1 *♦ V 


394 054 OCA 




000620 


001 140 


395 054012 


013737 


001352 


001142 


396 054020 


062716 


000004 




397 054024 


112776 


000322 


000000 


598 054032 


162716 


000002 




599 054036 


004736 







BEO 
BIT 
BNE 



250$ 

#HCI,RM0FI 
250$ 



.-SEE IF ANY HEADER ERRORS ARE SET. I.E 

BIT #hcrc!fer:hce.rmerii 

BEO 270$ ;N0 ERRORS SET 



VES - SKIP HEADER CHECKS 

WAS HCI SET?' 

VES - SKIP HEADER CHECKS 



•TER" OR "WRC" OR 'XCE" 



HEADER 


CRC ERROR IF SET 




BIT 


*HCRC.RMER1J 


;WAS ^CRC SET?? 


BEO 


230$ 


;NOI . 


MOV 


RMER1 J .SGDDAT 


.'EXPECTED STATUS 


BIC 


*HCRC.$GDDAT 




MOV 


RMERII.SBDDAT 


.•RECEIVED STATUS 


ADD 


*4.(SP) 


.-MOVE SP TO USERS ERROR 


M0V8 


*317.a(SP) 


.-WRITE ERROR NUTCER 


SUB 


*2.(SP) 


.•MOVE SP TO RETURN IF ERROR 


JSR 


PC,a(SP)* 


.-REPORT ERROR AND RETURN 


BR 


260$ 





230$: 

.-REPORT FORMAT ERROR IF SET 



240$: 



BIT 


<fFER.RMER1I 


.-WAS 'TER" SET?? 


BEO 


240$ 


;NOI .' 


MOV 


RMER1I.$GDDAT 


.-EXPECTED STATUS 


BIC 


*FER.$GDDAT 




MOV 


RMER1I.$BDDAT 


.-RECEIVED STATUS 


ADD 


#4.(SP) 


.-MOVE SP TO USERS ERROR 


M0V8 


*320.a(SP) 


; WRITE ERROR NUMBER 


SUB 


*2.(SP) 


.•MOVE SP TO RETURN IF ERROR 


JSR 


pc,a(sp)*- 


.•REPORT ERROR AND RETURN 


BR 


260$ 





HEADER 


COMPARE ERROR IF 


SET 


BIT 


*HCE.RMER1I 


.-WAS "HCE" SET?? 


BEO 


270$ 


;N0! I 


MOV 


RMERU.$GDDAT 


.-EXPECTED STATUS 


BIC 


*HCE.$GDDAT 




MOV 


RMER1I.$8DDAT 


.-RECEIVED STATUS 


ADD 




.-MOVE SP TO USER'S ERROR 


M0V8 


*321.a(SP) 


.-WRITE ERROR NUMBER 


SUB 


*2,(SP) 


.-MOVE SP TO RETURN IF ERROR 


JSR 


PC.a(SP)* 


.-REPORT ERROR AND RETURN 


BR 


260$ 





THERE SHOULD BE NO HEADER ERRORS BECAUSE 

.COMMAND WAS WRITE HEADER AND DATA. OR 
.HEADER COMPARE INHIBIT WAS SET 
250$: BIT /irHCE.'FERlHCRC.RMERII 

BEO 270$ ;N0 ERRORS WERE SET 

MOV RMER1I.$GDDAT .-EXPECTED STATUS 

BIC *HCE.FER!HCRC.$GDDAT 

MOV RMERII.SBDDAT .-RECEIVED STATUS 

ADD *4.(SP) .-MOVE SP TO USER'S ERROR CALL 

M0V8 *322.a(SP) .-WRITE ERROR NUMBER 

SUB *2.(SP) .-MOVE SP TO RETURN IF ERROR 

JSR PC.a(SP)* .-REPORT ERROR AND RETURN 
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APR 


n^AI AA 
U JH 1 oo 


1AP71 A 

1 Oc f 1 o 


nnnnoA 

UUUUUH 




Z. 5Q 


n^Ai 7? 

U JH 1 f C 


nnnA i n 






*♦ jU 


n^AI 7A 

U jH 1 f H 


1 1 ?77A 

1 1 c f f O 




000000 
uuuuuu 


A'? 1 
M J 1 


nsA?n? 

U JHCUt 


1 A?71 A 
1 Oc r 1 O 


nnnnn? 
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n^APi A 

U JHC 1 H 
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LLCi 
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ni 7777 

U 1 J f J f 
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nni 74 A 
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LLL 


U JHC Jt 
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A 


U JHt f O 








451 










452 










453 


054276 


032737 


000001 


001350 


454 


054304 


001423 






455 


054306 


013737 


001350 


001140 


456 


054314 


042737 


000001 


001140 



260$: 



270$: 



SUB 
JMP 



*10.(SP) 
340$ 



.•MOVE SP TO NO ERROR 
;0MIT FURTHER DATA CHECKS 



;IF COMMAND WAS A WRITE COMMAND. GO DO WRITE ERROR CHECKS. OTHfRwisf 
;D0 READ ERROR CHECKS 

;WAS THIS A WRITE COMMAND? 
;N0. . 

,'G0 DO WRITE STATUS CHECK 

275$: 
; REPORT 



BIT 
BNE 
JMP 



*8IT3,510$ 

275$ 

31 D$ 



DATA CHECK IF SET 




BIT 


*DCK RMER1I 


DATA CHECK ERROR?? 


BEQ 


290$ 


NO. I 


MOV 


RMER1I,$GDDAT ' 


EXPECTED STATUS 


BIC 


#DCK.$GDDAT 




MOV 


RMER1I.$BDDAT 


•RECEIVED STATUS 

•MOVE SP TO USER'S ERROR 


ADD 


*4.(SP) 


M0V8 


*323.a(SP) 


•WRITE ERROR NUMBER 


BIT 


*ECI.RMOFI 


WAS ECC CORRECTION DISABLED?? 


BNE 


280$ 


•YES! . 


M0V8 


#324.a(SP) 


•CHANGE TO RECOVERABLE ERROR 


BIT 


*ECH.RMER1I 


•IS ERROR RECOVERABLE?? 


BNE 


276$ 


•NO :.' 


REPORT 


RECOVERABLE ERROR 


IF READ COMMAND 


BIT 


/f8JT4.510$ 


•WAS THIS A READ COMMAND '? 


BEQ 


280$ 


;N0 ! : 


SUB 


#4.(SP) 


.•RESTORE SP 


BR 


290$ 


rSKIP ERROR - DATA WILL BE CORRECTED 


M0V8 


#325.a(SP) 


; CHANGE TO NON RECOVERABLE 


SUB 


#2,(SP) 


;MOVE SP TO RETURN IF ERROR 


JSR 


pc.acsp)* 


.•REPORT ERROR AND RETURN 


SUB 


4f10.(SP) 


.•RESTORE SP TO NO ERROR 



;D0 NOT 



276$: 
280$: 



290$: 

.•REPORT DATA BUS PARITY ERROR IF 

BIT *MDPE.RMCS2I 

BEQ 300$ 

MOV RMCS2I,$GDDAT 

BIC *MDPE,$GDDAT 

MOV RMCS2I.$BDDAT 

ADD #4,(SP) 

M0V8 #326. a (SP) 

SUB #2.(SP) 

JSR PC.a(SP)* 

SUB *10,(SP) 

JMP 340$ 



300$: 
510$: 



SET. I.E.. MDPE - 1 
PARITY ERROR SET?? 
NO!! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 

SKIP WRITE STATUS CHECK 



.-TEST TO SEE THAT OFFSET MODE WAS RESET; REPORT ERROR IF 'W 1 



BIT #OM.RMDSI 

BEQ 320$ 

MOV RMDSI.$GDDAT 

BIC #OM.$GDDAT 



IS OFFSET ON?? 
NO 

EXPECTED STATUS 



J 1 
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StQ 0?17 



457 
458 

A60 
461 
462 
463 
464 
465 
466 
467 
4o8 
469 
470 
471 
472 
475 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
06 
>07 
508 
509 
510 
511 
512 
515 



054322 
054330 
054334 
054342 
054546 
054350 
054554 



054554 
054562 
054564 
054 d72 
054400 
054406 
054412 
054420 
054424 
054426 
054452 



054452 
054440 
054442 
054450 
054456 
054464 
054470 
054476 
054502 
054504 
054510 



054510 
054516 
054520 
054526 
054554 
054542 
054546 
054554 
054560 
054562 
054566 

054566 
054572 
054576 
054602 



054604 
054612 
054614 



015737 
062716 
112776 
162716 
004756 
162716 



052757 
001425 
015757 
042757 
015757 
062716 
112776 
162716 
004736 
162716 



052757 
001425 
013757 
042757 
015757 
062716 
112776 
162716 
004736 
162716 



052757 
001425 
015757 
042757 
015757 
062716 
112776 
162716 
004756 
162716 



01 3746 
042716 
022726 
001522 



052757 
001450 
052737 



001350 
000004 

000527 
000002 

000010 



001400 
000010 
001400 
000004 
000550 
000002 

000010 



001552 
000040 
001552 
000004 
000331 
000002 

000010 



001346 
100000 
001546 
000004 
000332 
000002 

000010 



001350 
147677 
010100 



020000 
040000 



001142 
000000 



000010 001400 



001140 
001140 
001142 

000000 



000040 001 552 



001140 
001140 
001142 

000000 



100000 001546 



001140 
001140 
001142 

000000 



520S: 



nOV RMOSI.SeDOAT 

ADD *4.(SP> 

M0V8 *527,a(SP) 

SUB *2.(SP) 

jsR PC.a(SP)* 

sue *io,(SP) 



;TEST FOR DATA BUS PARITY ERROR; 



550$: 
.■TEST 



BIT /irDPE,RMER2I 

BEQ 550$ 

MOV RMER2I,$GDDAT 

BJC *DPE.$GDDAT 

MOV RMER2J.$BDDAT 

ADD *4.(SP) 

M0V8 *350.a(SP) 

SUB #2.(SP) 

JSR PC. a(SP)* 

SUB *10.(SP) 



540$: 



FOR WRITE 
BIT 
BEQ 
MOV 
BIC 
MOV 
ADD 
MOVB 
SUB 
JSR 
SUB 



CLOCK FAILURE; 

*WCF.RMER1I 

540$ 

RMER1I.$GDDAT 

*WCF.$GDDAT 

RMER1I,$BDDAT 

*4.(SP) 

*551.a(SP) 

*2.(SP) 

PC.a(SP)^ 

#10. (SP) 



RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



kEPORT ERROR IF "DPE" - 1 
DATA PARITY ERROR?? 
NO! ! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 



REPORT ERROR IF 'W 
IS "yCF" SET?? 
;N0.' ! 

;EXPECTED STATUS 



RECEIVED STATUS 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPOrtT ERROR AND RETURN 

MOVE SP TO NO ERROR 



; REPORT "DATA LATE" ERROR IF "DLT" 1 

IS •T)LT" SET?? 

;N0! ! 

;EXPECTED STATUS 



350$: 
;L00K 



BIT *DLT.RMCS2I 

BEQ 350$ 

MOV RMCS2I.$GDDAT 

BIC *DLT.$GDDAT 

MOV RMCS2I.$8DDAT 

ADD *4,(SP) 

MOVB *332,a(SP) 

sue »2.(SP) 

JSR pc.a(SP)«- 

sue #10, (SP) 

FOR UNEXPECTED CHANGES IN 

MOV RMDSI,-(SP) 

BJC #*c<pip:molivv>, 

CMP #MOL!VV.(SP)* 

BEQ 380$ 



RECEIVED STATUS 

MOVE SP TO USERS ERROR CAl L 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 

DRIVE STATUS 

; STACK DRIVE STATUS 

(SP) ; CLEAR DONT CARES 

;IS DRIVE STATUS OK?? 

;YES!. 



001350 
001400 



;REP0RT ERROR IF POSITIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR, 
;I.E. PIP - 1 AND SKI ^ 0 



BIT 
BEQ 
BIT 



#PIP, RMDSI 
360$ 

#SKI,RMFR21 



IS "PIP" SET-'? 
NO! . 

WAS "SKI" ERROR REPORTED''? 
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5U 

515 

516 

517 

518 

519 

520 

521 

522 

523 

52A 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

54 b 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 



054622 


Art ^ 1 

001 024 






oNc 




A1 T7T7 

01 3737 


001 3t>0 


A A 1 1 / A 


nUV 


054632 




A "iAAAA 

0<:UUUU 


AA1 i / A 

UUl i*»u 


D 1 r 
Ui L 


054640 


Q\5f5f 


AA1 TCA 

001 jjO 


AA1 1/0 


MAvy 
PIUV 


AC / Z. / ^ 

054646 


06.: n 6 


AAAAA/ 

0UUU0*» 








1 \ CI 1 o 








054660 


162716 


000002 




SUB 


054664 


004736 






JSR 


054666 


162716 


000010 




sue 


054672 


000240 






NOP 


054674 






360$: 





055050 
055054 
055060 
055062 
055066 
055070 



360$ 

RMDSI,$GDDAT 

*PIP.$GDDAT 

RMDSI,$8DDAT 

*4,(SP) 

/r333,a(SP) 

*2.(SP) 

pc.a(SP)* 

*10,(SP) 



054674 


032737 


010000 


001350 


054702 


001027 






054704 


032737 


020000 


001352 


054712 


001023 






054714 
C54722 


013737 


001350 


001140 


052737 


010000 


001140 


054730 


013737 


001350 


001142 


054736 


062716 


000004 




054742 


112776 


000334 


000000 


054750 


162716 


000002 




054754 


004736 






054756 


162716 


000010 




054762 









.•REPORT ERROR IF MEDIUM IS NOT 
.•REPORTED. I.E., MOL = OPI = 0 

BIT #MOL.RMDSI 

BNE 370$ 

BIT ilfOPI.RMERlI 

BNE 370$ 

MOV RMDSI.$GDDAT 

BIS *MOL.$GDDAT 

MOV R/MDSI,$8DDAT 

ADD *4.(SP) 

M0V8 *334.a(SP) 

SUB *2,(SP) 

JSR PC,a(SP)* 

SUB »^o.(SP) 

370$: 

.•REPORT ERROR IF VOLUME IS NOT 
.•REPORTED, I.E., VV = IVC = 0 



;YES-D0NT REPORT PIP 
;EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 



ON LINE AND OPI ERROR WAS NOT 



IS MEDIUM ON LINE?? 
YES!.' 

WAS OPI ERROR REPORTED?? 
YES' 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 



VALID ^ND "IVC" ERROR WAS NOT 



054762 


032737 


000100 


001350 


BIT 


m.RMDSI 


•IS VOLUME VALID?? 


054770 


001027 






BNE 


380$ 


YES ' ' 


054772 


032737 


010000 


001400 


BIT 


*IVC.RMER2I 


•WAS'ivC ERROR REPORTED?? 


055000 


001033 






BNE 


390$ 


•YES! ! 


055002 


013737 


001350 


001140 


MOV 


RMDSI,$GDDAT 


■EXPECTED STATUS 


055010 


052737 


000100 


001140 


BIS 


*VV.$GDDAT 




055016 


013737 


001350 


001142 


MOV 


RMDSI,$BDDAT 


•RECEIVED STATUS 


055024 


062716 


000004 




ADD 


4^4, (SP) 


•MOVE SP TO USERS ERROR CALL 


055030 


112776 


000335 


000000 


MOVB 


#335, a (SP) 


•WRITE ERROR NUMBER 


055036 


162716 


000002 




SUB 


*2,(SP) 


•MOVE SP TO RETURN IF ERROR 


055042 


004736 






JSR 


Pc.a(SP)* 


•REPORT ERROR AND RETURN 


055044 


162716 


000010 




SUB 


#10. (SP) 


•MOVE SP TO NO ERROR 


055050 






380$: 









062716 
105776 

001403 
062716 
000402 
162716 



000004 
000000 

000004 

000004 



.•AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS FOUND 



055074 000207 



055076 
055100 



000000 
000000 





ADD 


#4,(SP) 


.•MOVE SP TO ERROR CALL 




TST8 


a(SP) 


;ANY ERROR?? 




BEO 


390$ 


;N0. I 




ADD 


#4,(SP) 


;YES - MOVE SP TO ERROR RETURN 




BR 


400$ 




390$: 


sue 


#4.(SP) 


.•MOVE SP TO NO ERROR RETURN 


400$: 


RTS 


PC 


.•RETURN TO USER 


500$: 


.WORD 




.•ERROR FLAGS 


510$: 


.WORD 




.•TEMPORARY STORAGE 
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SCO 0?19 



1 
2 
5 
4 
5 
6 
7 

8 
9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
?0 
21 
22 
23 
24 
25 
26 

27 055102 

28 

29 

30 055102 

31 055106 

32 055112 
33 

34 055116 

35 055122 

36 055126 

37 055132 
38 

39 

40 055134 

41 055142 

42 055144 

43 055152 

44 055154 

45 055162 

46 055170 

47 055176 

48 055202 

49 055210 

50 055214 

51 055216 

52 055222 

53 055224 
54 

55 

56 055224 

57 055232 



062716 
105076 
162716 

013746 
042716 
022726 
001 524 



032737 
001030 
032737 
001024 
013737 
052737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001030 



000004 
000000 
000004 

001350 
14/677 
010100 



010000 

020000 

001350 
010000 
001350 
000004 
000207 
000002 

000010 



.SBfTL STATIC i)RIVE STATUS CHECK SUBROUTINE 

THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE 
STATUS. SUCH AS THE DRIVE LOSING VOLUME VALID. THE SUBROUTINE 
CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE 
SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE. 

THE FOLLOWING CONDITIONS ARE TESTED AND REPORTED AS ERRORS 
IF TRUE: 

.MOL = 0. INDICATES DRIVE WENi OFFLINE. NOTE 
THAT MOL IS ASSUMED TO HAVE BEEN SET 

.VV - C. INDICATES THE DRIVE LOST VOLUME VALID 
.PIP - 1, INDICATES THAT THE DRIVE IS OFF CYLINDER 
.SKI - 1. INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR 
.DVC = 1, INDICATES AN UNEXPECTED DEVICE FAULT 

THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GE^ BUFFER. 



(1) 



JSR 

BR 

NOP 

ERROR 

JSR 



PC.STCDRVSTS 

111 



PC ,a(SP)+ 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



STCDRVSTS: 



.•CLEAR USER'S ERROR CALL 
ADD 
CLR8 
SUB 



001350 

001352 

001140 
001140 
001142 

000000 



*4.(SP) .-MOVE SP TO USER'S ERROR CALL 
a(SP) .-CLEAR ERROR NUMBER 

*4,(SP) .-MOVE SP BACK TO NO ERROR RETURN 

.-SEP IF 'MOL" = 'VV* = 1, AND 'PIP" = 0 

MOV RMDSI,-(SP) .-PUT DRIVE STATUS ON STACK 

BIG **C<PIP!MOL!VV>.(SP) 

CMP *M0L:VV,(SP)+ ;ARE MOL.VV AND PIP O.K.?? 
BEQ 30$ ;YES!! 

.-REPORT AN ERROR IF MOL = 0 AND "DPI" = 0 



BIT 


#MOL.RMDSI 


;IS MOL ON ?? 


BNE 


10$ 


;YES!! 


BIT 


#0PJ,RMER1I 


;WmS "IOPI" SET-'? 


BNE 


10$ 


;YES-D0NT REPORT 'MOL" 0 


MOV 


RMDSI.$GDDAT 


.'EXPECTED STATUS 


BJS 


*MOL,$G0DAT 




MOV 


RMDSI.SBDDAT 


;R. F.VFD STATUS 


ADD 


*4,(SP) 


.-MOVE SP TC USER'S ERROR CALL 


M0V8 


*207,a(SP) 


.-IRITE ERROR NUfBER IN CALL 


SUB 


*2.(SP) 


;i-10VE SP TO RETURN FOR ERROR 


JSR 


PC.a(SP)+ 


.-REPORT ERROR VIA USER 


SUB 


*10.(SP) 


.-MOVE SP BACK TO NO ERROR RETURN 


NOP 







000100 001350 



10$: 

.-REPORT AN ERROR IF VOLUME VALID IS NOW ZERO AND 
BIT tfVV.RMDSI ;IS "VV" = 0?? 

BNE 20$ ;N0.! 



'IVC 
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SEO c;>20 



58 


055234 


032737 


010000 


001400 


59 


055242 


001024 






60 


055244 


013737 


001 350 


001 140 


61 


055252 


052737 


000100 


001350 


62 


055260 


013737 


001 350 


001142 


63 


055266 


062716 


000004 




64 


055272 


1 1 2776 


000210 


AAA AAA 

000000 


65 


055300 


162716 


000002 




66 


055304 


004736 






67 


055306 


162716 


000010 




68 


055312 


000240 






o9 


055314 








70 










71 










72 


055314 


032737 


020000 


001350 


73 


055322 


001430 






74 


055324 


032737 


040000 


001400 


75 


055332 


001 024 






76 


055334 


013737 


001350 


001140 


77 


055342 


042737 


020000 


001 140 


78 


055350 


013737 


001350 


001 142 


79 


055356 


062716 


000004 




80 


055362 


112776 


AAA Til 

00021 1 


AAA AAA 

000000 


81 


055370 


162716 


AAAAA^ 

000002 




82 


055374 
055376 


004736 






83 


162716 


00001 0 




84 


055402 


000240 






85 


055404 








86 










87 










88 


055404 


01 3746 


001400 




89 


055410 


042726 


137577 




90 


055414 


001460 






91 


055416 








92 










93 










94 


055416 


032737 


000200 


AA4 1 f\f\ 

001400 


95 


055424 


001424 






96 


055426 


013737 


A O 4 /AO 

001400 


001 140 


97 


055434 


0W757 


000200 


0011 40 


98 


055442 


013737 


001 tOO 


001 K2 


99 


055450 


062716 


000004 




100 


055454 


1 1 2776 


000212 


000000 


101 


055462 


162716 


ArtAAA^ 

000002 




102 


055466 


004736 






103 


055470 


162716 


000010 




104 


055474 


000240 






105 


055476 








106 










107 










108 


055476 


032737 


040000 


001400 


1 Art 


AC CCA/ 








110 


055506 


013737 


001400 


001140 


111 


055514 


042737 


040000 


001140 


112 


055522 


013737 


001400 


001142 


113 


055530 


062716 


000004 




114 


055534 


112776 


000213 


000000 



BIT 


#IVC,RMER2I 


WAS IVf SET?? 


BNE 


20$ 


^ES-DONT REPORT vV 0 


MOV 


RMDSI.SGDDAT 


"EXPECTLID STATUS 


BIS 


#VV.RMDSI 




MOV 


RMDSI.SBDDAT , 


RfcLcIVcD STAIUo 


ANA 

ADD 




M0V8 


#2io,a(SP) 


WRITE ERROR NUMBER IN CALL 


sue 


*2.(SP) 


•MOVE SP TO RETURN ERROR 


JSR 


pc.a(SP)*- 


•REPORT ERROR VIA USER 


sue 


*10.(SP) 


;M0VE SP BACK TO NO ERROR 


NOP 







20$: 

.•REPORT AN ERROR IF DRIVE IS OFF 



30$: 



BIT 
BEO 
BIT 
BNE 
MOV 
BIC 
MOV 
ADD 
M0V8 

sue 

JSR 

sue 

NOP 



*PIP.RMDSI 
30$ 
*SKI.RMER2I 
30$ 

RMDSI.$GDDAT 

*PIP.$GDDAT 

RMDSI,$BDDAT 

*4. (SP) 

*2l1.a(SP) 

*2.(SP) 

pc,a(SP)+ 

*10.(SP) 



CYl INDER AND "SKI" - 0 
IS DRIVE OFF CYLINDER?? 
NO. ! 

WAS "SKI" SET?'' 

YES-DONT REPORT 'PIP" - 1 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER IN USER'S CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO NO ERROR RETURN 



;SEE IF "SKI' 
MOV 
BIC 
BEQ 

40$: 



•T)VC" = 0 

RMER2I.-(SP) ;PUT ERROR REG 2 ON STACK 

**C<SKI !DVC>.(SP)+ 

60$ : BRANCH IF NO ERROR 



.•REPORT AN ERROR IF THERE IS A DEVICE FAULT 



BIT 


*DVC.RMER2I 


ANY DEVICE FAULT?? 


BEO 


50$ 


•NO! I 


MOV 


RMER2I ,$GDDAT 


•EXPECTED STATUS 


BIC 


#DVC,$GDDAT 




MOV 


RMER2I.$8DDAT 


•RECEIVED STATUS 

•MOVE SP TO USER'S CALL 


ADD 


*4.(SP) 


M0V8 


<lf212.a(SP) 


WRITE NUMBER ^ ERROR IN CALL 


sue 


<r2.(SP) 


•MOVE SP TO .URN FOR ERROR 


JSR 


pc.a(SP)* 


•REPORT ERROR V USER 


sue 


*10.(SP) 


•MOVE SP BACK TO NO ERROR 


NOP 







50$: 

.REPORT AN ERROR IF "SKI" = 1 

BIT *SKI.RMER2I 

BEO 60$ 

MOV RMER2I,$GDDAT 

BIC *SKI,$GDDAT 

MOV RMER2I,$BDDAT 

ADD *4,(SP) 

M0V8 *213.a(SP) 



IS THERE A SEEK INCOMPLETE ERROR 
NOI ! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER IN USER'S ERROR CALL 



'ZRMNBO FCTNL TST 2 hACRO V04.00 

STATIC DRIVE STATUS CHECK SUBROUTINE 



N 1 

4-APR-81 11:45:33 PAGE 36-2 



SEO 0?21 



IIS 
116 

117 



055542 
055546 
055550 

118 055554 

119 055556 
120 

121 
122 
^23 
V4 
125 
126 
127 
128 
V9 



055556 
055562 
055566 
055570 
055574 
055576 
055602 
055604 



162716 
004736 
162716 
000240 



062716 
105776 
0C1403 
062716 
000402 
162716 
000240 
000207 



000002 
000010 



000004 
000000 

000004 

000004 



60$: 



SUB 
JSR 
SUB 
NOP 



#2,(SP) .-MOVE SP TO RETURN FOR ERROR 

PC.aCSP)* .-REPORT ERROR VIA USER 

#10. (SP) .-MOVE SP BACK TO NO ERROR 



.•AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 



70$: 
80$: 



ADD 
TST8 
BEO 
ADD 
BR 
SUB 
NOP 
R'S 



#4.{SP) 

acsp) 

70$ 

«f4.(SP) 
80$ 

*4.(SP) 
PC 



MOVE SP TO USER'S ERROR CALL 
WAS AN ERROR DETECTED''? 
\0i .' 

YES - MOVE SP TO USER'S ERROR RETURN 
;N0 - MOVE SP TO NO ERROR Rf TURN 
.•RETURN TO USER 



Ifif^O RMOS/'5/2 FCTNL TST 2 MACRO V04.00 4-APR-81 
AND PE STORE RO-RS ROUTIPtfS 



B 2 

11:A3:55 PAGE 57 



S£Q 0??:' 



,S8TTL SAVE AND RESTORE R0-R5 ROUTINES 



055606 

055606 0100A6 

055610 010K6 

055612 0102A6 

0556U 010346 

055616 010446 

055620 010546 

055622 01 6646 000022 

055626 016646 000022 

055632 016646 000022 

055636 016646 000022 

055642 000002 



SAVE R0-R5 
call: 

SAVREG 

UPON RETURN FRON SSAVREG THE STACK WILL LOOK LIKE 

TOP ( + 16) 

♦2 ( + 18) 

♦4 R5 

♦6 R4 

♦8 R3 

♦10 R2 

♦ 12 R1 

♦ 14 RO 



SSAVREG; 



MOV 
MOV 
MOV 
MOV 
MOV 
M0»^ 
MOV 
MOV 
MOV 
MOV 
RTI 

•RESTORE R0-R5 
•CALL: 



RO.-(SP) 

RI.-(SP) 

R2,-(SP) 

R3.-(SP) 

R4,-(SP) 

R5.-(SP) 

22(SP).-(SP) 

22(SP).-(SP) 

22(SP),-(SP) 

22(SP). -(SP) 









RESREG 




055644 






SREiREG: 




055644 


012666 


000022 


(WV 


(SP)+.22(SP) 


05S650 


012666 


000022 


MOV 


(SP)+.22(SP) 


055654 


012666 


000022 


MOV 


(SP)*,22(SP) 


055660 


012666 


000022 


MOV 


(SP)+.22(SP) 


055664 


012605 




MOV 


(SP)+. R5 


055666 


012604 




MOV 


(SP)*.R4 


055670 


012603 




MOV 


(SP)+.R5 


055672 


012602 




MOV 


(SP)*,R2 


055674 


012601 




MOV 


(SP)^.RI 


055676 


012600 




MOV 


(SP)*.RO 


OS 5 700 


000002 




RTI 



PUSH RO ON STACK 
PUSH R' ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
SAVE PS OF MAIN FLOW 
SAVE PC OF MAIN FLOW 
SAVE PS OF CALL 
SAVE PC OF CALL 



RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAIN FLOW 
RESTORE PS OF MAIN FLOW 
POP STACK INTO R5 
POP STACk INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 



'Z««NBO RM05/5/2 fZ^UL TST 2 ^C«0 v(K.OO 
biNAR* TO ASCII AND TYPE ROUTINE 



C 

PAGE 



2 
38 



SEO 0??3 



.S8TTL BINARr TO ASCII AND TVPE ROUTINE 



•THIS ROUTINE IS USED TO CHANGE A 16H3IT BINARY NUMBER TO A 16-QIT 

•aiNARy-ASCII NUMBER AND TYPE IT. 

•CALL: 

NUMBER TO BE TYPED 



MOV 
TYP8N 



NUMBER. -(SP) 



055/^02 


0 1 0 1 46 








nUV 


K 1 ,~\ ari 

6(SP).R1 


• • CAl/C Dl niU TUC CTATV 
, , J"»C n\ UN 1 nC JIntR 


055^04 


016601 


000006 






MOV 


;;GET THE INPUT NUMBER 


055710 


000261 








SEC 




;;SET "C" SO CAN KEEP TRACK OF THE Nl/BER 
;;SET CHARACTER TO AN ASCII 'V. 


055712 


112737 


000060 


055754 


1$: 


wove 


tf'O.SBIN 


055720 


006101 








ROL 


R1 


;;6Er THIS BIT 


055722 


001406 








BEO 


2$ 


;;DONE? 


05 5 72A 


105537 


055754 






ADC8 


teiN 


;;N0— SET THE CHARACTER EQUAL TO THIS BIT 


055730 


104401 


055754 






TYPE 


.$8IN 


;;G0 TYPE THIS BIT 


05573A 


000241 








CLC 




;; CLEAR "C" SO CAN KEEP TRACK OF BITS 


055736 


000765 








BR 


1$ 


;;G0 00 THE NEXT BIT 


C557A0 


012601 






21: 


MOV 


(SP)*.R1 


;;POP THE STACK INTO R1 


055742 


016666 


000002 


000004 




MOV 


2(SP).4(SP) 


;; AD JUST THE STACK 


055/50 


012616 








MOV 


(SP)*.(SP) 




055752 


000002 








RTI 




;; RE TURN TO USER 


055754 


000 


000 




S8IN; 


.BYTE 


0.0 


;; STORAGE FOR ASCII CHAR. AND TERMINATOR 



TYPE IT 



OF BITS 



/f'^O W5/^/2 FCTNL TST 2 MACRO V(K.OO 
■•■NwE^T eiMARy TO DECIMAL AND TyPE ROUTINE 



D 2 

11:<.3.5? PAGE 59 



SEO 022t» 



.S8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



055756 
055756 
055760 
055762 
05576A 
055766 
055770 
C5577A 
056000 
056002 
05600A 
056012 
0560U 
056020 
05602A 
056026 
056032 
05603A 
056036 
0560^0 
0560A2 
056OAA 
056046 
056050 
056052 
05605A 
056056 
056060 
056066 
C56072 
056076 
056100 
056102 
056106 
056110 
056112 
0561 U 
056116 
056120 
056122 
056130 
056132 
056134 
056136 
056U0 



010046 
010U6 
010246 
010346 
010546 
012746 
016605 
100004 
005405 
112766 
005000 
012703 
112723 
005002 
016001 
160105 
002402 
005202 
000774 
060105 
005702 
001002 
105716 
100407 
106316 
103003 
116663 
052702 
052702 
110223 
005720 
020027 
002746 
003002 
010502 
000764 
105726 
100003 
116663 
105013 
012605 
012603 
012602 
012601 



020200 
000020 



000055 000001 



056172 
000040 

056162 



000001 
000060 
000040 



000010 



•THIS ROUTINE IS USED TO CHANGE A 16-81 T BINARY NUMBER '0 A S-DIGIT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
•N'JMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL 'BE TYPED 
•PEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
•nEPLACED WITH SPACES. 



•CALL; 



tTYPDS' 



1$: 



2$: 
3$: 



4S: 



5$: 



6$: 
7$; 



mm 177776 



8$: 



9$: 



MOV 
TYPDS 



NUM.-(SP) 



;;PUT THE BINARY NUMBER CN THE STACK 
;;60 TO THE ROUTINE 



MOV 


RO,-(SP) 


;PUSH RO ON STACK 




MOV 


Rl,-(SP) 
R2,-(SP) 


;PUSH R1 ON STACK 




MOV 


.-PUSH R2 ON STACK 




MOV 


R3.-(SP) 


.•PUSH R3 ON STACK 




MOV 


R5,-(SP) 


.•PUSH R5 ON STACK 




MOV 


*20200.-(SP) 


;SET BLANK SWITCH AA.'D SIGN 




MOV 


20(SP),R5 


.-GET THE INPUT NUMBER 




BPL 


IS 


;8R IF INPUT IS POS. 




NEG 


R5 


;MAKE THE BINARY NUMBER POS. 




M0V8 


#'-,1(SP) 


;MAKE THE ASCII NUMBER NEG. 




CLR 


RO ; 


.•ZERO THE CONSTANTS INDEX 




MOV 


'SD8LK,R3 
* ,(R3)* 


.•SETUP THE OUTPUT POINTER 




H0V8 


.-SET THE FIRST CHARACTER TO A BLANK 


CLR 


R2 


.-CLEAR THE BCD NUMBER 




MOV 


$DT8L(R0),R1 


;6ET THE CONSTANT 




sue 


R1 ,R5 


;FORM THIS BCD DIGIT 




BL t 




;8R IF DONE 




INC 


R2 


.•INCREASE THE BCD DIGIT BY 1 




BR 


3S 






ADD 


R1 ,R5 


.•ADD BACK THE CONSTANT 




TST 


R2 


.•CHECK IF BCD DIGIT=0 




BNE 


5$ 


;FALL THROUGH IF 0 




TST8 


( SP; ; 


.•STILL DOING LEADING O'S? 




BMI 




;8R IF YES 




ASL8 


(SP) ; 


;MSD? 




orr 

OL L 


6S 


;8R IF NO 




M0V8 


1(SP),-1(R3) ; 


;YES--SET THE SIGN 




BIS 


**0.R2 


.•MAKE THE BCD DIGIT ASCII 




BIS 


.R2 


;MAKE IT A SPACE IF NOT ALREADY A 


DIGIT 


M0V8 


R2.(R3)* 


.-PUT THIS CHARACTER IN THE OUTPUT 


BUFFER 


TST 


(R0) + 


.•JUST INCREMENTING 




CMP 


RO./rlO 


; CHECK THE TABLE INDEX 




BLT 


2$ 


;G0 DO THE NEXT DIGIT 




BGT 


8$ 


;G0 TO EXlT 




MOV 


R5,R2 


.GET THE LSD 




BR 


6$ 


;G0 CHANGE TO ASCII 




TST8 


(SP)* 


;WAS THE LSD THE FIRST NON-ZERO'' 




BPL 


9$ 


• BR I F NO 




M0V8 


-1(SP).-2(R3) 


; YES— SET THE SIGN FOR TYPING 




CLR8 


(R3) 


;SET THE TERMINATOR 




MOV 


(SP)*,R5 


;POP STACK INTO R5 




MOV 


(3P)+,R^ 


;POP STACK INTO R3 




MOV 


(SP)*.R2 


;POP STACK INTO R2 




MOV 


(SP)*.fi1 


;POP STACK INTO R1 





'■ZSiMNBC RM05/V2 fCTNL TST 2 
"ONwERT BINARY TO DECIMAL AND 



•1ACR0 V04.00 
TYPE RCXiTINE 



4-APR-81 11:43:35 



E 

(QE 



056H2 012600 

056K4 104401 0561^2 

056150 016666 000002 000004 

056156 012616 

056160 000002 

056162 023420 

056164 001750 

056166 000144 

056170 000012 

056172 



$DT8L; 



SDBLK: 



MOV 

TYPE 

MOV 

MOV 

RTI 

10000. 

1000. 

100. 

10. 

.BLKU 



(SP)*.R0 
.SDBLK 

2{SP).4(SP) 
fSP)*.(SPJ 



2 

59-1 



SEO 0225 



;;POP STACK INTO RC 
;;N0U TYPE ThF NLMBER 
;; AD JUST THE SMCK 

; .-RETURN TO USER 



F 2 

ZinPUOQ RM05/3/2 FCTNL TST 2 MACRO VO'^.OO A-APR-81 V:45:35 PAGE <.0 

BINARY TO OCTAL (ASCII) AND TYPE SEO 0226 

.S8TTL BINARY TO OCTAL (ASCII) AND TYPE 



•THIS ROUTINE IS USED TO CHANGE A 16-81 T BINARY NUMBER TO A 6-DlGIT 
•OCTAL (ASCII) NC/«ER AND TYPE H. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS A\D NUMBER Of DIGITS TO TYPE 

•CALL: 

• MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 

• TYPOS ;;CALL FOR TypEOUT 

.RYTE N ;;N-1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

.BYTE M ;;M=1 OR 0 

;;1=TYPE LEADING ZEROS 

• ;;0= SUPPRESS LEADING ZEROS 

•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

•ITYPOS OR STYPOC 











■•CALL: 
















• • 


MOV 


NV/«,-(SP) 


•NUMBER TO BE TYPED 










■ • 


-YPON 




•CALL FOR TYPEOUT 










••STYPOC ENTER HERE FOR TYPEOUT 


OF A 16 BIT NUMBER 










••CALL: 
















• * 


MOV 


NUM.-(SP) ; .-NUMBER TO BE TYPED 










• • 


TYPOC 


.-.-CALL FOR TYPEOUT 


056202 


017646 


000000 


STYPOS: 


MOV 


a(SP).-(SP) 


.•PICKUP THE MODE 


056206 


1 16637 


000001 


056425 




MOVB 


1(SP),$0FILL 


.-LOAD ZERO FILL SWITCH 


0562U 


112637 


056427 






M0V8 


(SP)*.$0M0DE*1 ; 


;NUMBER OF DIGITS TO TYPE 


056220 


062716 


000002 






ADD 


#2.(SP) 


.-ADJUST RETURN ADDRESS 


05622A 


000406 








BR 


STVPON 




056226 


1 12737 


000001 


056425 $TYPOC. 


MOVB 


#1.$0FILL 


;SET THE ZERO FILL SWITCH 


05623A 


112737 


000006 


056427 




MOVB 


#6.$0MODE*1 


;SET FOR SIX(6) DIGITS 


0562A2 


^^2757 


000005 


056424 STYPON: 


MOVB 


#5.$0CNT 


.-SET THE ITERATION COUNT 


056250 


010346 








MOV 


R3.-(SP) 


.-SAVE R3 


056252 


010446 








MOV 


R4.-(SP) 


.SAVE R4 


U50<:3*» 










MOV 


R5.-(SP) 


- SAVE R5 


056256 


113704 


056427 






MOVB 


$0MODE*l,R4 


iCET THE NUMBER OF DIGITS TO TY^E 


056262 


005404 








NEC 


R4 


.-SUBTRACT IT FOR MAX. ALLOWED 


05626A 


062704 


000006 






ADD 


*6.R«i 


056270 


110437 


056426 






MOVB 


R4.$0MODE 


.-SAVE IT FOR USE 


05627A 


113704 


056425 






MOVB 


$0FILL.R4 


.GET THE ZERO FILL SWITCH 


C56300 


016605 


000012 






MOV 


12vSP),R5 


; PICKUP THE INPUT NUMBER 


056304 


005003 








CLR 


R3 


.-CLEAR THE OUTPUT WORD 


056306 


006105 




1$: 


ROL 


R5 


.-ROTATE MSB INTO "C" 


056310 


000404 








BR 


3$ 


;G0 DO MSB 


056312 


006105 




2$: 


ROL 


R5 


.-FORM THIS DIGIT 


0563K 


006105 








ROL 


R5 




056316 


006105 








ROL 


R5 




056320 


010503 








MOV 


R5,R3 


.-GET LS8 OF THIS DIGIT 


056322 


006103 




3$: 


ROL 


R3 


056324 


105337 


056426 






DECB 


SOMODE 


.-TYPE THIS DIGIT? 


056330 


100016 








BPL 


7$ 


;8R IF NO 


056332 


042703 


1 77770 






BIC 


*177770.R3 


.-GET RID OF JUNK 


056336 


001002 








BNE 


4$ 


.-TEST FOR 0 


056340 


005704 








TST 


R4 


.SUPPRESS THIS 0? 


056342 


001 403 








BEO 


5$ ; 


;8R IF YES 


056344 


005204 




4$: 


INC 


R4 


.-DON'T SUPPRESS ANYMORE O'S 



/RMNBO RMOS/^/? fCTNL TST 2 MACRO VW.OO 4-APR-81 
fiINA«y TO OCTAL (ASCII) AND TVPE 



0565A6 


052703 


000060 




BIS 


056352 


052703 


000040 


5$: 


BIS 


056356 


110337 


056422 




Move 


056562 


104401 


056422 




TYPE 


056366 


105337 


056424 


7$: 


DECS 


056372 


003547 






BGT 


056374 


002402 






BLT 


056376 


005204 






KMC 


056A00 


000744 






BR 


056402 


012605 




6$: 


MOV 


056404 


01260A 






MOV 


056406 


012605 






MOV 


056410 


016666 


000002 000004 




MOV 


056416 


012616 






MOV 


056420 


000002 






RTI 


056422 


000 




8t: 


.arTE 


056A23 


000 






.eriE 


056424 


000 




$OCNT: 


.erTE 


056425 


000 




tOf l.L : 


.avrt 


C56426 


000000 




SOMODF ; 


.WORD 



G 2 
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»'0.R5 ;;MAKE THIS DIGIT ASCII 

#• .R3 ;;MAkE ASCII If ^^0T ALRfAfv 

R3.8t .-.-SAVE FOR TYPING 

.8f ;;60 TYPE THIS DIGIT 

fOCNT ;; COUNT BY 1 

2% ;;8R IF MORE TO DO 

6$ ;;8R IF DONE 

R4 ;; INSURE LAST DIGIT ISN'T A BlANH 

?S ;;G0 DO THE LAST DIGIT 

(S'^)*.R5 ;; RESTORE R5 

(SP) + .R4 ; .-RESTORE R4 

CSP)*.R5 .-.-RESTORE R3 

2(SP).4(SP) ;;SET THE STACK FOR RETURNING 

(SP)*,(SP) 

. . TURN 

0 ; -STORAGE FOR ASCII DIGIT 

0 ;; TERMINATOR FOR TYPE ROUTINE 

0 .-.-OCTAL DIGIT COUNTER 

0 .-.-ZERO FILL SWITCH 

0 .-.-NUMBER OF DIGITS TO TYPE 



H 2 

' ■ ' . rA:«0 1/04.00 ^-APR-S" 1 3^5 PAGE 4 

.S8TTL TYPE ROUTINE 



•ROUTINE TO TYPE ASCJZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BVfE. 
•THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
•N0TE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

•NOTE?: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

•N0TE3: iFlLLC CONTAINS THE CHARACTER TO FILL AFTER. 

•CALL: • 

•1) USING A TRAP INSTRUCTION 

TYPE .MESADR ;;MESADR. IS FIRST ADDRESS OF AN ASflZ STRING 

•OR 

• TYPE 

• MESADR 
• 





1057^7 


nn 11 7^ 




9 1 T • 


















RPI 


1 1 


• -RB IP VP c 












HAl T 




•HAl T UPBP IF MD TPBMIMAI 




000430 

W Jv 








RR 
on 


7« 


■ ■ 1 PAV/P 
. L CM V C 


\J J\J**HC 


\J 1 \J\JH\J 








l"U V 








ni 7^^nfi 


\J\J\J\J\JC 






Mnv/ 
nu V 






0S6450 

W J\J*f J\J 


122737 

ICC* J * 




001 ?u? 








■•BIMNINf; IM APT MDDP 




00101 1 








Of 




• 'wn cn rubric fob apt rnwcni p 


056460 


1 32737 


0001 00 


001 243 




R I TR 




■ ■ ^pnni MP^^Ar;F in apt 


056466 


001405 








RPO 


62$ 


• -Nn (^n rufrtc fob rnMcni p 


056470 


010037 


056500 








RO 61$ 


■•^FTtiP mf^^a(;f arorf^^ fhr apt 


056474 


004737 


063106 






JSR 


PC $ATY3 


• ■ ^POni MFS^Af^F TO APT 


056500 


000000 






61S- 


WORD 


0 


• -MFSSAfiF ADDRFS^ 


056502 


132737 


000040 


001243 


62S- 


RT TR 

D i 1 u 




• 'APT rniM^ni f ^upprf^^fd 


056510 


001003 










60$ 


••YF^ ^KIP TYPF nilT 

r # r c O # O^i r lire UU 1 


056512 


1 1 204^ 






C 9 ■ 






••PII^H rHARATTPB TD RP TVPPi HMTD ^TAfr 

t . r U on ^.rTMnML 1 C n 1 U DC 1 T r L U*tI I U j I ML ^ 

• -RB IF IT t^N'T THP TPBMIMATnR 
. 'jn ir i 1 i ofi 1 1 nc i c nri i iiiM i un 


056514 


001005 








D'ye 


4$ 


056516 


0^5726 








TST 


(SP) + 


;;IF TERMINATOR POP IT OFF THE STACK 


056520 


012600 






60$: 


MOV 


(SP)*.RO 


• .-RESTORE RO 


056522 


062716 


000002 




3$: 


ADD 


*2,(SP) 


•.•ADJUST RETURN PC 


056526 


000002 








RTI 


;; RE TURN 


056530 


122710 


00001 1 




4$: 


CMP8 


#HT,(SP) 


'.•BRANCH IF <HT> 


056534 


001430 








BEQ 


8$ 




056536 


122716 


000200 






CMP8 


*CRLF.(SP) 


•.•BRANCH IF NOT <CRLF> 


056542 


001006 








BN'E 


5$ 




056544 


005726 








TST 


(SP) + 


•;POP <rR><LF> EQUIV 


056546 


104401 








TYPE 




■;TYPE A CR AND LF 


056550 


00*1217 








$CRLF 






056552 


105037 


056760 






CLR8 


$CHARCNT 


■; CLEAR CHARACTER COUNT 


056556 


000755 








BR 


2$ 


•;GET NEXT CHARACTER 


056560 


004737 


056642 




5$: 


JSR 


PC.$TYPEC 


•;G0 TYPE THIS CHARACTER 


056564 


123726 


001 1 72 




6$: 


CMP8 


$FILLC.(SP)* 


•;IS IT TIME FOR FILLER CHARS.? 


056570 


001350 








BNE 


2$ 


■;IF NO GO GET NEXT CHAR. 


056572 


013746 


001170 






MOV 


$NULL.-(SP) 


■;GET # OF FILLER CHARS. NEEDED 


056576 


105366 












•;AND THE NULL CHAR. 


000001 




7$: 


DECS 


1 (SP) 


■.•DOES A NULL NEED TO BE TYPED? 


056602 


002770 








BLT 


6$ 


•;8R IF NO— GO POP THE NULL OFF OF S'ACK 


056604 


004737 


056642 






JSR 


PC.$TYPEC 


•;G0 TYPE A NULL 


056610 


105337 


056760 






DECS 


SCHARCNT 


;D0 NOT COUNT AS A COUNT 


056614 


000770 








BR 


7% 


.•LOOP 



056616 


112716 


000040 




056622 


004 737 


056642 




056626 


132737 


000007 


056760 


056634 


001372 






056656 


005726 






056640 


000724 






056642 








056642 


105777 


122312 




056646 


100022 






056650 


01 7746 


122306 




056654 


042716 


1 77600 




056660 


122716 


000023 




056664 


001012 






056666 








056666 


105777 


122266 




056672 
C 56674 


100375 






117716 


122262 




056700 


042716 


1 77600 




056704 


122716 


000021 




056710 


001366 






056712 








056712 


005726 






056714 








056714 


105777 


122244 




056720 


100375 






056722 


116677 


000002 


1 22236 


056730 


1 227to 


00001 5 


000002 


056736 


001003 






056740 


105037 


056760 




056744 


000406 






056746 


122766 


000012 


000002 


056754 


001402 






056756 


105227 






056760 


000000 






056762 


000207 







.•HORIZONTAL TAB 

8S: wove 

9$: JSR 
BJT8 
BNfc 
TST 
BR 

ST VPE C : 

TST8 

BPL 

MOV 

BIC 

CMP8 

BNE 

101$: 

TST8 

BPL 

MOVB 

BiC 

CMP8 

BNE 

102S: 

TST 

10$: 

TSTB 

BPL 

M0V8 

CMP8 

BNE 

CLR8 

BR 

1$: CMP8 
BEO 
INCB 

SCHARCNT: .WORD 

$TVPEX: RTS 



.•REPLACE TAB WITH SPACE 
;TrPE A SPACE 
.•BRANCH IF NOT AT 
;TA8 STOP 

;POP SPACE OFF STACK 
;GET NEXT CHARACTER 

;CHAR IN KY8D BUFFER? 
:8R IF NOT 
;GET CHAR 

; STRIP EXTRANEOUS BITS 
;WAS CHAR XOFF 
;8R IF NOT 

;UAIT FOR CHAR 

;6ET CHAR 
.•STRIP IT 
;WAS IT XON? 
;8R IF NOT 

.-FIX S'ACK 

.-WAIT UNTIL PRINTER IS READY 

.-LOAD CHAR TO BE TYPED INTO DATA REG. 
;IS CHARACTER A CARRIAGE RETURN? 
.•BRANCH IF NO 

; YES— CLEAR CHARACTER COUNT 
.•EXIT 

;IS CHARACTER A LINE FEED'' 
.•BRANCH IF YES 
.-COUNT THE CHARACTER 
.•CHARACTER COUNT STORAGE 



7»MNB0 W105/5/2 FCTNL TST 2 
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MACRO V04.00 
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SEO 0?50 



.S8TTL SCOPE HANDLER ROUTINE 



056764 
05f . 
056766 
056772 
057000 
C57002 
057006 



104410 
004737 
032777 
001402 
000137 



057006 000416 



057010 
057014 
057022 
057026 
057032 
057034 
057036 
057042 
057044 
057044 
057052 
057054 
057056 
057062 
057064 
057070 
057072 
C 5 7076 
057100 
057102 
057106 
057112 
057114 
057116 
057122 
057124 
057132 
057134 
057140 
057146 
057154 
057156 
057164 



013746 
012737 
005737 
012637 
000561 
022626 
012637 
000521 

032777 
001421 
005046 
117716 
001414 
022716 
002411 
011637 
005316 
006316 
062716 
013637 
000547 
005726 
105737 
001502 
022737 
001455 
013746 
0127J7 
013737 
000406 
012737 
012716 



057532 
040000 

057432 



000004 
057034 
1 77060 
000004 



000004 



000004 

000400 122102 

122072 
000031 
001116 



057450 
001122 



001117 

1 77777 

000004 
057156 
U7766 

177777 
057172 



060150 



000004 
060150 



•THIS 

*AND 

•AND 

• THE 

•SW14 

•SW11 

•SW09 

•SW08 

•CALL 



ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

LOAD THE TEST NUMBER ($TSTM»1) INTO THE DISPLAY REG. (DISPLAY<7:0>) 

LOAD THE ERROR FLAG (SERFLG) INTO DISPLAy<15:08> 
SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

=1 LOOP ON TEST 

=1 INHIBIT ITERATIONS 

-1 LOOP ON ERROR 

=1 LOOP ON TEST IN SWR<7:0> 



SCOPE 



;;SCOPE-IOT 



122154 1$: 



$SCOPE: 

CKSWR 
.SR 
BIT 
BEQ 
JMP 

9$: 

;*####START OF 
tXTSTR: BR 

MOV 
MOV 
TST 
MOV 
BR 

5$: CMP 
MOV 
BR 

6$;;##**#END OF 

BIT 



8S: 
2$; 



060150 2000$: 



PC. STOP 
«8IT14.aSWR 
9S 

SOVER 

CODE FOR THE XOR 
6S 

a^ERRVEC-CSP) 
#5$.*rERRVEC 
*iri 77060 
(SP)*,a#ERRVfcC 
SSVLAD 
(SP)*.(SP)* 
(SP)*.a#ERRVEC 
7$ 

CODE FOR THE XOR 
MBl T08,aSUR 
BEQ 2$ 
CLR -(SP) 
M0V8 aSUR,(SP) 
BEC 8S 
CMP *31.{SP) 
BLT 8S 
MOV (SP).STSTNM 
DEC (SP) 
ASL (SP) 
ADD /ir$SW08TBL.(SP) 
MOV a(SP)*,$LPADR 
BR SOVER 
TST (SP)* 
TST8 SERFLG 
BEQ 3$ 
CMP *-l,CPSAVE 
BEQ 2003$ 
MOV ERRVEC,-(SP) 
MOV #2000$,ERRVEC 
MOV 1 77766, CPSAVE 
BR 2001$ 
MOV *-1, CPSAVE 
MOV #2001$. (SP) 



;;TEST FOR CHANGE IN SOFT-SWR 



LOOP ON PRESENT TEST? 

NO IF SW14=0 

JUMP OVER SCOPE ROUTINE 



TESTER##### 

IF RUNNING ON THE '"XOR" TESTER CHANGE 
THIS INSTRUCTION TO A "NOP" (NOP 240) 
SAVE THE CONTENTS OF THE ERROR VECTOR 
SET FOR TIMEOUT 
TIME OUT ON XOR? 
RESTORE THE ERROR VECTOR 
GO TO THE NEXT TEST 
CLEAR THE STACK AFTER A TIME OUT 
RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 
TESTER>r#### 
LOOP ON SPEC. TEST? 
BR IF NO 

CLEAR A TEMP. LOCATION 
PICKUP THE DESIRED TEST NLMBER 
BRANCH IF BAD TEST NUMBER IN SWR 
CHECK THE NUMBER IN THE SWR 
BRANCH IF TEST NUMBER IS OU^ OF RANGE 
UPDATE THE TEST NlfBER 
BACKUP BY ONE 

SCALE THE TEST Nl/BER AS AN INDEX 
FORM THE ADDRESS OF TEST POINTER 
SET LOOP ADDRESS TO DESIRED TEST 
GO LOOP ON THE TEST 

CLEAN THE BAD TEST NUM3ER OFF OF THE STACK 
HAS AN ERROR OCCURRED? 
BR I F NO 

SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 
KICK AROUND ROUTINE IF SO 
SAVE CONTENTS OF ERROR VECTOR 
SETUP 'TRAP' RETURN ADDRESS 
MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

;;SET CPU ERROR REGISTER TIMEOUT INDICATOR 
;; SETUP RETURN ADDRESS 
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SCOPE HANDLER ROUTINE 










0S7170 

\j J f ' f \J 


00000? 








RT] 


0S71 7? 




000004 




"^AAi 

2001$: 


MOV 


OS 71 76 


022737 


1 77777 


Ay A i C A 

0601 50 


2002> •• 


CMP 




OOK50 








A 

BEO 




032737 


000001 


A^ A1 C A 

0601 50 




AIT 

BIT 




001424 








BEQ 




042737 


000001 


1 77766 




aj C 


OS 7P?4 


01 3746 


001 1 54 






MOV 


OS 7? 50 


01 7646 


000000 






MOV 




012737 

VIC' J 1 


0001 76 


AAi i C / 

001 1 54 




MOV 


0S7?4? 


01 1677 


121706 






MOV 


0S7246 




001 000 


in ^AA 

1 21 700 




Air 

BJ C 


057254 


104177 








EMT 


057256 


01 2676 


000000 






MOV 


057^62 


012637 


001 1 54 






MOV 


OS 7266 








2003$. 




057266 


123737 


001 1 31 


AAi i i 7 

001 I if 




CnP8 


057274 


101015 








BHJ 


C 5 72 76 


0Z2777 

V^C III 


OCl 000 


1 1 i ^ C A 

121650 




AIT 

BJ T 


057304 


001404 








BEQ 


057506 


013737 


001 1 24 


AAi in 


7$: 


MOV 


057314 


000446 








BR 


057316 


105037 


001 117 




4$: 


CLR8 


057322 


005037 


001 206 






r 1 A 

CLR 


057326 


000415 








BR 


057330 


0Z2777 


004000 


1^1616 


■2* - 


BIT 


057336 


00101 1 








BNz 


057340 


005737 


/\A^ T7/\ 

001230 






T C T 

TST 


057344 


001406 








BEQ 


057346 


005237 


001 120 






INC 


057352 


023737 


001 206 


AAi i 1A 

00 1 1 20 




CnP 


057360 


002024 








A^ C 

BGE 


057362 


012737 


AAA AA^ 

000001 


AAi i 1A 

0011 20 


1$: 


MOV 


057370 


013737 


AC 7/ J ^ 


AAi lAZ. 

001 <:06 




MOV 


057376 


105237 


AAi 1 1 

001 116 




$SvLAD : 


jNCo 


057402 


113737 


AAi 1 1 Z. 

001 116 


AAi 

001226 




U At /A 

MOVo 


057410 


011637 


AAi i 11 

001 122 






MAI / 

MOV 


057414 


011637 


A A 1 i T / 

001 124 






MOV 


057420 


005037 


A A 1 1 A 

001210 






f 1 A 

CLR 


057424 


112737 


A AAA A 1 

000001 


A A 1 1 T 1 

001 1 51 




MAt Id 

M0V8 


C57432 


013777 


AAi 1 1 

001 116 


1 1i CI z 

121 516 


^ A* A . 

$0VER; 


MAl / 

MOV 


057440 


013716 


AAi i H 

001 122 






MOV 


057444 


000002 








RTI 


057446 


000005 






SMXCNT: 


5. 


057450 








SSUOSrSL: 




000031 






.REPT 


$TM-1 


057450 


010070 








.WORD 


057452 


010270 








.WORD 


057454 


011132 








.WORD 


057456 


01 1 766 








• WORD 


057460 


012556 








• WORD 


057462 


013516 








.WORD 


057464 


014336 








.WORD 


057466 


015126 








.WORD 


05 7470 


016064 








.WORD 


057472 


016660 








.WORD 



K 2 
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SEO 023^ 



(SP)*.ERRVEC 

#-1 .CPSAVE 
200h 

*8J TOO. CPSAVE 
2003$ 

«B]T00.17?766 
SWR.-(SP) 
a(SP).-(SP) 
*176.SWR 

(SP).aswR 

«8iT09,aSWR 

177 

(SP)*,a(SP) 

(SP)*.SWR 

$ERMAX.$ERFLG 
3$ 

*8IT09.aSWR 
4$ 

$LPERR.$LPADR 

$OVER 

$ERfLG 

$TJMES 

1$ 

/reiTii.aswR 
1$ 

SPASS 
1$ 

SICNT 

$TJMES,$1CNT 

$OVER 

#1,$ICNT 

l«XCNT,$TIMES 

$TSTNM 

$TSTNM.$TESTN 
(SP), $LPADR 
(SP). $LPERR 
$E SCAPE 
jri,$ERMAX 
$TSTNM,aDISPLAY 
$LPADR.{SP) 



;. -RESTORE CONTENTS OF ERROR VECTOR 

SEE If CPSAVE HAS CPU ERR REG TJMEOUT INDICATION 
BRANCH IF SO 

SEE IF THE POWER MONITOR BIT IS ON 
BRANCH TO CONTINUE ROUTINE IF CLEAR 
CLEAR THE BIT FOUND TO BE SET 
SAVE SWR ADDRESS 
SAVE SWR VALUE 
GET SOFTWARE SWR ADDRESS 
GET CURRENT SWR VALUE 

DON'T ALLOW LOOP ON ERROR ON THIS ERROR 
CALL SPECIAL POWER FAIL BIT ERROR CALL 
RESTORE SWR TO ORIGINAL VALUE 
RESTORE SWR ADDRESS 

MAX. ERRORS FOR THIS TEST OCCURRED? 
8R IF NO 
LOOP ON ERROR? 
8R IF NO 

SET LOOP ADDRESS TO LAST SCOPE 



ZERO THE ERROR FLAG 

CLEAR THE NUMBER OF ITERATIONS TO MAKE 
ESCAPE TO THE NEXT TEST 
INHIBIT ITERATIONS? 
8R IF YES 

IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
CHECK THE NUMBER OF ITERATIONS MADE 
8R IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
COUNT TEST NUMBERS 
SET TEST NUMBER IN APT MAILBOX 
SAVE SCOPE LOOP ADDRESS 
SAVE ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONE(l) ERROR ON NEXT TEST 
DISPLAY TEST NUMBER 
FUDGE RETURN ADDRESS 
FIXES PS 

MAX. NUMBER OF ITERATIONS 



TSTU2 

TST2*2 

TST3+2 

TST4*2 

TST5*2 

TST6*2 

TST7+2 

TST10*2 

TSnU2 

TST12*2 



STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 



ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



1 

2 

3 

4 

5 

6 

7 

10 

11 

12 



CZRMNBO RM05/3/2 FCTNL T«;t 2 
SCOPE HANDLER ROUTINE 



•WCRO VW.OO 



L 2 
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057474 
057476 
057500 
057502 
057504 
057506 
057510 
057512 
057514 
057516 
057520 
057522 
057524 
057526 
057530 

2 
3 

5 057532 
C57532 
057536 
057542 
057544 

6 
7 
8 

9 057544 
057550 
057554 
057556 
10 057556 



017472 
020304 
021126 
021670 
022432 
023174 
023500 
024004 
024546 
024670 
025206 
026120 
026742 
027524 
030674 



012746 0C0140 
012746 057544 
000002 



U1274( 000240 
012746 057556 



000002 
000207 



;; STARTING 
;; STARTING 
;; STARTING 
;; STARTING 
;; STARTING 
;; STAR TING 
-STARTING 
.-.•STARTING 
.-.•STARTING 
.-.■STARTING 
.-.-STARTING 
.-.-STARTING 
;; STARTING 
; .-STARTING 
;; STARTING 



.-DROP PRIORITY TO ALLOW CONSOLE INTERRUPT 



.WORD 


TST13*2 


.WORD 


TST14*2 


.WORD 


TST15*2 


.WORD 


TST16*2 


.WORD 


TST17*2 


.WORD 


TST20*2 


.WORD 


TST2U2 


.WORD 


TST22*2 


.WORD 


TST23*2 


.WORD 


TS724»2 


.WORD 


TST25*2 


.WORD 


TST26*2 


.WORD 


TST27*2 


.WORD 


TST30*2 


.WORD 


TST31*2 



ADDRESS Of 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 



STOP: 



64S: 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 

27 

30 

31 



MOV 
MOV 
RTI 



*PR3,-(SP) 
*64f.-(SP) 



;PUT NEW PS ON STACK 
;PUT NEW PC ON STACK 
.-POP NEW PC AND PS 



.•RAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 



65$: 



MOV 
MOV 
RTI 

RTS 



*PR5.-(SP) 
*65$.-(SP) 



PC 



.-.-PUT NEW PS ON STACK 
;.-PUT NEW PC ON STACK 
;;POP NEW PC AND PS 

.-RETURN 



SfO 025. 



zzmeo JW05/5/2 fctnl tst 2 

ltm» HANDLER ROUTINE 



1 
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.S8TTL ERROR HANDLER ROUTINE 



•THIS PONTINE WILL INCREMENT Th£ ERROR FLAG AND THE ERROR COUNT. 
•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR fALl 
•AND GO TO ERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
•SW15=1 HALT ON ERROR 

INHIBIT ERROR TYPEOJTS 



•SU13=1 
•SW10=1 
•SW09=1 
•CALL 



BEuL ON ERROR 
LOOP ON ERROR 



057560 


105037 


060152 




SERROR: 


CLR8 


I8SAVE 


057564 


104410 








CKSWR 




057566 


105237 


001 1 1 7 




7$: 


INC8 


SERfLG 


057572 


001775 








BEQ 


7$ 


057574 


013777 


001116 


121354 




MOV 


STSTNM.aDI SPLAY 


C57602 


012777 


002000 


121344 




BIT 


*8IT10.aSWR 


057610 


001402 








BEQ 


1$ 


057612 


104401 


001212 






TYPE 


.$8ELL 




nosp37 

\J\JJQJi 


001 1?<> 




It- 


INC 


SERTTL 

^L*^ Ilk 


057622 


011637 


001132 






MOV 


(SP),$ERRPC 


057626 


162737 


000002 


001132 




sue 


#2.$ERRPC 


057634 


117737 


121272 


001130 




MOVB 


i$ERRPC.$ITEMB 


057642 


032777 


001000 


121304 




BIT 


#8IT09,SSUR 


057650 


001060 








BNE 


1004$ 


057652 


} 22717 


000177 


001 1 30 




CMP8 


#1 77. $ITEMB 


057660 


001454 








BEQ 


1004$ 


057662 


105737 


0601 52 






TST8 


I8SAVE 




001047 








BNE 


1003$ 


057670 


022757 


\77777 


060150 




CMP 


#-1, CPS AVE 


057676 


001445 








BEQ 


1004$ 


057700 


013746 


000004 






MOV 


ERRVEC.-(SP) 


057704 


012737 


0^7722 


000004 




MOV 


#1000$.ERRVEC 


057712 


013737 


1 77766 


060150 




MOV 


1 77766, CPSAVE 


f\F ^rt 

057720 


000406 








BR 


1001* 


0^7722 


012757 


}77777 


060150 


1000$: 


MOV 


#-l,CPSAVE 


057730 


012716 


057736 






MOV 


#1001$, (SP) 


057734 


000002 








RTI 




057736 


012637 


000004 




1001$: 


MOV 


(SP)*,£RRVEC 


057742 


022737 


}77777 


060150 


1002$: 


CMP 


#-l.CPSAVE 


057750 


001420 








BEQ 


1004$ 


057752 


032737 


000001 


060150 




BIT 


*8IT00.CPSAVE 


057760 


001414 








BEQ 


1004$ 


057762 


042737 


000001 


1 77766 




BIC 


#81 TOO, 177766 


057770 


113737 


001130 


060152 




Move 


$ITEMB,IBSAVE 


057776 


112737 


000177 


001130 




MOVB 


#177,$ITEMB 


060004 


000402 








BR 


1004$ 


060006 


105037 


060152 




1003$: 


CLR8 


leSAVE 


060012 








1004$: 






060012 


032777 


020000 


121134 




BIT 


#8IT13,SSWR 


060020 


001004 








BNE 


20$ 


060022 


004737 


060154 






JSR 


PC, ERRTYP 



ERROR N ;;ERROR=EMT AND N-ERROR ITEM NUMBER 

;; CLEAR THE ITEM BYTE SAVE LOCATION 
;;TEST FOR CHANGE IN SOFT-SWR 
;;SET THE ERROR FLAG 
; .-DON'T LET THE FLAG GO TO ZERO 
; .-DISPLAY TEST NUMBER AND ERROR FLAG 
.-.BELL ON ERROR? 
,-;N0 - SKIP 
.-.•RING BELL 

;; COUNT THE NUMBER OF ERRORS 
;;GET ADDRESS OF ERROR INSTRUCTION 

;; STRIP AND SAVE THE ERROR ITEM CODE 
;;SEE IF LOOP ON ERROR IS SET 
;. -BRANCH AROUND ROUTINE IF SO 
.-.-SEE IF THIS IS THE POWER FAIL CALL 
.-.-BRANCH AROUND ROUTINE IF IT IS 

;.-SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
.-.•BRANCH IF SO 

.-.-SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
.-.-BRANCH IF SO 

.•.SAVE CONTENTS OF ERROR VECTOR 
;; SETUP 'TRAP* RETURN ADDRESS 
;;MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

;;SET CPU ERROR REGISTER TIMEOUT INDICATOR 
;; SETUP RETURN ADDRESS 

•.•RESTORE CONTENTS OF ERROR VECTOR 

.-.-SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
.-.-BRANCH IF SO 

;;S£E IF POWER MONITOR BIT IS SET IN CPU ERR REG 
.-.•BRANCH iF OK 
;; CLEAR THE BIT FOUND SET 
.-.-MAKE I8SAVE NON-ZERO FOR DUAL ERROR CALL 
;;SET $ITEMB TO SPECIAL POWER FAIL POINTER 
; .-BRANCH OVER IBSAVE CLEARING 

;. •CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 

;;SKIP TYPEOUT IF SET 
;;SKIP TYPEOUTS 
;;G0 TO USER ERROR ROUTINE 



ZW^O »M05/?/2 FCTNL 


1ST 2 


|*1ACR0 


L^04.00 4- 


-APR-81 


cmruh handler routine 










060026 


10AA01 


001 21 7 






TYPE 


060032 








20$: 




06003<^ 


^227w 


000001 


001242 




CMP8 


0600A0 


001007 








BNE 


0600A2 


1 1 3757 


001130 


060054 




M0V8 


0600S0 


004737 


063116 






JSR 


06005^ 


000 






21$: 


.BYTE 


060055 


000 








.8YTE 


060056 


000777 






22$: 


BR 


060060 


105757 


060152 




2$: 


TSTB 


06006A 


001005 








BNE 


060066 


005777 


121062 






TST 


060072 


1 AAAAT 

1 00002 








BPL 


06007*1 


000000 








HALT 


0600/6 


1 A/ / 1 A 








CKSWR 


0601 00 








3$: 




060100 


ATT 777 

052/ / 7 


001000 


121046 




BIT 


/>Z /M /Si 

C60106 


AA1 / A1 

001»»0i^ 








BEQ 


0601 10 


A-l 7 7 1 

01 5716 


001124 






MOV 


C601 lA 


AAC 71 7 


001210 




4$: 


TST 


0601^:0 


AA 1 / A O 
001 HUi' 








BEO 


0601 


A-l 171 

0^ 5716 


001210 






MOV 


0601 iTO 








5$: 




0601^:6 


U«:t:f if 


032122 


000042 




CMP 


0601 i*( 


AA1 AA1 

001001 








BNE 


0601 36 


AAA AAA 

000000 








HALT 


yJCtv 1 








6$: 




060U0 


105737 


06C152 






TST8 


060KA 


001210 








BNE 


060K6 


000002 








RTI 


0601 50 


000000 






CPSAVE : 


.WORD 


060152 


OOOOOO 






I8SAVE : 


.WOHP 



N 2 
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.$CRLF 

*APTENV,$ENV 
2$ 

$ITEMB,21$ 
PC.$ATY4 

0 
0 

22$ 

I83AVE 

3$ 

aswR 

3$ 



#8IT09,aSWR 
4$ 

$LPERR.(SP) 
$E SCAPE 
5$ 

$ESCAPE.(SP) 

#$ENDAD,a«42 
6$ 



I8SAVE 
7$ 

0 
0 



SEO 0234 



RUNNING IN APT MODE . 

NO, SKIP APT ERROR REPORT 

SET ITEM NUMBER AS ERROR NUMBER 

REPORT FATAL ERROR TO APT 



APT ERROR LOOP 

SEE IF I8SAVE IS LOADED 

BRANCH IF NOT - NO HALT ON PWR MON BIT ERROR 

HALT ON ERROR 

SKIP IF CONTINUE 

HALT ON ERROR! 

TEST FOR CHANGE IN SOFT-SWR 

LOOP ON ERROR SWITCH SET? 
8R IF NO 

'^UDGE RETURN FOR LOOPING 
CHECK FOR AN ESCAPE ADDRESS 
8R IF NONE 

FUDGE RETURN ADDRESS FOR ESCAPE 

ACT-11 AUTO-ACCEPT? 

BRANCH IF NO 

YES 

SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CAIL 
BRANCH BACK TO CALL ORIGINAL ERROR 
RE TURN 

LOCATION TO SAVE CPU ERROR REG CONTENTS 
LOCATION TO SAVE ITEM BYTE 



0 



2 
t 



1 



B 3 
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c 
5 
6 

8 
9 

10 

n 

12 

u 

15 
16 

-•7 

18 
19 

?0 
21 
22 



23 
24 

25 
^6 
27 

2a 

29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



48 
49 



060154 
060156 
060164 
060166 



C60172 
0601 76 
060202 

060206 
060210 
060211 



060212 
060216 
060222 
060226 
060234 
060240 

060242 
060250 
060254 

060256 
060264 

060270 
060272 
060276 
060300 



060302 
060306 
060314 
060320 

060324 
060326 
060327 
060330 
060334 



104414 

032777 020C00 
001402 

000137 061014 



104401 
104401 
013746 

104403 
003 
000 



013700 
016000 
042700 
012737 
022700 
001414 

012737 
022700 
001406 

012737 
022700 
001004 
104401 
104401 
000000 



005037 
013737 
104401 
013746 

'04403 
003 
000 
005037 
i:3737 



0C1217 
061030 
001234 



001276 
000026 
1 77740 
064373 
000024 



064366 
000025 



064400 
000027 

061065 



061020 
001226 
061035 
061020 



061022 
001130 



SEO 0235 



.S8TTL ERROR TyPEOUT ROUTINE 

•THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
•REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 

• .UNIT NUMBER. DRIVE TYPE. TEST NUMBER. ERROR NUMBER AND 

•PROGRAM COUNTER ARE PRINTED ON THE FIRST LINE; 

.ERROR MESSAGE IS ASSEMBLED. FORMATTED AND PRINTED ON 
•ONE OR MORE SUCCEEDING LINES; 

.PAIRED LIV/ES OF ERROR HEADERS AND ERROR DATA ARE PRINTED 
•AFTER THE ERROR MESSAGE. 



'20770 



ERRTVP: 



SAVREG 
BIT 
BEQ 
JMP 



#SWl3,aSWR 

IS 

27$ 



INHIBIT TYPEOUTS?? 
NO! . 
YES. ! 



;TVPE UNIT NUMBER. DRIVE TYPE. TEST NUMBER. ERROR NUMBER. AND 
; PROGRAM COUNTER 
1$: TYPE .SCRLF 

TYPE .ERTYOO 

MOV SUNIT.-(SP) 



TYPOS 
.BYTE 3 
.BYTE 0 



TYPE "DRV*" 

;SAVE $UNIT FOR TYPEOUT 
;TYPE DRIVE NUP«ER 
;G0 TYPE— OCTAL ASCII 
;TYPE 3 DIGIT (S) 
; SUPPRESS LEADING ZEROS 



TYPE 'DRIVE TYPE* RM05. RM03 OR RM02 FOR UNIT UNDER TEST 



060300 



060300 



060300 



061020 



2$: 

3$: 

;TYPE 
4S: 



MOV 


SQASE.RO 


;6ET RM BASE ADDRESS 


MOV 


RMDT(RO).RO 


;GET DRIVE TYPE REGISTER 


BIC 


#1 77740.ro 


;SAVE DRIVE TYPE BITS AND 


MOV 


#$RM03.3$ 


;GET ASCII DRIVE TYPE 


CMP 


#24. RO 


;IS DEVICE AN RM03 ? 


8E0 


2$ 


;YES 11 


MOV 


#$RM02,3$ 


;SAVE ASCII DRIVE TYPE 


CMP 


*25.R0 


;IS DEVICE AN RM02 ? 


BEQ 


2$ 


;YES i: 


MOV 


#SRM05.3S 


;SAVE ASCII DRIVE TYPE 


CMP 


#27.R0 


;IS DEVICE AN RM05 ? 


BNE 


4S 


;No :: 


TYPE 


.ERTY05 


;TYPE - " 


TYPE 




;TYPE DRIVE TYPE 


.WORD 


0 


;DRIVE TYPE MESSAGE IS ST 



TEST NUMBER. ERROR NUMBER AND PROGRAM COUNTER 



061022 



CLR TSTNMB 

MOV STESTN, TSTNMB 

TYPE .ERTY01 

MOV TSTNMB. -(SP) 

TYPOS 

.BYTE 3 

.BYTE 0 

CLR ERRNMB 

M0V8 SITEMB. ERRNMB 



LOAD TEST NUMBER FOR 
TYPE 'TST^' 

;SAVE TSTNMB FOR TYPEOUT 

;TYPE TEST NUMBER 

;G0 TYPE— OCTAL ASCII 

;TYPE 3 DIGIT(S) 

; SUPPRESS LEADING ZEROS 

LOAD ERROR NUMBER FOR 

TYPEOUT 



CZRM^eO RM05/3/2 FCTML TST 2 
FRROR TYPECXjT routine 
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50 060342 

51 060344 

52 060350 



060354 
060356 
060357 
060360 
060364 



53 
54 



060370 
06037? 
060373 

55 
56 

57 060374 

58 060400 

59 060402 
60 

61 C60406 

62 060412 

63 060416 

64 060422 

65 060426 

66 060432 

67 060434 

68 060440 

69 060442 

70 060444 

71 060446 

72 060450 
76 060454 
7i, 

75 060456 

76 

77 

78 060460 

79 060462 

80 060464 

81 060470 

82 060474 

83 060476 

84 060500 

85 060504 

86 060506 

87 060512 

88 060514 

89 060520 

90 060522 

91 060526 

92 060530 

93 060534 

94 060542 

95 060544 

96 060546 

97 060552 

98 060556 



001406 

104401 C61045 
013746 061022 



104403 
003 
000 
104401 
013746 

^04403 
006 
001 



005737 
001002 
000137 

104401 
105037 
105037 
013700 
122700 
001 003 
012700 
000405 
006300 
006300 
006300 
062700 
011001 

001507 



012102 
001505 
010237 
005037 
112203 
001454 
122703 
001003 
105037 
000770 
122703 
001 765 
122703 
001007 
105237 
132737 
001372 
000407 
105237 
122703 
001002 



061054 
001 1 32 



061022 

061014 

001217 
061026 
061027 
061022 
0001 77 

061072 



001572 



060632 
061024 



000015 

061027 

000012 

00001 1 

061027 
000007 



061027 
000040 



5$: 



BEQ 
TYPE 

nov 

TYPOS 
.8YTE 
• BYTE 
TYPE 
WV 

rvpos 

.BYTE 
.BYTE 



5$ 

,ERTY02 
ERRNMB.-(SP) 



3 
0 

.ERTY03 
fERRPC.-(SP) 



6 
1 



SKIP IF NO ERROR CALLED 
TYPE "ERR#" 

.•SAVE ERRf#B FOR TYPEOUT 
;TYPE ERROR NUMBER 
;G0 TYPE— OCTAL ASCII 
;TYPE 3 DIGIT (S) 
.SUPPRESS LEADING ZEROS 
TYPE 'T>C=" 

.•SAVE SERRPC FOR TYPEOUT 
;TYPE PROGRAM COUNTER 
;G0 TYPE— OCTAL ASCII 
.•TYPE 6 DIGIT (S) 
.-TYPE LEADING ZEROS 



.GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0 



6S: 



7$: 



061027 



8S: 



9$: 



;TYPF 
10$: 



11$: 



12$: 



15$: 



14$: 



TST 
BNE 
JMP 

TYPE 
CLR8 
CLRB 
MOV 
CMP8 
BNE 
MOV 
BR 
ASL 
ASL 
ASL 
ADD 
MOV 

BEQ 

THE ERROR 
MOV 
BEQ 
MOV 
CLR 
MOVB 
BEQ 
CMP8 
BNE 
CLRB 
BR 
CMP8 
BEQ 
CMPB 
BNE 
INC8 
BITB 
BNE 
BR 
INCB 
fMPB 
BNE 



ERRNMB 
7$ 
27$ 

.$CRLF 

BOTFLG 

CHRCNT 

ERRAWB.RO 

#1 77. RO 

8$ 

*PFECH.RO 
9$ 

RO 
RO 
RO 

ir$ERRTB-8. .RO 

(RO).Rl 

19$ 

MESSAGE 

(R1)*,R2 

19$ 

R2.18$ 
BO T ADR 
(R2)-».R3 
17$ 

*CR,R3 
12$ 

CHRCNT 
11$ 

#LF.R3 
11$ 

#HT.R3 
14$ 

CHRCNT 
*7. CHRCNT 
13$ 
15$ 

CHRCNT 
*• .R3 
15$ 



WAS AN ERROR CALLED? 
BR IF YES 
NO— EXIT 

YES-TYPE CRLF 

CLEAR BOT FLAG 

CLEAR CHARACTER COUNTER 

RO POINTS TO FIRST OF 

SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
BRANCH IF NOT 

MOVE POWER FAIL ERROR CALL TABLE TO RO 

FOUR ENTRIES IN ERROR 
TABLE 



'<1 POINTS TO ERROR MESSAGE 
TABLE 

BRANCH IF NO ERROR MESSAGE 



R2=ADDRESS OF MESSAGE STRING 
BRANCH IF END OF MESSAGE 
LOAD ADDRESS OF STRING 
''lEAR BOT ADDRESS 
END OF STRING?? 
YES! ! 

CARRIAGE RETURN?? 
NO! ! 

YES-CLEAR CHAR COUNT 
GET NEXT CHARACTER 
LINE FEED?? 

YES-GET NEXT CHARACTER 
HORIZONTAL TAB?? 
NO! I 

ADJUST CHARACTER COUNT 



INCREMENT CHARACTER COUN' 

SPACE?? 

NO! ! 



/RMNBC kM05/3/2 FCTNL 
ERROR TvPEOUT ROUTINE 
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99 

^00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



060S60 
060564 

060572 
060574 
060600 
060602 
060606 
060612 
060616 
060620 
060622 
060630 
060632 
060634 
060640 
060642 
060646 
060652 
060656 
C60662 
060666 
060672 
060674 



060676 
060702 
060704 
060710 
060714 
060720 
060724 

060726 
060730 
060732 
060756 
060740 
060742 
060744 
060746 
C60750 
060752 
060754 
060756 
060760 
060762 
060764 
060766 
060770 
060772 
060774 
060776 
061000 
061004 
061006 
061012 



010237 
122737 
103340 
01 3704 
001007 
104401 
105037 
01 3702 
000726 
105U44 
112737 
104401 
000000 
105737 
001 707 
104401 
105037 
105037 
013702 
010237 
112742 
105722 
000677 



016001 
00^444 
10440) 
016002 
016003 
012137 
001433 

104401 
000000 
104401 
005702 
001767 
012204 
012305 
105725 
100407 
001403 
013446 
104405 
000405 
013446 
104402 
000402 
013446 
104406 
005714 
001403 
104401 
000760 
104401 
000742 



061027 15$: 



061024 
000100 

061024 

001217 
061027 
060632 



y77777 061026 



061026 

001217 
061026 
061027 
061024 
060632 
000040 



000002 

001217 
000004 
000006 
060730 



001217 



6$: 

17$: 
18$: 



MOV 

CMPB 

8HJS 

MOV 

BNE 

TYPE 

CLR8 

MOV 

BR 

CLR8 

M0V8 

irPE 

.WORD 

TST8 

BEQ 

TYPE 

CLR8 

CLR8 

MOV 

MOV 

M0V8 

TST8 

BR 



R2.80TAnR 
»64. .CHRCNT 

11$ 

80TADR,R4 

16$ 

.$CRLr 

CHRCNT 

18$. R2 

11$ 

-CH) 

#-1.80TFLG 



BOTFLG 
10$ 

.$CRLF 

BOTFLG 

CHRCNT 

B0TADR,R2 

R2.18$ 

*• .-(R2) 

(R2)* 

11$ 



SAVE ADDRESS OF SPACE 
END OF LINE?' 
NO. . 

GET ADDRESS OF LAST SPACE 
BRANCH IF SPACE DETECTED 
TYPE CRLF 

CLEAR CHARACTER COUNT 
SET UP R2 FOR TESTING 

REPLACE SPACE 
SET BOT FLAG 

TYPE ERROR MESSAGE STRING 
STRING ADDRESS GOES HERc 
WAS STRING TRUNCATED?? 
NO! ! 

YES- TYPE CRLF 
CLEAR 80T FLAG 
CLEAR CHARACTER COUNT 
SETUP R2 FOR TESTING 
SETUP 18$ FOR TYPING 
RESTORE SPACE 
RESTORE R2 
TYPE REST OF STRING 



;TYPE ERROR HEADER AND ERROR 
19$: 



20$: 



DATA 



061062 
001217 



21$: 



22$: 



23$: 

24$: 
25$: 

26$: 





P(RO) R1 


•R1 POINTS TO ERROR HEADER 


TA8LE 


BEQ 


27% 


■BRANCH IF NO HEADER 




TYPE 


,$CRLF 


■(ASSUME NO DATA) 




MOV 


4(R0).R2 


■R2 POINTS TO DATA ADDRESS 


TABLE 


MOV 


6(R0).R3 


•R3 POINTS TO FOWAT TABLE 




MOV 


(R1)*.21$ 


:PUT HEADER ADDRESS FOR TYPE 


BEQ 


27$ 


■BRANCH IF END OF HEADERS 
•(ASSUME END OF DATA) 




TYPE 








.WORD 


0 


■HEADER ADDRESS GOES HERE 




TYPE 


.$CRLF 






TST 


R2 


;DATA WITH HEADER?? 




BEQ 


20$ 


;N0; ! 




MOV 


(R2)*.R4 


;R4 POINTS TO DATA ADDRESS 




MOV 


(R3)*,R5 


;R5 POINTS TO FORMAT 




TST8 


(R5)* 


rWHAT KIND OF DATA?? 




BMI 


24$ 


;8INARY 




BEO 


23$ 


; OCTAL 




MOV 


a(R4)*,-(SP) 


; DECIMAL 




TYPDS 








BR 


25$ 






MOV 


S(R4)*,-(SP) 






TYPOC 








BR 


25$ 






MOV 


a(R4)*,-(SP) 






TYP8N 








TST 


(R4) 


;MORE DATA?? 




BEQ 


26$ 


;N0. 1 




TYPE 


.ERTY04 


; YES-TYPE 2 SPACES 




BR 


^2$ 


.-AND CONTINUE 




TYPE 


.$CRLF 


;TYPE ONE BLANK LINE 




BR 


20$ 


;8EF0RE NEXT HEADER 





ZR^irgBO RM05/3/^ FCTNL TST 2 1ACR0 VOA 00 ^ 
FRROR TYPEOUT RCXJTIf>j£ 



156 0610K 


1044"" 5 






27$: 


061016 


000207 








158 










159 061020 


000000 






TST^#B 


160 061022 


000000 






ERRNW8 


161 061 02^ 


000000 






BOTADR 


\h2 061026 


000 






BOTFLG 


163 061027 


000 






CHRCNT 


164 










165 061030 


104 


122 


126 


ERTYOC 


166 061035 


054 


040 


124 


ertyoi 


'o7 061045 


054 


040 


105 


ERTY02 


168 061054 


054 


040 


120 


ERTY03 


169 061062 


040 


040 


000 


ERTY04 


170 061065 


040 


055 


040 


ERTY05 


171 








.EVEN 


172 061072 


061102 


061 1 70 


061206 


PFECH: 


173 061102 


06r06 


000000 




PFECH^ 


174 061106 


120 


117 


\27 




175 










176 061170 


061174 


OOOCDO 




PFECH2 


1 77 061 1 74 


103 


20 


125 














179 061206 


061210 






PFECH3 


18C 061210 


0601 50 


000000 






181 061^14 


061216 






PFE CH4 


182 061216 


000 


000 
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RESREG 
RTS PC 



.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 



0 
0 
0 
0 
0 



.•TEST NUMBER 
.ERROR NUMBER 

.•BEGINNING OF TEXT ADDRESS 
;B0T FLAG 
.•CHARACTER COUNT 



.Asciz aDryv#a 

.ASCIZ a, TEST#a 

.ASCIZ a, ERR'a 

.ASCIZ a. pc=a 

.ASCIZ a a 

.ASCIZ a - a 

PFECHI ,PFECH2.PFECH3,PFECH4 ; WORDS DEFINING TABLES BELOW 
.♦4.0 

.ASCIZ 7P0WER MONITOR BIT IN CPU ERROR REGISTER FOUND SET 

.EVEN 

.♦4.0 

.ASCIZ 7CPUERREG? 

.EVEN 

.♦2 

.WORD CPSAVE.O 
.♦2 

.BYTE 0.0 



■Z'*«»fiO KW05/5/2 FCTNL TST 2 
INPUT ROUTINE 
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.S8TTL TTV INPUT ROUTINE 



061220 
06122? 
061224 
061226 



000000 
OOOCOO 
000000 

061227 



C61230 
061234 
061242 
061250 
061256 
061264 
061270 
061276 



005037 
012737 
013737 
012737 
012737 
005777 
012777 
000207 



061220 
061226 
061222 
061300 
C00200 
1 1 7672 
000100 



.ENABl LS8 
STKCNT: .WORD 0 
ITICQIN: .WORD 0 
STKQOUT: .WORD 0 
STKQSRT*: .8LK8 1 
tTKOEND=. 
.EVEN 



NUMBER OF ITEMS IN QUEUE 
INPUT POINTER 
OUTPUT POINTER 
TTV KEYBOARD QUEUE 



•TK INITIALIZE ROUTINE 

•THIS ROUTINE WILL INITIALIZE THE TTV KEVSOARD INPUT 
•SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD 

•CALL: 

• JSR PC.STKINT 

• RETURN 



QU«=UE 
INTERRUPT 



061222 
061224 
000060 
000062 

1 1 7662 



STKINT: CLR STKCNT 

MOV #$TKQSRT,$TKQIN 

MOV $TKOIN,$TKQOUT 

MOV #$TKSRV.a#TKVEC 

MOV #200,a*TKVEC*2 

^ST aSTK8 

MOV #100.a$TKS 

RTS PC 



CLEAR COUNT OF ITEMS IN QUEUE 

MOVE THE STARTING ADDRESS OF THE 

QUEUE INTO THE INPUT & OUTPUT POIN-ER*^ 

INITIALIZE THE KEYBOARD VECTOR 

'BR" LEVEL 4 

CLEAR DONE FLAG 

ENA8LE TTY KEYBOARD INTERRUPT 

RETURN TO CALLER 



061 300 


11 "746 


117656 




$TKSRV: 


M0V8 


S$TK8.-(SP) 


061304 


042716 


1 77600 






BK 


#*C177,(SP) 


061310 


021627 


000021 






CMP 


(SP) .#$X0N 


061314 


001002 








8NE 


30$ 


061316 


005726 








TST 


(SP)* 


061320 


000002 








RTI 




061322 








30$- 






061322 


021627 


000003 






r,MP 


(SP),#3 


061326 


001007 








BNE 


1$ 


061330 


1044C1 


062426 






TYPE 


.SCNTlC 


061334 


00475,' 


061230 






JSR 


PC.STKINr 


061340 


005726 








TST 


(SP)* 


061342 


000137 


062470 








1)HUT2 


061346 


021627 


000007 




1$: 


CMP 


(SP).#7 


061352 


001004 








9NF 


2S 


061354 


022737 


000176 


001154 




CMP 


#SWREG,SWR 


061362 


001500 








BEQ 


6S 


061364 








2$: 






061364 


022737 


000001 


061220 




CMP 


#1 .STKCNT 


061372 


001004 








BNE 


3$ 


061374 


104401 


001212 






TYPE 


.S8ELL 



•TK SERVICE ROUTINE 

•THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

•BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

•IT IN THE QUEUE. 

•IF THE CHARACTER IS A "CONTROL-C" CO STKiNT IS CALLED AND 

•UPON RETURN EXIT IS MADE TO ThL "CONTROL-C" RESTART ADDRESS (SHUT2) 

PICKUP THE CHARACTER 
STRIP THE JU»^ 
IS IT A RANDOM XON^ 
BRANCH IF NO 

CLEAN RANDOM XON OFF STACK 
RETURN 

IS IT A CONTROL C? 
BRANCH IF NO 
TYPE A CONTROL-C CO 
I NIT THE KEYBOARD 
CLEAN UP STACK 
CONTROL C RESTART 
IS IT A CONTROL G^ 
BRANCH IF NO 
IS SOFT-SWR SELECTED? 
GO TO SWR CHANGE 



;1S THE QUEUE FULL? 
.•BRANCH IF NO 
.•RING THE TTY BELL 



JSMNBO RMOS/3/2 F'TNL ^S' ? 
I'^PUT ROUTINE 



MACHO VC4.00 
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06K00 


005726 








TST 


(SP)* 


.•CLEAN CHARACTER OFF Of STAlK 


061402 


000451 








BR 


5$ 


;FXJ T 


061404 
06y^10 


021627 


000023 




5S: 


CMP 


(SP),#23 


;JS IT A CONTROL-S? 


001021 








BNE 


32$ 


.-BRANCH JF NO 


061412 


005077 


1 1 7542 






CLR 


S$TICS 


.-DISABLE TTy KEYBOARD INTERRUPTS 


061416 


005726 








T^T 


(SP)* 


.-CLEAN CHAR OFF STACK 


061420 


105777 
10037S 


1 1 7534 




31$: 


TST8 


S$TKS 


.•WAIT FOR A CHAR 


061424 








BPL 


31$ 


;L0OP UNTIL ITS THEhE 


061426 


1 1 7746 


117530 






M0V8 


a$TK.8,-(SP) 


;GET THE CHARACTER 


061432 


042716 


177600 






SIC 


#"1177, (SP) 


.•MAKE IT 7-BIT ASCII 


061456 


022627 


000021 






CMP 


(SP)*.#21 


;IS IT A CONTROL-0? 


061442 


001366 








BNE 


31$ 


.•BRANCH IF NO 


061444 


012777 


000100 


1 1 7506 




MOV 


*ioo,a$TKS 


; RE ENABLE TTY KEYBOARD INTERRJPTS 


061452 


000002 








RTI 




.•RETURN 


061454 


005237 


061220 
000140 




32$: 


INC 


$TKCNT ; 


.•COUNT THIS CHARACTER 


061460 


021627 






CMP 


(SP),t140 


;IS IT UPPER CASE? 


061464 


002405 








BLT 


A$ 


.•BRANCH IF YES 


061466 


021627 


000175 






CMP 


(SP),*175 


;IS IT A SPECIAL CHAR? 


061472 


003002 








BGT 


4$ 


.•BRANCH IF YES 


C61474 


042716 


0C0040 






BJC 


*40,(SP) 


;MAKE IT UPPER CASE 


Uo 1 JW 


1 1 dOf f 


1 f ^ J ID 






Mnv/D 

nuvo 


I or/ ♦ ,«» 1 MJiiM ; 




061504 


005237 


061222 






INC 


$TKQJN 


.•UPDATE THE POINTER 


061510 


023727 


061222 


061227 




CMP 


$TKQ]N.#$TKO£ND ; 


.•GO OFF THE END? 


061516 


001003 








BNE 


5$ 


.-BRANCH IF NO 


061 520 


012737 


061226 


061222 




MOV 


#$TKQSRT,$TKQIN ; 


.-RESET THE POINTER 


061526 


000002 






5$: 


RTJ 




; RE TURN 



061530 
061556 
061540 
061544 
061 546 
061552 
061556 
061562 



022737 
001124 
105777 
100121 
1 1 7746 
042716 
021627 
001300 



000176 001154 $CKSWR: 

117414 

117410 
1 77600 
000007 



•SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
"ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
•CALL WHEN OPERATING IN TTY INTERRUPT MODE, 



fMP 

BNE 

TST8 

BPL 

M0V8 

BIC 

CMP 

BNE 



«SWREG.SWR 
15$ 
S$TKS 
15$ 

a$TK8.-(SP) 
#*C177.(SP) 
(SP).#7 
2$ 



IS THE SOFT-SWR SELECTED 

EXIT IF NOT 

IS A CHAR WAITING? 

IF WT. EXIT 

YES 

MAKE IT 7-BIT ASCII 

IS IT A CONTROL-G? 

IF NOT. PUT IT IN THE TTY QUEUE 

AND EXIT 



061564 
061572 
061574 
061576 
061602 
C61606 

0616U 
061620 
061624 
061630 



123727 
001674 
005726 
004737 
005077 
112737 

104401 
104401 
01 3746 
104402 



061230 
117352 
000001 

062440 
062445 
0001 76 



001151 



001150 000001 6$: 



•CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
•ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
•CONTROi -G BEING TYPED. AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 



CMP8 

BEO 

TST 

JSR 

Cf R 

MOVB 



TYPE 

IGTSWR: TYPE 
MOV 
TyPOC 



$AUT06.#1 
2$ 
(SP)* 
PC.$TKINT 
a$TKS 
#1.$INTAG 

.$CNTLG 
.$MSWR 

SWREG,-(SP; 



ARE WE RUNNING IN AUTO-MODE? 
BRANCH IF YES 
CLEAR CONTROL-G OFF STACK 
FLUSH THE TTY INPUT QUEUE 
DISABLE TTY KEYBOARD INTERRUPTS 
SET INTERRUPT MODE INDICATOR 

ECHO THE CONTROL-G CG) 

'YPE CURRENT CONTENTS 

SAVE SWREG FOR TvPEQUT 

GO TYPE— OCTAL ASCII (ALl Dlil'^ 



ZfJMNBO RK)S/^/2 KTNL ^ST ? MACRO VW.OO 
TV INPUT RCXJT1« 



061632 


104401 


062456 




19$: 


TtPE 


061656 


005046 






CLR 


061 6A0 


005046 








CLR 


0616<r2 


105777 


117512 




7$: 


rST8 


061646 


100375 








BPL 


061650 


117746 


117306 






MOvo 


061654 


042716 


1 77600 






BI C 


061660 


021627 


000005 






cw 


061664 


001015 










061666 


104401 


062426 






1 tHc 


061672 


062706 


000006 






ADD 


061676 


123727 


AA4 4 P 1 

001 151 


AAA A A 1 

000001 






061704 


001003 








BNE 


061706 


0^2777 


AAA1 AA 

0001 00 


1 1 f2l*i> 




UAl / 

MOV 


061714 


000137 


A ^ 1 / 7 A 

062470 




81: 




G61 720 


021627 


0C0025 




9$: 


CMP 


061 724 


001005 








BNt 


061 726 


104401 


062433 






rrPE 


061 732 


062706 


AA A AAZ 

000006 




^A* . 


ADD 


061736 


000737 








oH 


061 '40 


021627 


AAAAI C 

00001 5 




1 AC . 




061744 


001022 










061 746 


005766 


AAAA A/ 

000004 






T C T 

TST 


061 752 


AAi /AT 

001403 








QC A 


061 754 


016677 


A.AA A A T 

000002 


1 1 7*1 70 

117 1 7^ 




MAI/ 

MOV 


061 762 


062706 


A AAAAZ 

000006 




lie. 

115: 


ADD 


061 766 


1 A / / A 1 


AAi T 1 7 

00121 7 




1^1 : 


I Tr't 


061 772 


123727 


AAi i C 1 

0011 51 


OOOOU 1 




CMPH 


062000 


A A ^ A A 7 

001005 








BNc 


062002 


A"1 "^777 

012777 


A AAI AA 

000 TOO 


1 1 71 CA 




nuv 


062010 


aaaaat 

000002 






1 !)>: 


W 1 J 


062012 


A Ay "7 

004757 


AC Z Z / T 

05664^ 




1 D» : 


1 C D 


062016 


A"^ 1 ^ 


000060 






Lnr 


062022 


AA'i/ "^A 

002420 








Ol T 

HL I 


062024 


021627 


A AA 7 

00006 f 






riiD 

LW 


062030 


AA^AI C 

00301 5 








Q/" T 
BO \ 


06^032 


042726 


000060 






OIL 


062056 


005766 


AAAA A T 

000002 






T C T 


062042 


AA4 / AT 

001 403 










062044 


AAZ T1 Z 

006316 








A C 1 

ASL 


062046 


A AZ 71^ 

0065 16 








ASL 


062050 


AAZ Z 

006516 






1 7« . 


A C 1 

AbL 


062052 


AAC Z 

005^66 


AAA AA T 

000002 




INC 


06<;U!>o 


0 joo lO 


1 7777A 






oi ^ 


062062 


000667 








B? 


06206^ 


104401 


001216 




18S: 


TVPE 


062070 


0C0720 








BR 










.DSA8L 


LS8 
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.IMNfy 

-rsP) 
-(SP; 

7$ 

a$Tx:8,-(SP) 

#*C177.<SP) 

(S'-').#3 
9$ 

.SCNTLC 
*6.SP 
$INTAG.#1 
8$ 

• lOO.SlTICS 
SHUT 2 



(SP).*25 
10S 

.SCNTLU 

#6.SP 

19$ 



(SPJ .#15 
16$ 
4(SP) 
11$ 

2(SP).aSWR 

*6,SP 

.$CRLF 

$1NTAG,#1 

15$ 

*100.a$TKS 

PC.$TYPEC 

(SP),*60 

18$ 

(SP).#67 
18$ 

#60.(SP)+ 

2(SP) 

17$ 

(SP) 
(SP) 
kSP) 
2(SP) 

-2(SP).(SP) 
7$ 

,$QUES 
20$ 



; .-PROMPT FOR NEW SWR 
; .-CLEAR COLWTfR 
.-.-THE NEW SUR 
.-;CHAR THERE? 
;;IF NOT TRY AGAIN 

;;PICK UP CHAR 
;;MAKE IT 7-8IT ASCII 

;;IS IT A CONTROL-C? 

; .-BRANCH IF NOT 

.-.-VES. ECHO CONTROL-C (*C) 

;; CLEAN UP STACK 

.•;REENA8LE TTr KEYBOARD INTERRUPTS 
; .-BRANCH IF NO 

; .-ALLOW TTY KEYBOARD INTERRUPTS 
;; CONTROL-C RESTART 



;;IS IT A CONTROL -U? 

; .-BRANCH IF NOT 

;;YES, ECHO CONTROL -U fU) 

;; IGNORE PREVIOUS INPUT 

;; LET'S TRY IT AGAIN 



;;IS IT A <CR>? 
; .-BRANCH IF NO 

;;YES, IS IT THE FIRST CHAR? 
;; BRANCH IF YES 
;;SAVE NEW SWR 
;; CLEAR UP' STACK 
;;ECHO <CR> AND <LF> 
;;RE-ENA8LE TTY KBD INTERRUPTS? 
;;8RANCH IF NOT 

; .-RE-ENABLE TTY KBD INTERRUPTS 

; .-RETURN 

.-.-ECHO CHAR 

;;CHAR < 0? 

; .-BRANCH IF YES 

;.-CHAR > 7? 

; .-BRANCH IF YES 

; .-STRIP-OFF ASCII 

;;IS THIS THE FIRST CHAR 

; .-BRANCH IF YES 

;;N0. SHIFT PRESENT 

CHAR OVER TO MAKE 

ROOM FOR NEW ONE. 
.-.-KEEP COUNT OF CHAR 
;;SET IN NEW CHAR 
.-.-GET THE NEXT ONE 
;;TYPf ?<CR><LF> 
;; SIMULATE CONTROL -U 



'^Y INPUT ROUTIME 



06207? 
062074 
062102 
062106 
062110 
0621 K 
062116 
062116 
062122 
062124 
062130 
062136 
062K2 
062150 
062152 
062160 



062162 
062164 
062166 
062172 
062176 
062200 
062202 
062204 
C62210 
062212 
062214 
062216 
062224 
062230 
062234 
062236 
062242 
062244 
062250 
062254 
062256 
062260 
062262 
062270 
062274 
062276 
062302 



011646 
016666 
005066 
005046 
012746 
000002 

005737 
001 775 
005337 
1 1 7766 
005237 
023727 
001003 
012737 
000002 



010346 
005046 
012703 
022703 
101456 
104411 
112613 
122713 
001022 
005716 
001007 
112737 
104401 
012716 
005303 
020327 
103434 
111337 
104401 
000746 
005716 
001406 
112737 
104401 
005016 
122713 
001003 



000004 
000004 

062116 



061220 

061220 
1 77070 
061224 
061224 

061226 



062416 
062426 



0001 77 



000134 
062414 
}77777 

062416 

062414 
062414 



000134 
062414 

000025 
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•THIS ROUTINE WILL INPUT A SINGlE CHARACTER fROM THE TTY 

•CALL: 



000002 



SRDCHR: 



64$: 
^$: 



000004 
061227 
061224 



2$: 



RDCHR 

RETURN HERE 



MOV (SP).-(SP) 

MOV 4(SP).2'SP; 

CLR 4(3P) 

CLR -(SP) 

MOV 4r64$.-(iP) 
RTI 

TST STKCNT 

BEO IS 

UtC STKCNT 

M0V8 a$TK00UT,4(SP) ; 

INC STKQOUT ; 

CMP $TKCI0UT.#$TK0END 

BNE 2$ ; 

MOV *$TK0SRT.$TK00UT 
RTI ; 



GET A CHARACTER FROM THE QUEUE 
CHARACTER IS ON THE STACK 
WITH PARITY BIT STRIPPED OFF 



PUSH DOWN THE PC AND 
THE PS 

GET READY FOR A CHARACTER 
PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



..-WAIT ON A CHARACTER 



DECREMENT THE COUNTER 

GET ONE CHARACTER 

UPDATE THE POINTER 

.-DID IT 60 OFF OF THE END^* 

BRANCH IF NO 

.■RESET THE POINTER 

RETURN 



THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
CALL: 

RDLIN 

RETURN HERE 



INPUT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER WILL BE ON THE S^ACK 
TERMINATOR WILL BE A BYTE OF ALL O'S 



$RDL IN: 

1$: 
2$: 



10$: 



062414 



062414 



6$: 



5$: 



7$: 



MOV R3.-(SP) 

CLR -(SP) 

MOV #$TTYIN.R3 

CMP #$TTY1N*8.,R3 

BLOS 4$ 

RDCHR 

M0V8 (SP)*.(R3) 

CMPB *1 77, (R3) 

BNE 5$ 

TST (SP) 

BNE 6$ 

M0V8 *'\.9$ 

TYPE .9$ 

MOV #-1.(SF) 

DEC R3 

CMP R3.>»$TTYIN 

BLO 4$ 

M0V8 (R3),9$ 

TYPE .9$ 

BR 2$ 

TST (SP) 

8EQ 7$ 

M0V8 *'\.9$ 

TYPE ,9$ 

CLR (SP) 

CMP8 *25.(R5) 

BNE 8S 



SAVE R3 

CLEAR THE RU60UT KEY 
GET ADDRESS 
BUFFER FULL? 
BR IF YES 

GO READ ONE CHARACTER FROM THE TTY 
GET CHARACTER 
IS IT A RU60UT 
BR IF NO 

IS THIS THE FIRST RU80UT? 
8ft IF NO 

TYPE A BACK SLASH 

SET THE RU80UT KEY 
BACKUP BY ONE 
STACK EMPTY? 
BR IF YES 

SETUP TO TYPEOUT THE DELETED CHAR. 
GO TYPE 

60 READ ANOTHER CHAR. 
RU80UT KEY SET? 
8R IF NO 

TYPE A BACK SLASH 

CLEAR THE RUBOUT KEY 
IS CHARACTER A CTRL U? 
RR IF NO 



TV INPUT ROUTINE 





06230A 


104401 




0623'' 0 


000726 




062312 


122713 




062316 


00101 1 




062320 


105013 




062322 


104401 




062326 


104401 




062332 


00071 7 




062 33A 


104401 




062340 


000712 




062 3A 2 


1 1 1 337 




062 3A6 


1 A y y A 1 

104401 




062352 


\c27db 




062356 


001 305 




062560 


1 ACAZ T 

105065 




062364 


1 Ay / Ai 

1 04401 




062370 


AAC 

005726 




062372 


012603 




062 3 /^A 


A 1 1 z. y z 

01 1 646 




0623/^6 


A1 Z. 

01 6666 




062A0A 


AIT 7^. Z 

012766 




062A 12 


AAA AA 

000002 




06^H it» 


AAA 

000 




062A 1 5 


AAA 

000 




062A16 








1 36 




062A33 


136 




062440 


1 56 




062445 


01 5 




Az. *>/ 

062456 


04U 


5 


062470 


012737 




062476 


105737 


5 


062502 


001002 


6 


062504 


000137 


7 


062510 


000002 



TST 2 NACftO V04.00 4-APR-81 



Az ^ y W 

062433 














BR 


000022 




8S: 


CMP8 








BNc 








1 Aft 

CLR8 


00121 7 






T YPt 


062416 






TYPE 








Bh 


001216 




4J: 


1 YPt 








BR 


AZ T / 1 / 

0624 1 4 




5»: 




062414 








00001 5 






CMPo 








till«C 


\ f f 1 f f 






CLRo 


AA1 "^^A 

001 220 






T VDC 

I YPt 








T C T 

Til 








>"IOv 








MOV 


AAAAA/ 

000004 


AAAAA *> 
UOOUOi? 




AiA\# 

MOV 


AZ. T/ 1 ^ 

06*:416 


000004 




MAI. 








O T ! 
R' i 






yj . 


.HY 1 1 








OW TC 

• OY 1 1 






C T T V r fcl • 




103 


015 


SCNTLC: 


.ASCIZ 


125 


015 


SCNTLU: 


.ASCiZ 


1 A7 


A1 C 

U 1 5 






A1 O 


1 OT 

1 ^3 


Cm CI ID . 


AC r 1 7 
. AS'. J / 


A/ A 

04U 


116 


CMIklC ■ 


AC r 1 7 






• EvcN 




^77777 


001326 


SHUT 2: 


MOV 


001116 






TST8 








BNE 


032142 






JIV> 






1$: 


RTI 
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.SCNTLU ;;TYPE A CONTROL 'M" 

1$ ;;G0 START OVER 

#22. (R3) ;;IS CHARACTER A "*R"? 

3S ; .-BRANCH IF NO 

(R3) ;; CLEAR THE CHARACTER 

.SCRLF ;;TYPE A "CR" I "If" 

,$TTYIN ;;TYPE THE INPUT STRING 

2$ ;;G0 PICKUP ANOTHER CHACTER 

,$QUES ;;TYPE A 

1$ ;; CLEAR THE BUFFER AND LOOP 

(R3).9$ ;;ECH0 THE CHARACTER 

.9$ 

#15,(R3)* ;; CHECK FOR RETURN 

2$ ;;L00P IF NOT RETURN 

-1(R3) ;; CLEAR RETURN (THE 15) 

,$Lf ;;TYPE A LINE FEED 

(SP)* ;; CLEAN RUBOUT KEY rROM THE STACK 

(SP)*.R3 ; .-RESTORE R3 

(SP>,-(SP) ; .-ADJUST THE STACK AND PUT ADDRESS OF 

4(SP),2(SP) ;; FIRST ASCII CHARACTER ON IT 

*$TTVIN.4(SP) 

;; RE TURN 

0 ;; STORAGE FOR ASCII CHAR, TO TYPE 

0 ;;TERMIl^TOR 

8. ;. -RESERVE 8 BYTES FOR TTV INRJT 

/*C/<15><12> ;;CONTROL "C" 

/•U/<15><12> .-.-CONTROL *U" 

/-G/<15><12> .-.-CONTROL "G" 

<15><12>/SWR = / 

/ NEW = / 

#-1.CTLFG ;SET THE CONTROL-C FLAG 

fTSTNM .-DOING ANY TESTS ? 

1$ ;8R IF YES 

SHUT ;N0— RESPOND TO "C 

.-EXIT FROM INTERRUPT 



LZRMNBO RM05/5/2 FCTNL TST 2 
OEAD AN OCTAL MfQER FROM THE 



1 
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SEO 0?44 



062512 
062514 
062522 
062524 
062526 
062530 
062532 
062534 
062536 
C62540 
062542 
062544 
062546 
062550 
062552 
062554 
062556 
062560 
062564 
062566 
062570 
062572 
062576 
062602 
062604 
062606 
062610 
062612 



011646 
016666 
010046 
010146 
010246 
104412 
012600 
005001 
005002 
112046 
001412 
006301 
006102 
006301 
006102 
006301 
006102 
042716 
062601 
000764 
005726 
010166 
010237 
012602 
012601 
012600 
000002 
000000 



000004 000002 



177770 



000012 
062612 



.S8TTL 


READ AN OCTAL NUMBER 


f onM tljC ttv 
FROM THc TTY 


•'•THIS 


ROUTINE 


WILL READ AN 


OCTAL (ASCII) NUr«ER FROM THE TTV i 


.••CHANGE IT TO 


BINARY. 




.••CALL. 








• • 


RDOCT 




;;ntAD AN OCTAL NUrBcH 


• • 


RETURN 


HERE 


..LOW ORPcR BITS ARE ON lOP OF 


• • 




;;HiGH ORDER BITS ARE 'N >H10l 


SRDOC T 


MOV 


(SP) ,-(SP) 


- . nr5rt\ / fr\c enure c r\ti Ti_ic 

;;PROVjDc SPACE FUR THE 




MOV 


4(SP) ,2(SP) 


; ; J NPU T NUriaE R 




MOV 


RO.-(SP) 


• 1 01 icu on niLI CTA/"^ 




MOV 


RI.-(SP) 


• ■ Dl iCU D 1 Citki C T A r ^ 

, . PUoH HI UN alALU 




MOV 


R2,-(SP) 


,,rU5H He ON blALK 


IS: 


RDLIN 


• iDCAH AAI ACT 17 J f KlC 

. .KtAU /VM A>li£ LiNC 




MOV 


(SP)+,RO 






CLR 


R1 


• •n CAD nATA Linon 




CLR 


R2 




2$: 


M0V8 


(RO)*,-(SP) 






BEO 


3$ 


, , It ZcKU uC I UU 1 




ASL 


R1 


. • ^0 

; . 




ROL 


R2 






ASL 


R1 






ROL 


R2 






ASL 


R1 


; .•0 




ROL 


R2 








<fC7,(SP) 






ADD 


(SP)*.R1 


■ • Ar\n Tiki Turc r\TPiT 




BR 


2$ 


. .LOOP 


3$: 


TST 


(SP)* 


;.LLtAiM ItWlJNAlUK rKUH 51ALN 




MOV 


R1,12(SP) 


■ •CAUL TuC DC CI II T 

; . 0 AVE 1 nC nt oUL 1 




MOV 


R2.SHI0CT 






MOV 


(SP)*,R2 


;;POP STACK INTO R2 




MOV 


(SP)-^.RI 


;;POP STACK INTO R1 




MOV 


(SP)*. RO 


;;POP STACK INTO RO 




RTl 




• • RE TURN 


SHIOCT 


: .WORD 


0 


;;HI6H ORDER BITS GO HERE 
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,S8TTL TRAP DECODE.l 



0626U 
062620 
062624 
062630 
062632 
06263A 
06264^0 
06264.2 
062644 
062646 
062652 



016646 
042716 
012746 
000002 
010046 
016600 
005740 
111000 
006300 
016000 
000200 



000002 
000020 
062632 



000002 
062666 



.••THIS ROUTINE WILL PICKUP THE LOWER BYTE Of THE "TRAP" INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;»0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
.■•GO TO THAT ROUTINE. 



STRAP: MOV 2(SP),-(SP) 

8IC #23. (SP) 

MOV *1$,-(SP) 
RTI 

It: MOV RO,-(SP) 

MOV 2(SP),R0 

TST -(RO) 

Move (RO),RO 

ASL RO 

MOV $TRPAD(RO),RO 

RTS RO 



ASSUME THE STATUS OF 
THE CALLER— DO NOT ALLOW 
T-8IT TRAPS 

SET THE NEW STATUS 

SAVE RO 

GET TRAP ADDRESS 

BACKUP BY 2 

GET RIGHT BYTE OF TRAP 

POSITION FOR INDEXING 

INDEX TO TABLE 

GO TO ROUTINE 



;;THIS IS USE '0 HANDLE THE "GETPRI" MACRO 



062654 011646 

062656 01 6666 000004 

062664 000002 



062666 
062670 
062672 
062674 
062676 
062700 
062702 



062706 
062710 
062712 
062714 
062716 
062720 



062654 
056430 
056226 
056202 
056242 
055756 
055702 



062704 061620 



061530 
062072 
062162 
062512 
055606 
055644 



000002 



$TRAP2: 



MOV 
MOV 
RTI 



(SP).-(SP) 
4(SP).2(SP) 



MOVE THE PC DOWN 
MOVE THE PSW DOWN 
RESTORE THE PSW 



.SBTTL TRAP TABLE 



.••THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE 'TRAP" INSTRUCTION. 



ROUTINE 
STRPAD; .WORD $TRAP2 



STYPE 
$TYPOC 
$ TYPOS 
$TYPON 
$TYPDS 
$TYP8N 

SGTSUR 

SCKSWR 

SRDCHR 

$RDLIN 

SRDOCT 

SSAVREG 

$RESREG 



;CALL=1YPE 

;CALL=TYPOC 

;CALL=TYPOS 

;CALL=TYPON 

;CALL=TYPDS 

;CALL=TYP8N 



TRAP-»1 (104401) 
TRAP+2( 104402) 
TRAP-»3( 104403) 
TRAP+4( 104404) 
TRAP45( 104405) 
TRAP+6( 104406) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEAPING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL rAJMBER (WITH SIGN) 
TYPE BINARY (ASCII) NUMBER 



;CALL=GTSWR TRAP*7(104407) GET SOFT-SWR SETTING 



;CALL=CKSWR 

;CALL=RDCHR 

;CALL=RDLIN 

;CALL=RDOCT 

;CALL=SAVREG 

;CALL=RESREG 



TRAP+1 0(104410) 
TRAP+1 1(104411) 
TRAP+12(104412) 



TEST FOR CHANGE IN SOFT-SWR 
TTY TYPE IN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
TRAP*13(104413) READ AN OCTAL NUMBER FROM TTy 
TRAP*14(104414) SAVE R0-R5 ROUTINE 
TRAP+1 5(10441 5) RESTORE R0-R5 ROUTINE 



ZR1NB0 f<M05/^/2 FCTML TST 2 
PCwER DOWN AND UP ROuTJNfS 
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SEO 0?<.^ 











.S8TTL 


POwER 


DOWN AND UP ROUTINES 












.•POWER 


DOWN ROUTINE 






062722 


012737 


063062 


000024 


SPWRDN 


MOV 


#$JLLUP.a#PWRVEC , 


.SET 


FOR FAST UP 


062730 


012757 


000540 


000026 




MOV 


»340.airPURVEC*2 , 




PRIO 


7 


062756 


010046 








MOV 


RO.-(SP) 




PUSH 


RO ON STACK 


062740 


010146 








MOV 


RI.-(SP) 




PUSH 


R1 ON STACK 


062742 


010246 








MOV 


R2.-(SP) 




•PUSH 


R2 ON STACK 


062744 


010346 








MOV 


R3,-(SP) 




•PUSH R3 0^, STACK 


062746 


010446 








MOV 


R4.-(SP) 




•PUSH 


R4 ON STACK 


062750 


010546 








MOV 


R5.-(SP) 




•PUSH 


R5 ON STACK 


062752 


01 7746 


116176 






MOV 


aSWR,-(SP) 




•PUSH 


aSWR ON STACK 


062756 


010637 


063066 






MOV 


SP.$SAVR6 




■SAVE 


SP 


062762 


012737 


062774 


000024 




MOV 


#$PWRUP,a#PWRVEC 


•;SET 


LF VECTOR 


062770 


000000 








HALT 








062772 


000776 








BR 


.-2 


;;HANG 


LF 











.-POWER 


UP ROUTINE 




01,2774 


012737 


063062 


000024 


SPWRUP : 


MOV 


#$iLLUP,a#PWRvec . 


•;SET FOR FAST DOWN 


063002 


013706 


063066 






MOV 


$SAVR6.SP 


GET SP 


063006 


005037 


063066 






CLR 


$SAVR6 


•WAIT LOOP FOR THE TTY 


063012 


005237 


063066 




1$: 


INC 


$SAVR6 


•WAIT FOR THE iNC 


063016 


001375 








BNE 


It 


OF WORD 


063020 


012677 


116130 






MOV 


(SP)*,aswR 


■POP STACK INTO aSWR 


063024 


012605 








MOV 


(SP)*.R5 


•POP STACK INTO R5 


063026 


012604 








MOV 


(SP)*,R4 


■POP STACK INTO R4 


063030 


012603 








MOV 


{SP)+.R3 


■POP STACK IN^O R3 


063032 


012602 








MOV 


(SP)*,R2 


■POP STACK INTO R2 


063034 


012601 








MOV 


(SP)*.R1 


■POP STACK INTO R1 


063036 


012600 








MOV 


(SP)*,RO 


■POP STACK INTO RO 


063040, 


012737 


062722 


000024 




MOV 


#$PWRDN.i*PWRVEC 


•;SET UP THE POWER DOWN VECTOR 


063046 


012737 


000340 


000026 




MOV 


#340.a*PWRVEC*2 ; 


•PRI0:7 


063054 


104401 








TYPE 


.•REPORT THE POWER FAILURE 


063056 


063070 






SPWRMG: 


.WORD 


SPOWER 


■POWER FAIL MESSAGE POINTER 


063060 


000002 








RTI 






063062 


000000 






tJLLUP: 


HALT 




•THE POWER UP SEQUENCE WAS STARTED 


063064 


000776 








BR 


.-2 


• BEFORE THE POWER DOWN WAS COMPLETE 


063066 


000000 






$SAVR6: 


0 




■PUT THE SP HERE 


063070 


015 


012 


120 


SPOWER: 


.ASCIZ 
.EVEN 


<15><12>"P0WER" " 












.S8TTL 


APT COMMUNICATIONS ROUTINE 



063100 
063106 
063114 
063116 
063124 
063124 
063126 
0631 30 
063134 
063136 
063144 
063146 



112737 
112737 
000403 
112737 

010046 
010146 
105737 
001450 

001031 
132737 



000001 
000001 



063344 
063542 



000001 063344 



SATVI: 
$ATY3: 

$ATY4: 
SATYC: 



063342 
000001 
000100 



001242 
001243 



M0V8 #1.$FFLG 

M0V8 fl.SMFLG 

BR $ATVC 

M0V8 #1.$FFLG 

MOV RO.-(SP) 

MOV RI.-(SP) 

TST8 SMFLG 

BEO 5$ 

CMP8 *APTENV.$ENV 

BNE 3$ 

BIT8 #APTSPOOL,$ENVM 



;;T0 REPORT FATAL ERROR 
;;T0 TYPE A MESSAGE 

;;T0 ONLY REPORT FATAL ERROR 



PUSH RO ON STACK 
PUSH R1 ON STACK 
SHOULD TYPE A MESSAGE? 
IF NOT: BR 
OPERATING UNDER APT? 
IF NOT: BR 

SHOULD SPOOL MESSAGES? 



CZR^t<fiO RM05/3/2 FCTNL TST 2 MACRO vO^.OO 4-APR-81 
APT COMMUNICATIONS ROUTINE 



0631 5A 


001425 








BEO 


063156 


01 7600 


000004 






MOV 


06316? 


062766 


000002 


000004 




ADD 


063170 


005737 


001222 




1$: 


TST 


0631 7A 


001375 








BNE 


0631 76 


010037 


001236 






MOV 


063202 


105720 






2$: 


TST8 


06320A 


001 376 








BNE 


063206 


163700 


001236 






sue 


063212 


006200 








ASR 


0632U 


010037 


001240 






MOV 


063220 


012737 


000004 


001222 




MOV 


063226 


000413 








BR 


063230 


017637 


000004 


063254 


3$: 


MOV 


063236 


062766 


000002 


000004 




ADD 


0632AA 


013746 


1 7777b 






MOV 


063250 


004737 


056430 






JSR 


063254 


000000 






4$: 


.WORD 


063256 








5$: 




C63256 


105737 


063344 




10$: 


TST8 


063262 


001416 








BEQ 


06326A 


005737 


001242 






TST 


063270 


001413 








BEQ 


063272 


005737 


001222 




11$: 


TST 


063276 


001375 








BNE 


063300 


01 7637 


000004 


001224 




MOV 


063306 


062766 


000002 


000004 




ADD 


0633U 


005237 


001222 






INC 


063320 


105037 


063344 




12$: 


CLR8 


063324 


105037 


063343 






CLR8 


063330 


105037 


063342 






CLR8 


063334 


012601 








MOV 


063336 


012600 








MOV 


0633A0 


000207 








RTS 


063342 


000 






$MFLG: 


.BYTE 


063343 


000 






$LFLG: 


.BYTE 


063344 


000 






$FFLG: 


.BYTE 
.EVEN 



000200 APT SIZE = 200 

000001 APTtNV 001 

000100 APT SPOOL- 100 

000040 APT f SUP 040 



N 3 

1 :43:33 PAGE 48-1 



SEO 024/ 



3$ 

S4(SP) .RO 
#2.4(SP) 
$MSGTYPE 
1$ 

RO.$MSGAD 

(RO)* 

2$ 

$MSGAD,RO 
RO 

RO.$MSGLGT 

*4.$MSGTYPE 

5$ 

5)4(SP).4$ 

*2.4(SP) 

1 77776, -(SP) 

PC.$TYPE 

0 

$FFLG 
12$ 
$ENV 
12$ 

$MSGTYPE 

lis 

a4(SP),$FATAL 

<lf2,4(SP) 

SMSGTYPE 

$FFLG 

$LFLG 

$MFLG 

(SP)+,R1 

(SP)*,RO 

PC 

0 

0 

0 



;;IF NOT: BR 
;;GET MESSAGE ADDR. 

;;BUMP RETURN ADDR. 
;;SEE IF DONE W/ LAST XMISSION'' 
;;IF NOT: WAIT 
;;PUT ADDR IN MAILBOX 
;;FIND END OF MESSAGE 

;;SU8 START OF MESSAGE 
;;GET MESSAGE LNGTH IN WORDS 
;;PUT LENGTH IN MAILBOX 
;;TELL APT TO TAKE MSG. 

;;PUT MSG ADDR IN JSR LINKAGE 
:;BUMP RETURN ADDRESS 
;;PUSH 177776 ON STACK 
;;CALL TYPE MACRO 



SHOULD REPORT FATAL tRROR? 
IF NOT: BR 
RUNNING UNDER APT? 
IF NOT: BR 

FINISHED LAST MESSAGE? 
IF NOT: WAIT 
GET ERROR tf 

::B\M»P RETURN ADDR. 
TELL APT TO TAKE ERROR 
CLEAR FATAL FLAG 
CLEAR LOG FLAG 
CLEAR MESSAGE FLAG 
POP STACK INTO R1 
POP STACK INTO RO 
RETURN 
MESSG. FLAG 
LOG FLAG 
FATAL FLAG 



rOKS-.F MfSSAGES 



MACRO vlK.OO 
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SEO 0246 



1 










cor Ti 




MC CCAfZC C 


2 

5 


065 546 


2UU 


1 A 7 

'05 


A1 

01 


c r TMC r 


AC r I 7 


<-rDl CNSTAkiftlAT DCTAuCD MIX BAft CCTTnD T II CC TiifC fkCt/f rCA 
<LNLr >aLAI\MUI KcLUVtn ^nt DAU btLlUN f ILCS tW IMIi PrVIl.ca 


<t 


065*» 52 




AAA 
UOO 




C Al lAl C 

t OUAL b 


A c r T 7 

.ASCI 1 


■-a 


c 


•JO 54 54 


1 A 1 

10 1 


1 1 y 


11/ 
1 1 <t 


All . 

ALL : 


A c r I 7 


OiAL L L KL r > 


6 




Ay A 
040 


A77 


A/ A 

O'tO 


Al IC C • 




■ . ■ 


f 


0654*1 !) 


AC/ 

054 


Ay A 
0*1 0 


AAA 

000 


rOMMA • 

CU'TIA : 


A c r f 7 


«. • 


8 


/\X 7/ C A 

065A50 


OAA 

200 


1 oy 
I2*« 


117 

1 1 f 




A c r f T 
. Abl 1 i 


vLHLr>fl(IU tnloUnt 1 MA 1 IMU OAU McAlytno AKt Ltr 1 \JH 1 Mt DloKa 


r\ 

■i 


AX7C 7^. 

06 5!) 56 


OAA 

^00 


1 OA 


1 A1 

1 0 1 




AC r f I 
.Ail 1 i 




1 J 


Uo5o2*» 


OAA 

<:00 


1 A7 

105 


117 

1 1 f 




ACT I T 

. AiL 1 i 


vL><Lr ^■LUN IKUL L. Ai A KtoULI. lit KKUoHAn WILL DC HALICl/a 


1 1 




"5 A A 


1 57 

\C' 


1 1 A 

1 1 0 




Acr r I 
. AoL 1 i 


c'TDi r'^suuciu TuF noiwc iiKincD tcct uac tamdi CTCn tcctiam^ a^tdi 

VLKL' ■'•WnCnl P HC UKiVC UWI/Ca ICoI rIAo LUTr'LCICU ' C o 1 InRl. avl »fL» ' 


' c 


r\i.X77J 


<:0U 


1 5A 


1 71 




AC r I 7 
. AoL i L 


v'fpi C'vaTvDC UCl D TPVT ^ lU 7 2 
vUnLr .'B 1 TfC nCLr ICAI IL/ nl ; ■ 


1 7 

1 3 




"DA A 


1 55 
1 CC 


1 1 «« 

1 1 5 


TKiCl Al 


Acr I 7 
. AoL i L 




■» / 


UO** J J J 


A/. A 


1 1 A 


111 


riici A5 


ACT I 7 




1 C 


HA/ r>77 


155 
1 CC 


1 J 


1 5A 

' CO 


rjuci A7 


ACr I 7 
. AoL i L 




1 ^ 




A/ A 


11/ 


111 

1 1 1 


TMCI AA 


ACf I 7 


a 1 IMTTC — 1 n- A Uf- lAAAa^'TOI T"**"! t •% 


1 f 




5AA 


1 5A 
1 C^ 


1 71 


TMCl A7 


ACr I T 


^rPI F'^aTVDP "A* ' TA TPQT Al 1 rtPIUFC AD TVPP nP I MMJCDfCta 
vLKLr ^9 1 TnC A 1 U 1 C O 1 ALL UK i VC i * UK 1 T rC Ua J VC nJUTCC K i > / 01 


^ fl 
O 




inn 


1 ni 

lU 1 


1 1 A 
1 1 O 




ACT I 7 
. AdL i L 


<rDl C NSAlun TPPMffUATP fklPIlT Uf TU A TAPPIA^^P PC Tl IPKI 3 


1 Q 




5AA 






riuCi Aft 


ACT I I 


^rpi Cs 


c\J 




AZ.A 


A77 


111 

1 1 1 


rwci AO 


ACf I 7 


a 7)11 c^Ai fKiPtiTa^rpi r% 

01 . i L L C VjAL i iyr\J 1 Oiv L KL r ^ 


c 1 


AAZ. 75A 
UO*» JCD 


PAA 


1 AA 


1 55 
1 CC 


Mcr\Quc 


ACT I 7 


<'rPI F ■^/f^P I V/C ^ ^ 1 • / 
vLALr *'/iyniVCiO / • / 


TO 


ru,/ 7/. p 


1 AZ. 


1 55 
1 CC 


111 

1 1 1 


nouUK V 


Acr I 7 


/nP f VC / 
/ Ua J VC / 


C J 




9AA 


1 C 5 


1 1 A 

1 1 D 


^ V^TAT 


A^r I 7 


VV.AL' unii 1 o 1 M 1 uo • / 


c*» 




1 55 


11*; 

' 1 5 


AAA 




Acr f 7 


/PMn5 / 

/ nTTvC / 


c ^ 


n<.^777 


1 55 


I 1 5 


AAA 


CDMA 7 • 


A^r 1 7 


/PMn7/ 


CO 




1 55 


1 1 J 


AAA 


9fVnJj - 


A^r 1 7 

• Mo L i A 


/PMO<i/ 
/ ^v^v J/ 


57 
c' 




AZ.A 


1 1 O 


117 


lUATDM ■ 


ACT f 7 


a MAT APU PMn^/7/5a 
01 nu 1 An nrnjj/ J/ c9 


CO 


UOHHCC 


AZ. A 
U'»0 


1 1 A 


117 

1 1 f 


1 ADF \J • 


Acr t 7 


/ 1 AAn new I rc / 

/ LUAU UCVILC/ 


cy 




AAA 


1 1 A 


117 




ACT ? 7 


/ MAT PPPCPMT/ 
/ rnjt rKCoCnll/ 


jU 


nA/. y /LA 


AAA 


1 1 A 
1 1 O 


117 


MAT Awi 
fMU 1 MVL 


Acr I 7 

.Mo 1. 1 A 


/ MOT AV/AFI ARl C/ 
/ niu 1 mVMJLMOLC' 




AAA A 77 


AAA 


117 


1 AA 


1 iUTAF F 


ACT I 7 
.MoL i A 


/ OP F 1 F MP / 
/ Ur r L J i»C / 


7 J 
JC 




AAA 


117 

1 1 / 


1 1 A 


1 IMT AIM - 


AQf I 7 
• MoL i A 


/ AMI F MP / 


77 

J J 






1 AA 


1?5 

' CC 




ACriT 
. MOL i A 




XL 




1 1 o 


117 

I 1 r 


1 1 A 

1 1 o 




AT t 7 


/MDMP / 






1 1 D 


nnn 






A^r 1 7 

.MOL i A 


/IM/ 
/ •'1/ 






1 31 


000 






• MO W i A 


/V/ 


17 


064560 


040 






BLNKS4 


.ASCII 


/ / 


38 


064561 


040 






BLNKS3 


• .ASCI! 


/ / 


39 


064562 


040 






BlNKS2 


• .ASCII 


/ / 


40 


064563 


040 


000 




BLNKSI 


• .ASCIZ 


/ / 


<.1 










.EVEN 







C A 
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fUNCMON CODE TABLE 

: .S8TTL FUNCTION CODE TABLE 

3 ;THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 

4 .-EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 

6 ; ATA - BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

7 ;IF ATA SHOULD BE SET WHEN TH FUNCTION CODE IS EXECUTED, OTHERWISE 
a ;8IT 15 IS ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET. 

9 ;NOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 

10 ;IT IS NOT EXPECTED AS A RESULT OF THE COMMAND. 

1? WCE - BIT U IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

13 ;IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 

!s ; OPI - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

16 ;IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

17 « 

18 , • IVC - BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

19 * ;IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

20 

21 • WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

22 .IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

23 .-THE WRITE ERRORS WHICH ARE ENABLED ARE *UE", 'W, "OPE". "UPE". 

25 lAE - BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

26 ;IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 

28 ; AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF READ AND WRITE ERRORS ARE ENABLED D'JRING THE EXECUTION OF THE 
.COMMAND. THE ERRORS ENABLED BY THIS BIT ARE "TRE". "DLT". *TgEM". 



29 

30 



51 ;'MXF". "L8T". AND "AOE 

li ; BIT 08 IS NOT USED. 

3A 

is HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

36 ;1F HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

37 ;HEADER ERRORS INCLUDE "HCRC". "HCE", 'TER". AND *8SE". 
38 

39 ; ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

40 ;IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF THA^ 

41 .-COMMAND. THESE ERRORS INCLUDE 'MDPE", "DCK". AND "ECH". 
A2 

43 ; BIT 05 IS NOT USED. 

44 

45 ; BIT 04 IS NOT USED. 

46 

47 ; BIT 03 IS NOT USED. 

48 

49 ; BIT 02 IS NOT USED. 

5? ; BIT 01 IS NOT USED. 

55 ; IlF - BIT 00 IS SET IF TmE FUNCTION CODE IS ILLEGAL. 

55 06A566 FNCDTS: .-FUNCTION CODE TABLE 

57 064566 020000 .WORD OPI .-NOP 



7H»1NB0 knO'i/i/2 KTNL TS" 
fLNCTION "ODE TABLE 



D 4 

f.-APR-S" M:43:53 PAGE 50-i 



SEC 0?50 





064 570 


1 30001 




OP I 


ATA 


II F 


I vf 

i V V. 










59 


06457? 


1 3?00Q 




ATA 


OPI 


I VC 


I AF 












064 S 74 


1 30000 


ulORD 


ATA 


OPI 


I VC 










RFTAI lARATF 


^1 

ft? 


064 576 






OPT 














DRIVF ri FAR 


064600 


030000 


UORD 


OPI 


I vC 












RFI FA^F 




06460? 


130000 


UORD 


OPI 


ATA 


l\tC 










OFF SFT 






1^0000 

1 JvvW 


UORD 




ATA 


i V ^ 










RPTIIRN TO rFNTFRl WP 




064606 


0?0000 

VC WW 


.WORD 


OPI 














RFAD IN PRF<>PT 




064610 


0?0000 

WC WW 


WORD 


DPI 
















ft? 


06461 ? 


130001 

1 JVW 1 


JORD 


OPI 


ATA 


IL' 


JVC 








IllFGAI FtJNfTIOl 


68 


064614 


130001 


.WORD 


OPI 

W A 


ATA 


ILF 


JVC 








ILLEGAL FUNCTION (?6) 


o9 


064616 


132000 


! WORD 


ATA 


OPI 


IVC 


lAE 








SEARCH 


V 


0646?0 


130001 


WORD 


UP I 


ATA 


ILF 

A U • 


IVC 








IllFGAI FUNCTION M?) 


71 


064622 


1 30001 

1 ^VW 1 


.WORD 


OPI 


ATA 


ILF 


JVC 








II 1 FGAI FUNCTION (34) 


72 


064624 


1 30001 


! WORD 


OPI 


ATA 


ILF 


IVC 








•ILLFGAI FUNCTION (36) 


71 


06>4626 


1 30001 


iwORD 


OPI 


ATA 


JLF 


IVC 








■lLLF(iAL FUNCTION (40) 


7C 


064630 


1 30001 


'word 


OPI 


ATA 


ILF 


IVC 








■ILLEGAL FUNCTION (4?) 


75 


064632 


1 30001 


!wORD 


OPI 


ATA 


JLF 


JVC 








•ILLEGAL FUNCTION (44) 


76 


064654 


130001 


! WORD 


OPI 


.ATA 


JLF 


IVC 








•ILLEGAL FUNCTION (46) 


77 


C64636 


073300 


!wORD 


WCE 


iopi 


JVC 


lAE 


AOE 


HCE 


ECH 


•WRITE CHECK DATA 


78 


064640 


073300 


!wORD 


WCE 


DPI 


JVC 


lAE 


.AOE 


.HCE 


ECH 


•WRITE CHECK HEADER AND DATA 


79 


064642 


1 30001 


iwORD 


OPI 


ATA 


ILF 


JVC 








•ILLEGAL FUNCTION (54) 


80 


064644 


1 30001 


.WORD 


OPI 


'ATA 


ILF 


IVC 








•ILLEGAL FUNCTION (56) 


81 


064646 


037200 


.WORD 


OPI 


•IVC 


WLE 


lAE 


AOE 


.HCE 




; WRITE DATA 


82 


064650 


037000 


.WORD 


OPI 


' IVC 


WLE 


lAE 


AOE 






•WRITE HEADER AND DATA 


83 


064652 


1 30001 


.WORD 


OPI 


.ATA 


ILF 


IVC 








; ILLEGAL FUNCTION (64) 


84 


064654 


130001 


.WORD 


OPI 


.ATA 


ILF 


IVC 








.■ILLEGAL FUNCTION (66) 


85 


064656 


033300 


.WORD 


OPI 


IVC 


lAE 


AOE 


HCE 


.ECH 




;READ DATA 


86 


064660 


033300 


.WORD 


OPI 


!IVC 


lAE 


AOE 


.HCE 


-ECH 




;READ HEADER AND DATA 


87 


064662 


130001 


.WORD 


OPI 


.ATA 


ILF 


IVC 








; ILLEGAL FUNCTICM (74) 


88 


0(34664 


1 30001 


.WORD 


OPI 


:ata 


ILF 


IVC 








.•ILLEGAL FUNCTION (76) 



E A 

ZWINNBO FCTR*. TS. 2 •WC«0 VW.OO A-APP-81 1 1 :<.3: 3? PAGE 51 

A»*EMION fATA) TABLE 

.S8TTl ATTENTION (ATAv TABLE 

i 064666 001 A^NTBL: .BYTE 1. 

4 06A667 00? .BVTE 2. 

5 064670 004 .8VTE A. 

6 064671 010 .BYTE 8. 

7 064672 020 .BYTE 16. 

8 06467? 040 .BYTE 32. 

9 D64674 ^00 .BYTE 64 
*C 06467S 200 -BYTE 123. 



'ZfWNBCi RMOS/3/2 FCT^L 'S^ 2 
DAM PAMERN TA81E 



2 

I 064676 

4 064676 

5 064676 000000 

6 064700 000001 

7 064702 000003 

8 064704 000007 

9 064706 000017 
'0 064710 000037 
n 064712 000077 
12 064714 000177 
'I 064716 000377 
'4 064720 000777 
'5 064722 001777 

16 064724 003777 

17 064726 007777 

18 064730 017777 
^9 064732 037777 

20 C64754 077777 

21 064736 ^77777 
2'> 064740 \77777 
2i 064742 077777 

24 064744 037777 

25 064746 017777 

26 064750 007777 

27 064752 003777 

28 064754 001777 

29 064756 000777 

30 064760 000377 

31 064762 0001^7 
12 064764 000077 

53 064766 000037 

34 064770 000017 

35 064772 000007 

36 064774 000003 

37 064776 000001 

38 065000 000000 

39 065002 000000 

40 065004 000001 

41 065006 000002 

42 065010 000004 
4 3 065012 000010 

44 065014 000020 

45 065016 000040 

46 065020 000100 

47 065022 000200 

48 065024 000400 

49 065026 001000 

50 065030 002000 

51 065032 004000 

52 065034 010000 
5? 065036 020000 

54 065040 040000 

55 06504? 100000 

56 065044 100000 

57 C65046 040000 



F 4 

MACRO w04.00 4-APR-81 '':43:33 PAGE 52 



.S8T^L DATA DATTERN MBLE 



RGDTPT: 
•1IKED: 



.WORD 


0. 


.WORD 


1 . 


.WORD 


3. 


.WORD 


7. 


.WORD 


15, 


.WORD 


31 . 


. WORD 


63. 


.WORD 


<27. 


.WORD 


255. 


.WORD 


511 . 


• WORD 


1023. 


.WORD 


2047. 


.WORD 


4095. 


.WORD 


8191 . 


.WORD 


16383. 


.WORD 


32767. 


ONES: .WORD 


^ C C 7 C 

65535 . 


.WORD 


^ C C 7 C 

65535 . 


.WORD 


bcftf . 


.WORD 


16385. 


.WORD 


oIt 1 . 


.WORD 


4095 . 


.WORD 


2\)t*f , 


.WORD 


1 A'i 7 


.WORD 


511 . 


.WORD 


T c c 


.WORD 




.WORD 


A 7 

65. 


.WORD 


7 \ 


.WORD 


'5. 


.WORD 


f , 


.WORD 


7 

5. 


.WORD 


1 . 


ZEROS: .WORD 


0. 


.WORD 


0. 


.WORD 


1 . 


.WORD 


2. 


.WORD 


4. 


.WORD 


0 

0. 


.WORD 


16. 


. WOHD 


^2 . 


.WORD 


64. 


. WORD 


i28. 


.WORD 


256. 




^ 1 


.WORD 


1024. 


.WORD 


2048. 


.WORD 


4096. 


.WORD 


8192. 


.WORD 


16384. 


.WORD 


32768. 


.WORD 


32768. 


.WORD 


'6384. 
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^Nb^ KMCS/^'tr KT\L "/ . MACRO i/OA.Ov 4-APet-81 ":43:5? PAGE 5? 



58 065050 


020000 


.WORD 


8192. 


59 065052 
t,0 065054 


010000 


.WORD 


4096. 


004000 


.WORD 


2048. 


61 065C56 


002000 


.WORD 


1024. 


62 065060 


001000 


.WORD 


512 


63 065062 


000400 


.WORD 


256. 


64 065064 


000200 


.WORD 


128. 


65 065066 


000100 


.WORD 


64. 


66 065070 


000040 


.WORD 


32. 


67 065072 


000020 


.WORD 


16. 


68 065074 


000010 


.WORD 


8. 


o9 065076 


000004 


.WORD 


4. 


70 065100 


000002 


.WORD 


2. 


71 065102 


000001 


.WORD 


1. 


72 065104 


000000 


.WORD 


0. 


73 065106 


U7777 


.WORD 


65535. 


74 065110 


^77776 


.WORD 


65534. 


75 065112 


1 7777^ 


.WORD 


65532. 


76 065114 


1 77770 


.WORD 


65528. 


77 065116 


1 77760 


.WORD 


65520. 


78 065120 


177740 


.WORD 


65504. 


79 065122 


1 77700 


.WORD 


65472. 


80 065124 


1 77600 


.WORD 


65408. 


81 065126 


177400 


.WORD 


65280. 


82 065130 


177000 


.WORD 


65024. 


83 065132 


176000 


.WORD 


64512. 


84 065134 


174000 


.WORD 


63488. 


85 065136 


170000 


.WORD 


61440. 


86 065140 


160000 


.WORD 


57344. 


87 065142 


140000 


.WORD 


49152. 


88 065144 


100000 


.WORD 


32768. 


89 065146 


000000 


.WORD 


0. 


90 065150 


000000 


.WORD 


0. 


91 065152 


100000 


.WORD 


32768. 


92 065154 


140000 


.WORD 


49152. 


93 065156 


160000 


.WORD 


5754<.. 


94 065160 


1 70000 


.WORD 


61440. 


95 065162 


1 74000 


.WORD 


63488. 


96 065164 


176000 


.WORD 


64512. 


97 065166 


177000 


.WORD 


65024 . 


98 065170 


177400 


.WORD 


65280. 


99 065172 


177600 


.WORD 


65408. 


TOO 065174 


1 77700 


.WORD 


65472. 


101 065176 


177740 


.WORD 


65504. 


102 065200 


1 77760 


.WORD 


65520. 


103 065202 


177770 


• WORD 


65528. 


104 065204 


177774 


.WORD 


65532. 


105 065206 


1 77776 


.WORD 


65534. 


106 065210 


W7777 


.WORD 


65535. 


107 065212 


^ 25252 


FAR.yr .WORD 


4 3690. 


'08 065214 


152525 


.WORD 


43690./? 


109 065216 


125252 


.WORD 


43690. 


no 065220 


^77777 


.WORD 


65535. 


111 0652?2 


1 7777t 


.WORD 


65534. 


112 065?^4 


U777^ 


.WORD 


65533. 


• 1 3 065226 


1 7777-^ 


.WORD 


65531. 


'U 065?3G 


y777t7 


.WORD 


65527. 







065252' 


1 77757 




J65254 


} f77\r 


' ' 7 


065?3fc 


1 7~tf7 


-'8 


06S240 


1 77')77 


' 1^ 


065?A2 




VC 




1 76777 




065246 


1 757'^7 


'?? 


065250 


1 7\r77 




065252 


^b7777 




065254 


157777 




065256 


T 5^777 




065260 


077777 


It'/ 


065262 


077777 


V8 


065 264 


1 57777 


129 


065266 


m C ^^^^ 

157777 


' 50 


065270 




1 51 


065272 


1 75777 


^ 3? 


065274 


1 75777 


IVY 


065276 


1 7677 f 


1 5^ 


C65300 


1 77577 


55 


065502 


1 77577 


1 56 


065504 


177677 


1 37 


065506 


\ 77 7 57 


1 58 


065510 


1 77757 


1 59 


065312 


1 777b f 




0O55 14 


\ ( f 1 f ^ 


U1 


065316 


1 77775 


U3 


065520 


177770 


U5 


065322 


\77777 


1^4 


065324 
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.WORD 65519. 

.WORD 65505. 

.WORD 65471. 

.WORD 65407. 

.WORD 65279. 

.WORD 65023. 

.WORD 64511. 

.WORD 65487. 

.WORD 61439. 

.WORD 57345. 

.WORD 49151. 

.WORD 32767. 

.WORD 32767, 

.WORD 49151. 

.WORD 57545. 

.WORD 61439. 

.WORD 65487. 

.WORD 6^.51 1. 

.WORD 65025. 

.WORD 65279. 

.WORD 65407. 

.WORD 654 71. 

.WORD 65505. 

.WORD 65519. 

.WORD 655f?7. 

.WORD 65531. 

.WORD 65533. 

.WORD 65534. 

.WORD 65535. 

FNRGDT: 



iRk'B WESSAGf TABlE 



MAC MO V04.0C C-APR-81 



I 4 

.5:55 PAGE 53 



^ 
3 
i. 
5 
6 
7 

8 

9 

10 
1 1 

12 
13 
'4 
IS 
'6 

^8 
■"9 
20 
2' 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
54 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



,S8TTL ERROR MESSAGE TABlE 



065324 
065350 
065336 
065544 
065552 
065560 
065566 
065574 
065400 
065404 
065412 
065424 
065452 
065440 
065450 
065460 
065470 
065500 
065510 
065520 
065530 
065540 
065550 
065560 
065570 
065600 
065610 
065620 
065630 
065640 
065650 
065660 
065666 
065676 
065710 
065720 
065730 
065740 
065750 
065756 
065766 
066000 
066016 
066054 
066044 
066056 
066074 
066104 
066122 
066142 
066156 
066160 
066200 
066220 
066252 



071712 

071761 

071761 

072104 

072104 

076707 

074675 

072201 

072246 

072310 

072362 

072456 

072510 

072510 

072310 

0725^0 

072310 

072310 

072510 

072510 

072310 

072310 

072310 

072310 

072310 

072310 

072310 

072310 

072510 

072310 

072310 

074211 

074377 

076201 

075515 

074436 

074464 

074512 

074145 

072562 

072510 

075515 

075515 

075544 

076156 

073573 

076707 

075714 

074520 

076067 

000000 

076274 

075621 

076646 

076646 



000000 

071776 

072041 

0721 54 

C72246 

074125 

0^6754 

000000 

000000 

072321 

072575 

074125 

072541 

072564 

072600 

072626 

072655 

072672 

072734 

072763 

073012 

073040 

073111 

073140 

073167 

073215 

075244 

075272 

075521 

075350 

073423 

072516 

076110 

076211 

075651 

075651 

073631 

073651 

074125 

072404 

075466 

075651 

075631 

075651 

076153 

074333 

074343 

074261 

073714 

074261 

076337 
077334 
074567 
074567 



000000 
000000 
000000 
000000 
000000 
000000 



000000 
072404 
000000 
000000 
072715 
072724 
072724 
072713 
072713 
072724 
072724 
072724 
072724 
072724 
072724 
072724 
072724 
072724 
072724 
072724 
072724 
072724 
000000 
074405 
074355 
074405 
074405 
074405 
074405 
000000 
074077 
072724 
074261 
074261 
074261 
075651 
074261 
074261 
075073 
074261 
075073 

074306 
077515 
074335 
074335 



EMT1 

EMT2 

EMT3 

EMT4 

EMT5 

EMT6 

EMT7 

EMTIO 

EMTII 

EMT12 

EMn5 

EMT14 

EMT15 

EMT16 

EMT17 

EMT20 

EMT21 

EMT22 

EMT23 

EMT24 

EMT25 

EMT26 

EMT27 

EMT30 

EMT51 

EMT52 

EMT55 

EMT54 

EMT55 

EMT56 

EMT37 

EMT40 

EMT41 

EMT42 

EMT43 

EMT44 

EMT45 

EMT46 

EMT47 

EMT50 

EMT51 

EMT52 

EMT55 

EMT54 

EMT55 

EMT56 

EMT57 

EI»"T60 

EMT61 

EMT62 

EMT65 

EMT64 

EMT65 

EMT66 

EMT67 



.WORD EMS 1.0 

.WORD EMS2,EMS3,0 

.WORD EMS2.EMS4.0 

.WORD EMS5.EMS6.0 

.WORD EMS5.EMS10.0 

.WORD EMS167.EMS64.0 

.WORD FMSn0.EMS170.0 

.WORD EM37.0 

.WORD EMS10.0 

.WORD EMSn.EMS12,0 

.WORD EMS15.EMS14.EMS15,EMS16.0 

.WORD EMS17,EMS64.0 

.WORD EMS11,EHS21,0 

.WORD EMS11,EMS22,EMS27,0 

.WORD EMS 11.EMS25. EMS 50,0 

.WORD EMSn,EMS24.EMS30,0 

.WORD EMSn ,EMS25,EMS27,0 

.WORD EMSn .EMS26.EMS27.0 

.WORD EMSn .EMS31 ,EMS50,0 

.WORD cMSII ,EMS52,EMS50,0 

.WORD EMS11.EMS55,EMS50,0 

.WORD EMS 11.Ef1S54. EMS 50,0 

.WORD EMS11.EHS55.EMS5G.0 

.WORD EMS11,EMS56.EMS30,0 

.WORD EMS11.EHS57.EMS50.0 

.WORD EMS11,EHS40.EMS30.0 

.WORD EMS11.EMS41,EMS50.0 

.WORD EMS11.EHS42.EMS50,0 

.WORD EMS11.EMS43,EMS30.0 

.WORD EMS11 .EMS44.EMS50.0 

.WORD EMS11,EMS45.EMS5C,0 

.WORD EHS66,E«S20.0 

.WORD EMS75,EMS141,EMS76.0 

.WORD EMS144.EMS145,EMS72,EMS76.0 

.WORD EMS47.EMS53.EMS76.0 

.WORD E«S77.E«S55,EMS76.0 

.WORD E«S100.EMS55,E/1S76.0 

.WORD EMS101.EMS55,EMS76.0 

.WORD E«S65.EMS64,0 

.WORD E«S15,EHS15,EMS65,0 

.WORD EMS11.EMS46,Ef1S30,E«S67.0 

.WORD EMS47,EMS55,EMS67.EMS115.EMS140.EMS141.0 

.WORD EMS47.EMS53,EMS67.EMS115.EMS141,EMS164.0 

.WORD EMS50-EMS53,EMS67.0 

.WORD EMS142.EMS143,EMS53.EMS67.0 

. WORD EMS5 1 , EMS72 , EMS67 , EMS 1 1 5 , EMS 50 , EMS 70 , 0 

.WORD EMS167.EMS75.EMS67.0 

.WORD £MS56,EMS67,EMS115,EMS150,EMS152.EMS70.0 

.WORD EMS71,EMS56,EMS67,EMS115,EMS150,EMS152.EMS72.0 

. WORD EMS 1 40 . EMS67 , EMS 11 5 , EMS4 7 , EMS 70 . 0 
.WORD 

.WORD EMS150,EMS152,EMS70.EMS115.EMS56-EMS73.EMS67.0 

.WORD EMS52.EMS205,EMS214.EMS206.EMS115.EMS51.EMS72.0 

.WORD EMS165.EMS103.EMS72.EMS124.0 

.WORD EMS165.EMS103.EMS72.EMS171.0 



fRPO« MESSAGE TA8LE 



TST 2 »wc«a .0<..00 
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A-APR-81 i^:<.3:53 PAGE 53-1 



Sf 0 0?% 



59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
o9 
^0 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
9/ 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
115 
M4 



066244 
066254 
066264 
066302 
066320 
066330 
066350 
066360 
066372 
066410 
066426 
066436 
066450 
066466 
066476 
066506 
066526 
066540 
066546 
C66554 
066570 
066576 
066606 
066616 
066626 
066636 
066646 
066656 
066666 
066676 
066706 
066720 
066732 
066744 
066756 
066770 
067002 
067014 
067026 
067040 
067050 
067060 
067070 
067100 
067110 
067120 
067130 
067140 
067150 
067160 
067172 
067204 
Ot7222 
0672^,0 
067252 
067264 
067276 



073466 

074320 

073515 

073515 

073714 

074320 

073544 

0761 36 

074377 

07UZ77 

076707 

07625/ 

073573 

076646 

076646 

076201 

074673 

075017 

075017 

074673 

075017 

075171 

075234 

075271 

075334 

075366 

075431 

076032 

075533 

075571 

075171 

075234 

075271 

075334 

075366 

075431 

076032 

075533 

075571 

075171 

075271 

075171 

076052 

075334 

075366 

075431 

075571 

076763 

075533 

076067 

076136 

076201 

076201 

076274 

076257 

076257 

076511 



072516 

074512 

074333 

074333 

073631 

073714 

073631 

076153 

076110 

076274 

074343 

076313 

074360 

074464 

074436 

07621 1 

074733 

072041 

071776 

075073 

075150 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075631 

075073 

075073 

076211 

076211 

076337 

076313 

076313 

076441 



076541 
076541 
076541 
076541 
076541 
076541 
076541 
073631 
076541 
076541 
076541 
074360 
076541 
076541 
076541 
073631 
075076 
000000 
000000 
075076 
000000 
075655 
075655 
075655 
075655 
075655 
075655 
075655 
075655 
075655 
075700 
075700 
075700 
075700 
075700 
075700 
075700 
075700 
075700 
075742 
075742 
076005 
076005 
076005 
076005 
076005 
076005 
076005 
076005 
076110 
076153 
076240 
072516 
076405 
076405 
076441 
076474 



EMT70 

EMT71 

EMT72 

EMT73 

EMT74 

EMT75 

EMT76 

EMT77 

EMT100 

EMT101 

EMT102 

EMT103 

EMT104 

EMT105 

EMT106 

EMT107 

EMT110 

EMT111 

EMT112 

EMT113 

EMT114 

EMT115 

EMT116 

EMT117 

EI1T120 

EMT121 

EMT122 

E«n23 

EMT124 

EMT125 

EMT126 

EMn27 

EMT130 

EMT131 

EMT132 

EMT133 

EMT134 

EMT135 

EMT136 

EWT137 

EMT140 

EMTUI 

E«n42 

Emi43 

EMn44 

EMT145 

EMT146 

EMT147 

EMT150 

EI1T151 

EI1T152 

EMT153 

EMT154 

EI1T155 

EMT156 

E»1T157 

EMT160 



.WORD FMS46.EMS20.EMS163,0 

.WORD EMS71,EI1S101.EMS163.0 

.WORD EMS47.EMS72.EMS163.EMS115.EMS140.EMS141.0 

.WORD EMS47,EMS72.EMS163.EMS115,EMS141.E^«S72.0 

.WORD EMS56,EMS53,EMS163.0 

.WORD EMS71 .EMS56.EMS163.EMS115,EMS150,EMS152.EMS72.0 

.WORD EMS50.EMS53.EMS163,0 

.WORD EMS142.EMS143,EMS53.EMS163.0 

.WORD EMS75.EMS141,EMS163.EMS115.EMS47,£«S70.0 

. WORD EMS 75 , EMS 1 50 , EMS 1 63 . EMS 1 1 5 . EMS56 . EMS73 , 0 

.WORD EMS167.EMS73,EMS163,0 

.WORD EMS147.EMS151,EMS74,EMS163,0 

.WORD EMS51.EMS74.EMS163.EMS115.EMS50.EMS70.0 

.WORD EMS165,EMS100,EMS163,0 

.WORD EMS165,EMS77,EMS163,0 

.WORD EMS144.EM«;145,EMS53,EMS163.£MS115,EMS143,EMS70.0 

.WORD EMS110,EMS112.EMS116,EMS111,0 

.WORD EMS113,EMS4,0 

.WORD EMS113.EMS3,0 

.WORD EMS110.EMS115,EMS116,EMS117,EMS114.0 

.WORD EMS113,EMS120,0 

.WORD EMS121,EMS132,EMS133,0 

.WORD EMS122.EMS132,EMS133,0 

.WORD EMS123,EHS132,EMS133.0 

.WORD EMS124,EMS132,EMS133.0 

.WORD EMS125,EMS132,EMS133,0 

.WORD EMS126.EMS132,E«S133.0 

.WORD EMS137.EHS132,EMS133.0 

.WORD EMS130.EMS132.EMS133.0 

.WORD EMS131,EMS132.EMS133.0 

.WORD EMS121.EMS132.EMS134,EMS123.0 

.WORD EMS122.EMS132.EMS134,EMS123.0 

.WORD E«S123.EMS132.EMS134,EMS123.0 

.WORD EnS124.EMS132,EMS134,EMS123.0 

.WORD EMS125.EMS132.EMS134.EMS123.0 

.WORD EMS126.E«S132,EMS134.EMS123.0 

•WORD EMS137,EMS132,EMS134.EMS123.0 

. WORD E«S1 30 . EMS 1 32 , EMS 1 34 , EMS 1 23 . 0 

.WORD EMS131,EMS132,EMS134.EMS123.0 

.WORD EMS121.EMS132.EMS135.0 

.WORD EMS123,EMS132,EMS135,0 

.WORD EMS121,E«S132,EMS136.0 

.WORD EMS137,E«S132.EMS136.0 

.WORD EMS124.EMS132.EMS136.0 

.WORD EMS125,£MS132.EMS136,0 

.WORD EMS126.E«S132,EMS136.0 

.WORD EMS131.EMS132.EMS136,0 

.WORD EMS171,EMS132,EMS136,0 

.WORD EMS130.EMS132,EMS136,0 

.WORD EMS140,EHS115.EMS141,EMS70,0 

.WORD EMS142,EMS115,EMS143,EMS72,0 

.WORD EMS144.EMS145,EMS146,EMS115,EMS143.EMS72.0 

.WORD EMS144.EMS145.EMS20,EMS115-EMS143.EMS70.0 

•WORD E«S150,EMS152.EMS154,EMS153.0 

.WORD EMSK7,EHS151.E«S154.EMS155.0 

.WORD EMS147,EMS151.EMS156.EMS157.0 

.WORD EMS161.EMS156.EMS160,0 
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S£0 02S7 



'IS 067306 
^6 067320 
^17 067332 
M8 067342 
M9 067350 

120 067356 

121 067364 

122 067372 

123 067404 
-24 067414 
125 067424 
-26 067434 

127 067446 

128 067454 

129 067462 

130 067464 

131 067476 

152 067510 

153 067522 
134 067534 
155 067552 

136 067562 

137 067572 

138 067604 

139 067612 

140 067626 

141 067642 

142 067652 

143 067672 

144 067704 

145 067714 
14b 067724 

147 067734 

148 067744 

149 067754 

150 067764 

151 067766 

152 067770 

153 067772 

154 067774 

155 067776 

156 070000 

157 070002 

158 070004 

159 070006 

160 070010 

161 0^0012 

162 0/0014 

163 070016 

164 070020 

165 070022 

166 070024 

167 070026 

168 070030 

169 070040 

170 070052 
VI 070066 



072655 
072672 
073515 
073515 
073714 
073466 
100035 
077273 
076707 
076707 
076763 
076763 
075017 
077160 
000000 
077273 
077273 
077273 
077273 
076274 
073544 
074576 
074377 
074377 
073573 
076136 
073544 
075621 
073621 
073714 
073466 
072734 
073515 
073621 
073621 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
076707 
076707 
076707 
077447 



07271 5 
072713 
076541 
072516 
072516 
072516 
072516 
076110 
076405 
076405 
075631 
075631 
077136 
077175 

073573 
077306 
073544 
076153 
074360 
074567 
074343 
076110 
076274 
074333 
073631 
07/.567 
077334 
075126 
072724 
072724 
072724 
072724 
075126 
075126 



076441 
076441 
076067 
000000 
000000 
000000 
000000 
072724 
076457 
076421 
075655 
075700 
000000 
000000 

072724 
072724 
072724 
072724 
077243 
074333 
077243 
075073 
000000 
075073 
075073 
073631 
076662 
073714 
074125 
074125 
074125 
074125 
074436 
074077 



075631 
075631 
077431 
077472 



077373 
077420 
077420 
000000 



EMT161 

EMT162 

EMT163 

EMT164 

EMT165 

EMT166 

EMT167 

EMT170 

EMT171 

EMTl 72 

EMT173 

EMTl 74 

EMTl 75 

EMTl 76 

EMT177 

EMT200 

EMT201 

EM7202 

EMT203 

EMT204 

EMT205 

EMT206 

EMT207 

EMT210 

EMT211 

EMT212 

E- 213 

E/-..214 

EMT215 

EMT216 

EMT217 

EMT220 

EMT221 

EMT222 

EMT223 

EMT224 

EMT225 

EMT226 

EMT227 

EMT230 

EMT231 

EMT232 

EMT233 

EMT234 

EMT235 

EM T 236 

EMT237 

EMT240 

EMT241 

EMT242 

EMT243 

EMT244 

EMT245 

EMT246 

EMT247 

EMT250 

EMT251 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



EMS25.EMS27.EMS156,EMS160.0 

EMS26.EMS27.EMS156,EMS160.0 

EMS47,EMS163.EMS140.0 

EMS47.EMS20.0 

EMS56,EMS20,0 

EMS46.EMS20,0 

EMS224,EMS20.G 

EMS203,EMS141 ,EMS30,EMS202,0 

EMS167,EMS154.EMS157.0 

EMS167.EMS154,EMS155.0 

EMS171.EMS132.EMS133.0 

EMS171,EMS132,EMS134,EMS123.0 

EMS113,EMS177.0 

EMS200.EMS201.0 

EMS203 , EMS 5 1 . EMS30 , EMS202 . 0 

EMS203 , EMS204 . EMS30 . EMS202 , 0 

EMS203 . EMS50, EMS30 . EMS202 , 0 

EMS203 . EMS 1 43 . EMS30 , EMS202 , 0 

EMS 1 50 . EMS74 . EMS202 , EMS 1 1 5 . EMS 1 52 , EMS72 . 0 

EMS50.EMS103,EMS72,0 

EMS104.EMS73.EMS202,0 

EMS75.EMS141.EMS115,EMS140.0 

EMS75,EMS150,0 

EMS 5 1 . EMS 72 .EMS 1 1 5 . EMS 5 0 . EMS 70 , 0 

EMS142.EMS53.EMS115.EMS143,EMS72.0 

EMS50.EMS103,EMS53,0 

EMS52 . EMS205 . EMS 1 66 . EMS206 . EMS 1 1 5 . EMS5 1 , EMS 72 . 0 

EMS52 . EMS1 1 7, EMS56 , EMS 1 63 , 0 

EMS56,EMS30,EMS64.0 

EMS46.EMS30,EMS64.0 

EMS31,EMS30,EMS64.0 

EMS47.EMS30.EMS64,0 

EMS52.EMS117.EMS77,0 

EMS52,EMS117,EMS63.0 



EMS167,EMS132.EMS207,0 

EMS167.EMS132.EMS210.EMS125.0 

EMS 1 6 7 , EMS2 1 1 . EMS21 0 . EMS207 . EMS206 . 0 

EMS212.EMS213,0 
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17? 070074 
173 070102 
17A 070120 

175 070130 

176 070U0 

177 070150 

178 070162 

179 0701^4 

180 0702U 

181 070224 

182 070234 
133 070254 

184 070274 

185 070306 

186 070324 

187 070340 

188 070356 

189 070374 

190 070412 

191 C70430 

192 070442 

193 070456 

194 070474 

195 070514 

196 070536 

197 070550 

198 070562 

199 070574 

200 070606 

201 070616 

202 070636 

203 070650 

204 070662 

205 070674 

206 070714 

207 070726 

208 070740 
20Q 070752 

210 070762 

211 070772 

212 071002 

213 071010 

214 071020 

215 071032 

216 071044 

217 071062 

218 071074 

219 071104 

220 071116 

221 071130 

222 071 146 

223 071164 

224 071204 

225 071214 

226 071224 

227 071236 

228 071244 



076646 

076257 

077273 

077273 

077273 

072310 

073621 

073621 

074576 

073544 

073714 

074320 

076136 

073544 

073515 

073515 

074377 

073573 

074077 

075076 

073515 

073515 

073714 

074320 

076646 

076646 

076646 

073466 

073544 

073544 

076136 

074576 

074625 

076201 

073272 

072734 

074320 

073321 

073423 

073350 

074654 

073140 

077036 

077016 

072362 

076257 

074211 

073012 

073215 

073573 

074377 

074377 

074017 

075076 

073040 

073665 

073621 



077447 
076313 
074512 
076707 
074464 
073466 
075126 
077334 
074343 
073631 
073631 
073714 
076153 
076240 
073631 
073631 
076110 
074360 
073631 
073631 
073631 
073631 
073631 
073714 
074464 
074512 
074436 
07272i* 
073631 
076240 
076153 
074567 
07^567 
076211 
074567 
074567 
072734 
074567 
074567 
074567 
072516 
074567 
073140 
073140 
077053 
076313 
073631 
074567 
074567 
074360 
076110 
076274 
074032 
075126 
073631 
073040 
075126 



000000 
076441 
072724 
072724 
072724 
072724 
073714 
077637 
077243 
074540 
074540 
074540 
073631 
075073 
074540 
074540 
074540 
074540 
073771 
073244 
073771 
073771 
073771 
073631 
074567 
074567 
074567 
074125 
073771 
075073 
073631 
073631 
073631 
074567 
073631 
073631 
074567 
073771 
073771 
073771 
000000 
073771 
074567 
074567 
072404 
074360 
077061 
073631 
073631 
073771 
073771 
076337 
074061 
073040 
073643 
000000 
073714 



EMT252 

tm253 

EMT254 

EMT255 

EMT256 

EMT257 

EMT260 

EMT261 

EP1T262 

EMT263 

EMT264 

EMT265 

EMT266 

EMT267 

EMT270 

EMT27 

EMT272 

EMT273 

EMT274 

EMT275 

EMT276 

EMT277 

EMT300 

EMT301 

EMT302 

EMT303 

EMT304 

EWT305 

EMT306 

EMT307 

EMT310 

EMT311 

EMT312 

E«T313 

EMT314 

EMT315 

Em316 

EMT317 

EMT320 

EMT321 

EMT322 

EMT323 

EMT324 

EMT325 

E«T326 

EMT327 

EMT330 

EMT331 

EMT332 

EMT333 

EMT334 

EMT335 

EM T 336 

EMT337 

EMT340 

EMT341 

EMT342 



.WORD EMS165.EMS212.0 

.WORD EMS147.EMS151.EMS156.EMS210.EMS26,EHS27.0 

.WORD EMS203.EMS101.EMS30.0 

.WORD cMS203.EMS167.EMS30.0 

.WORD EMS203,EMS100.EMS30,0 

.WORD EMS11 .EMS46-EMS30,EMS102.0 

.WORD EMS52.EMS117.EMS56.EMS102,0 

.WORD E MS 5 2 . E MS205 . EMS220 , EMS206 , EMS 1 1 5 . EMS 5 1 , EMS 7? . 0 

.WORD FMS104.EMS73,EMS202.0 

.WORD EM350.EMS53.EMS102,0 

.WORD EMS56.EMS53.EMSi02,EMS115,EMS150.EMS152.EMS70,0 

.WORD EMS71 .EMS56,EMS102,EMS115,EMS150.EMS152.EMS72.0 

.WORD EMS142.EMS143,EMS53,EMS102,0 

. WORD EMS 50 , EMS 1 46 , EMS 1 1 5 , EMS52 , EMS 1 1 7 , EMS46 . 0 

.WORD EMS47.EMS53.EMS102,EMS115,EMS140.0 

.WORD EMS4 7 , EMS5 3 . EMS 1 02 . EMS 1 1 5 . EMS 1 4 1 . EMS 72 , 0 

. WORD EMS 75 . EMS 1 4 1 . EMS 1 02 . EMS 1 1 5 . EMS4 7 , EMS 73 . 0 

. WORD EMS5 1 , EMS74 . EMS 1 02 , EMS 1 1 5 , EMS50 . EMS70 , 0 

.WORD EMS63 . EMS 5 3 , EMS 5 7 , EMS 1 1 5 , EMS4 1 , EMS 1 46 , 0 

.WORD EMS116,EMS53.EMS41.EMS57,0 

.WORD EMS47.EMS53.EMS57.EMS115,EMS140,0 

.WORD EMS47,EMS53,EMS57.EMS115,EMS141.EMS72,0 

.WORD EMS56.EMS53,EMS57.EMS115,EMS150.EMS152.EMS70.0 

.WORD EMS71,EMS56,EMS53.EMS57.EMS115,EMS150,EMS152.EMS72.0 

.WORD EMS165.EMS100.EMS103.EMS57,0 

.WORD EMS165,EMSl01.EMS103,tMS57,0 

.WORD EMS165,EMS77,EMS103,EMS57.0 

.WORD EMS46.EHS30,EMS64.EMS57,0 

-WORD EMS50.E«S53,EMS57.0 

.WORD EMS50.EHS146,EMS115,EMS52,EMS117.EMS46,EMS57,0 

.WORD EMS142,EMS143,EMS53,EMS57,0 

.WORD EMS104,EMS103,EMS53.EMS57.0 

.WORD EMS105,EMS103,EMS53,EMS57.0 

.WORD EMS144.EHS145.EMS103.EMS57,EMS115,EMS143.EMS70.0 

.WORD EMS42,EMS103.EMS53.EMS57.0 

.WORD EMS31,EMS103.EMS53,EMS57.0 

.WORD EMS71,EHS31,EMS103,EMS57.0 

.WORD EMS43.EHS103,EMS57.0 

.WORD EMS45,EMS103,EMS57,0 

.WORD EMS44,EHS103.EMS57,0 

•WORD EMS106.EHS20.0 

.WORD EMS36.EHS103.EMS57,0 

.WORD EMS173.EMS36,EMS103,EMS57.0 

.WORD EMS1 72, EHS36.EMS103,EMS57,0 

. WORD EMS 1 3 , EHSl 74 , EMS 1 5 , EMS35 , EMS5 3 . EMS1 75 , 0 

.WORD EMS147,EHS151,EMS74,EMS175.0 

.WORD EMS66.EHS53,EMS175,0 

.WORD EMS33,EHS103.EMS53,EMS175.0 

.WORD EMS40.EHS103,EMS53.EMS57.0 

.WORD EMS51 ,EHS74.EMS57,EMS115,EMS50,EMS70.0 

.WORD EMS75,EHS141.EMS57.EMS115,EMS47.EMS73.0 

.WORD EMS75,EMS150,EMS152.EMS57.EMS115.EMS56.EMS73.0 

. WORD EMS60 . EHS61 , EMS62 . 0 

.WORD EMS116.EMS117.E«S34,0 

.WORD EMS34,EMS53,EMS54.EnS111,0 

.WORD EMS55.EMS34,U 

.WORD EMS52.EMS117,EMS56,EMS57.0 
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?29 
230 
?51 
232 
233 
234 
235 
236 
237 
238 



071256 
071 2 -'0 
071302 
071312 
071 326 
071 3A0 
071356 
071366 
071372 
071402 



073621 
073621 
073621 
074654 
073621 
074377 
076707 
077533 
077604 
077657 



075126 
075126 
075126 
072516 
077334 
076274 
074343 
000000 
077273 
072516 



073425 
073550 
077657 
075073 
077727 
074540 
074540 

077554 

000000 



EMT343: 
EMT344: 
EMT345: 
EMT346: 
EMT347: 
EMT350: 
EMT351: 
EMT352: 
EMT353: 
EMT354: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
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EMS52.fcMS117.EWS45.EMS57.0 

E«S52.EMS117.EMS44,EMS57.0 

EMS52.EMS117.EHS221.0 , ^ 

EMS106.FMS20.EWS115.EMS223.EMS72.0 

EMS5?.E»1S205.E«S222,EMS206.0 

EMS75 JMS1 50.EMS1 02.EMS1 1 5.EMS56,t«S73.0 

EMS167.EMS73.EMS102.0 

EMS215,0 

E«S217.E«S203.E«S216,0 
EWi221.E«S20.0 



C7RMNB0 RM05/3/2 FCTNL 
FRROR MESSAGE TABLE 

1 07K1C 100107 

2 07U22 100713 
3 

4 07U32 100126 

5 07H36 100135 
6 

7 07UA2 100154 

8 07UA6 100203 

9 07U60 100231 
10 

11 07K72 100305 

12 071504 100344 

13 071516 100501 
14 

'5 071530 100637 



TSr 2 MACRO 



100713 100770 
100770 101115 

000000 
000000 

000000 

100713 100770 
100713 100770 

100713 100770 
100713 100770 
100713 100770 

000000 



.00 4-APR-81 



EHT1: .WORD 

EHT2: .WORD 

EHT110: .WORD 

EHT111: .WORD 

EHTn4: .WORD 

EHT223: .WORD 

EHT256: .WORD 

EHT336: .WORD 

EHT337: .WORD 

EHT344: .WORD 

EHT353: .WORD 



N 4 
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EHl.STSHl,STSH2.SrSH4.0 
STSH1.STSH2.STSH4.0 

EHllO.O 
EH111.0 

EH114.0 

EH223.STSH1,STSH2.STSH4.0 
EH256,STSH1 .STSH2.STSH4.0 

EH336.STSH1,STSH2.STSH4,0 
EH337.STSH1.STSH2.STSH4,0 
EH344.STSH1 ,STSH2.STSH4,0 

EH353.0 
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ERPiOR MESSAGE TABLE 



1 
2 
3 
4 
5 
6 
7 
8 
9 

'0 
1 

12 
13 
H 



071534 
071 SAA 

07 i 552 
071 55A 

071556 
071560 

071570 
071600 
071610 



»WCRO VGA. 00 4-APR-81 



101154 
101250 

101162 
101166 

101174 
101204 

101214 
101226 
101226 



101250 
101266 



101250 
101250 
101250 



101266 
101320 



101250 101266 



101266 
101266 
101266 



EDTl : 
EDT2: 

EDT110: 
EDT111: 

EDT114: 
EDT223: 

EDT336: 
EDT337: 
EDT344: 



.WORD 
.WORD 

.WORD 
.WORD 

.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
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€D1.STSD1.STSD2,STSD4 
STSD1.STSD2.STSD4 

ED110 
ED111 

EDIH 

ED223.STSD1.STSD2.STSD4 

ED336.STSD1.STSD2.STSD4 
ED337.STSD1.STSD2.STSD4 
ED337.STSD1.STSD2.STSD4.0 



071622 101240 



EDT353: .WORD ED353 



07162^ 
071654 

071642 
07-644 



i 
I 
4 

5 
6 

7 071646 

8 071650 
9 

10 071660 

11 071670 

12 071700 
13 

U 071710 



101535 
101551 

101552 
101555 

101535 
101555 

101540 
101540 
101540 

101555 



101551 
101351 



101551 101551 



101551 
101551 
101551 
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101551 EF11: .WORD EF 1 11 .STSF .STSF .STSF 

101551 EFT2: .WORD STSF ,STSF .SISF 

EFT110: .WORD EF110 

EFlIll: .WORD EF111 

EFT114: .WORD EF114 

EFT225: .WORD EF 1 14 .STSF ,STSF , STSF 

101351 EFT336: .WORD EF 336. STSF .STSF .STSF 

101351 EFT337: .WORD EF 336. STSF .STSF .STSF 

101351 EFT344: .WORD EF336. STSF , STSF .STSF 



SEO OPt.- 



EFT353: .WORD EFn4 



I 
! 





FCTIC 


TST 2 




FRC'J« MESSAGE STRI«*GS 






2 
3 


071712 


127 


1^2 


1 1 7 


4 


071 761 


104 


105 


126 


5 


071776 


125 


116 


101 


6 


072041 


116 


117 


116 


7 


072104 


^03 


117 


115 


8 


072134 


103 


117 


116 


9 


072201 


104 


I?? 


111 


10 


072246 


107 


117 


040 




072310 


111 


116 


126 


12 


072321 


106 


IPS 


116 


13 


072362 


115 


101 


123 


'4 


072373 


103 


117 

1 1 f 


116 


15 


072404 


102 


125 


123 


16 


072426 


0't2 


115 


103 


"7 


072456 


124 


122 


101 


18 


072516 


123 


110 


117 


19 


072541 


127 


1 1 7 


122 


20 


C72564 


102 


125 


123 


21 


072600 


^42 


114 


102 


22 


072626 


042 


101 


117 


23 


072655 


104 


111 


123 


24 


072672 


103 


131 


114 


25 


072713 


101 


■•04 


104 


26 


07272^ 


123 


124 


101 


27 


072734 


042 


127 


114 


28 


072763 


042 


125 


120 


29 


073012 


042 


127 


103 


30 


073040 


127 


122 


1 1 1 


31 


073111 


042 


115 


104 


32 


0731 4C 


042 


104 


103 


33 


073167 


042 


105 


103 


34 


073215 


042 


104 


114 


35 


073244 


042 


115 


130 


36 


071272 


042 


104 


124 


37 


073321 


042 


110 


103 


38 


073350 


110 


105 


101 


39 


073423 


106 


117 


122 


40 


073466 


042 


1 1 1 


101 


41 


073515 


042 


117 


120 


42 


073544 


042 


1 23 

1 C -J 


113 


43 


073573 


042 


120 


1 1 1 

1 1 1 


44 


073621 


124 


110 


105 


45 


073631 


104 


105 


124 


46 


073643 


101 


124 


040 


47 


073665 


111 


116 


103 

1 V—' 


48 


073714 


111 


116 


126 


49 


073771 


104 


125 


^22 


50 


074017 


104 


101 


124 


51 


074032 


104 


117 


105 


52 


074061 


104 


101 


124 


53 


074077 


042 


120 


101 


54 


074125 


111 


123 


040 


55 


074K3 


103 


117 


115 


56 


074211 


104 


101 


124 


57 


074261 


104 


125 


122 
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.S8TTL ERROP MESSAGE STRINGS 



EMS1 

EMS2 

EMS3 

EHS4 

EHS5 

EMS6 

EMS 7 

EMS 10 

EMS 11 

EMS 12 

EMS 13 

EMS 14 

EMS15 

EMS16 

EMS17 

EMS20 

EMS21 

EMS22 

EMS23 

EMS24 

EMS25 

EMS26 

EMS27 

EMS 30 

EMS31 

EMS32 

EMS33 

EMS 34 

EMS35 

EMS36 

EMS37 

EMS40 

EMS41 

EMS42 

EMS43 

EMS44 

EMS45 

EMS46 

EMS47 

EMS50 

EMS51 

ErtS52 

EMS53 

EMS 54 

EMS55 

EMS 56 

EMS 5 7 

EMS60 

EMS61 

EMS62 

EMS63 

EMS64 

EMS65 

EMS66 

EMS67 



.ASCJ 
.ASCI 

• ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
•ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 

• ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 



aURONG UNIT SELECTED (RMCS2. BITS 0-2) i 
aOEVICE WENT a 

aUNAVAlLABLE "DVA" (RMCSl, BIT 11) a 
aNONEXISTENT 'NED" (RMCS2, BIT 12) a 
aCOrWAND NOT COMPLETED, a 
aCONTROLLER NOT READY (RMCSl, BIT 7) a 
aDRIVE NOT READY "DRY" (RMDS, BIT 7) a 
aGO NOT RESET "GO" (RMCSl. BIT 0) a 
aiNVALiD a 

af UNCTION CODE (RMCSl. BITS 1-5) a 

aMASSBus a 
acoNTROL a 

aBUS PARITY ERROR a 
a'MCPE" (RMCSl. BIT 13) a 
aTRANSFER ERROR (RMCSl. BIT 14) a 
aSHOULD NOT BE SET a 

awoRD COUNT (RMuc) a 

aBUS (RMBA) a 
a"L8T" (RMDS. BIT 10) a 
a"AOE" (RMER1. BIT 09) a 
aDISK (RMDA) a 
aCYLlNDER (RMDC) a 
aADDRESS a 

asTATus a 

a'VLE" (RMER1. BIT 11) a 
a'UPE" (RMCS2. BIT 13) a 
a'VlCF" (RMER1. BIT 5) a 

awRITE CHECK ERROR-'V/CE" (RMCS2. BIT 14) a 

a'MDPE" (RMCS2. BIT 8) a 

a"DCK" (RMER1. BIT 15) a 

a"ECH" (RMERl. BIT 6) a 

a'DLT" (RMCS2. BIT 15) a 

a'WXF" (RMCS2. BIT 9) a 

a'DTE" (RMERl. BIT 12) a 

B"HCRC" (RMERL BIT 8) a 

iHEAOER COMPARE ERROR '^^CE" (RMERl. BIT 7) a 

aFORMAT ERROR 'TER" vRMERl. BIT 4) a 

a"IAE" (RMERl. BIT 10) a 

B"OPI" (RMERl. BIT 13) a 

a"SKI" (RMER2. BIT 14) a 

a' PIP" (RMDS. BIT 13) a 

aTHE RM a 

aDETECTED a 

aAT AN UNEXPECTED S 

aiNCORRECT DATA DURING S 

aiNVALID COMMAND ERROR "IVC" (RMER2. BIT 12) 

aDURING DATA TRANSFER a 

aDATA READ a 

aDOES NOT COMPARE WITH a 

aDATA WRITTEN a 

a' PAR" (RMERl, BIT 3) a 

aiS INCORRECT a 

aCOMPOSITE ERROR "ERR" (RMDS. BIT 14) S 
SDATA PARITY ERROR "DPE" (RMER2. BIT 3) 3 
aDURING SEEK COMMAND 3 



a 
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SEO O^b^ 



S8 
5«J 
60 
61 
t? 
63 
6<. 
65 
66 
67 
68 
o9 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
8b 
86 
87 
88 
8V 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
170 
111 
112 
1^3 
1 H 



074506 

074320 

074333 

074343 

074360 

074377 

074405 

074436 

074464 

074512 

074540 

074567 

074576 

074625 

074654 

074673 

074722 

074735 

074775 

075017 

075047 

075075 

075076 

075126 

075150 

075 VI 

075234 

075271 

075554 

075566 

075451 

075474 

075555 

075571 

075631 

075655 

075700 

075742 

076005 

076052 

076067 

076110 

0761 56 

076155 

076201 

07621 1 

076240 

076257 

076274 

076515 

076557 

076363 

076405 

076421 

076441 

076457 

076474 



n 

105 
111 
104 
104 
114 
104 
042 
042 
042 
104 
105 
042 
042 
110 
102 
101 
127 
101 
124 
116 
015 
124 
106 
116 
105 
102 
105 
105 
101 
115 
105 
105 
115 
116 
125 
103 
122 
104 
104 
115 
042 
104 
042 
125 
042 
125 
117 
040 
042 
042 
120 
116 
117 
116 
122 
122 



123 
122 
125 
111 
111 
117 
125 
122 
111 
111 
125 
122 
114 
114 
105 
125 
104 
110 
124 
110 
117 
012 

no 

101 
117 
117 
125 
117 
122 
124 
101 
105 
105 
101 
117 
11^ 
117 

'ir 

122 
122 
105 
115 
122 
104 
116 
125 
11c 
106 
126 
117 
126 
101 
117 
106 
117 
124 
111 



040 
122 
040 
104 
104 
123 
122 
115 
114 
114 
122 
122 
102 
125 
101 
125 
104 
105 
040 
105 
116 
000 
105 
111 
124 
116 
125 
116 
122 
124 
111 
103 
103 
111 
124 
111 
116 
057 
111 
111 
104 
117 
111 
126 
125 
116 
117 
106 
117 
115 
126 
103 
124 
106 
124 
105 
120 



EMS 70 
EMS71 
EMS72 
EMS 75 
EMS 74 
EMS 75 
EMS 76 
EMS77 
EMS 100 
EMS101 
EMS102 
EMS 105 
EMS 104 
EMS 105 
EMS 106 
EMS110 
EMS111 
EMS112 

EMSn3 
EMS114 
EMS115 
EMS116 
EMS1 1 7 
EMS 120 
EMS121 
EMS1 22 
EMS 125 
EMS 124 
EMS 125 
EMS 126 
EMS1 27 
EMS 130 
EMS131 
EMS 132 
EMS 153 
EMS 134 
EMS 135 
EMS 136 
EMS137 
EMS140 
EMS141 
EMS142 
EMS145 
EMS 144 
EMS145 
EMS 146 
EMS147 
FMS150 
EMS151 
EMS152 
EMS153 
EMS154 
EMS155 
EM5156 
EMS157 
EMS 160 



.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCJ 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
,ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
•ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 



SIS RESET a 
SERRONEOUS a 

ais SET a 

aOID NOT SET a 
aOID NOT RESET a 

aiosT a 

aDURING PACK ACK COMMAND a 
a'TWR" (RMERl, BIT 2) a 
a"ILR" (RMCR1. BIT 1) a 
a"iLF" (RMERl. BIT 0) a 
aDURING SEARCH COMMAND a 
aERROR a 

a"L8C" (RMER2. BIT 10) 3 
a"LSC" (RMEH2. BIT 11) a 
aHEADER ERRORS a 
aeuS TIMEOUT (04 TRAP) a 
aADDRESS a 

aWHEN READING/WRITING RH REGISTERS 3 

2AT THE FOLLOWING a 

aTHE SELECTED DEVICE IS a 

aNONEXiSTENT DEVICE 3 

<CR><LF> 

aTHE MASSBUS CONTROLLER a 

aFAJLED TO DETECT a 

aNOT AN RM05/3/2 a 

aCONTROL STATUS REGISTER 1. RMCSl, a 

aBUS ADDRESS REGISTER, RMBA, a 

aCONTROL STATUS REGISTER 2. RMCS2. a 

aERROR REGISTER 1, RMERl, a 

aATTENTION SUMMARY REGISTER, RMAS, a 

aMAINTENANCE REGISTER *1 , RMMR «^ , a 

atCC POSITION REGISTER. RMEC1. a 

aECC PATTERN REGISTER. RMtC2. a 

aWAINTENANCE REGISTER 2. RMMR2. a 

aNOT INITIALIZED BY a 

aUNIBUS INITIALIZE a 

aCONTROLLER CLEA,?. I.E. BIT 5 OF a 

aRH/RM ERROR CLEAR (RMCS1 . BIT 14) a 

aDRIVE CLEAR COMMAND a 

aDRIVE STATUS REGISTER. RMDS a 

aMEDIUM OFF LINE a 

a'WOL" (RMDS. Br 12) a 

aDRIVE FAULT a 

a"DVC" (RMER2. BIT 7) a 

aUNSAFE a 

a'UNS" (RMERl. BIT 14) a 
aSHOULD BE SET a 
aOFFSET MODE a 

a VOLUME VALID a 
a* TOM" (RMDS. BIT 0) a 
a'W" (RMDS, BF 6) a 
aPACK ACK COMMAND a 
aNOT SET BV a 
aOFFSET COMMAND 3 
aNOT RESET BY a 
aRTC COMMAND 3 
aRIP COMMAND 3 
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'IS 


07651 T 


r7 


^0(> 


106 


EMS161: 


M6 


076541 








E(1S162: 


•17 


076541 


^04 


125 


(22 


EMS163: 


"8 


076565 


111 


123 


040 


EMS 164: 


119 


076634 


103 


131 


114 




120 


076646 


125 


116 


105 


EMS165: 


'21 
'22 
'23 


076662 


122 


105 


103 


EnS166: 


076707 


042 


101 


124 


EMS 167 : 


076734 


127 


110 


105 


EMS170: 


*2<. 


076763 


105 


122 


122 


EMS171: 


125 


077016 


116 


117 


116 


EM51 72 : 


126 


077036 


122 


105 


103 


EMS 173 . ■ 


127 


077053 


104 


101 


124 


EMS 174: 


i?8 


077061 


104 


125 


122 


EMS175: 


V9 


077107 


042 


'17 


120 


EMS 176 : 


130 


077136 


111 


116 


040 


EMS 177 : 


131 


077160 


103 


101 


116 


EMS200: 


'52 


077175 


104 


111 


101 


EMS201 : 


133 


077243 


104 


125 


122 


EMS202: 


'3A 


077273 


111 


116 


103 


EMS203: 


'55 


077306 


042 


127 


122 


EMS204: 


136 


077334 


lo*; 


130 


105 


EMS205: 


•37 


077346 


127 


111 


124 


EMS206: 


138 


077373 


042 


107 


117 


EMS207: 


'39 


077420 


127 


122 


111 


EMS210: 


HO 


077431 


127 


101 


123 


EMS211: 


•^1 


077447 


120 


122 


117 


EMS212: 


u? 


077472 


127 


101 


123 


EMS213: 


'43 


077515 


123 


105 


105 


EMS214: 




077533 


120 


122 


117 


EMS215: 




077554 


104 


125 


122 


EMS216: 




077604 


114 


117 


117 


EMS217; 


'47 


077637 


125 


105 


101 


EMS220: 


H8 


077657 


102 


101 


104 


EMS221 : 




0-^7727 


101 


040 


104 


EMS222; 


'^0 


0777b0 


no 


105 


10' 


EMS223: 




100035 


116 


117 


116 


EMS 224: 
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S€U 0265 

.ASCIZ aOFFSET REGISTER (RMOF) i 

;<UNUSED> 

.ASCJZ aOURING RECALIBRATE 9 

.ASCII aiS INTERMITTENT OR DRIVE DIDNT DROP ON 8 

.ASCIZ aCYLINDER a 

.ASCIZ atWEXPECTED a 

.ASCIZ aRECALIBRATE COMMAND a 

.ASCIZ a"ATA" (RMDS. BIT15) a 

.ASCIZ aUHEN READING REGISTER a 

.ASCIZ aE.'^ROR REGISTER #2, RMER2, a 

.ASCIZ aNONRECOVERABLE a 

.ASCIZ aRECOVERABLE S 

.ASCIZ aOATA a 

.ASCIZ aDURING WRITE COMMAND a 

.ASCIZ a'lOPE" (RMFR2. BIT 13) a 

.ASCJZ aiN WRITE PROTECT a 

.ASCIZ aCAN NOT SET a 

.ASCIZ aDIAGNOSTIC MODE "DMD'" (RMMR1 . Bl T C) a 

.ASCIZ aDURING DIAGNOSTIC MODE a 

.ASCIZ aiNCORRECT a 

.ASCIZ a'U^L" (RMDS. BIT 11) a 

.ASCIZ aEXECUTED a 

.ASCIZ awITH COMP ERROR SET a 

.ASCIZ a'tJO" (RMCS1. BIT 0) a 

.ASCIZ aURITING a 

.ASCIZ aUAS RESET BY a 

.ASCIZ aPROGRAM INTERRUPT a 

.ASCIZ aWAS NOT GENERATED a 

.ASCIZ aSEEK COMMAND a 

.ASCIZ aPROGRAM TIMEOUT a 

.ASCIZ aDURING LOOK AHEAD TEST a 

.ASCIZ aLOOK AHEAD RE6J STER.RMLA. a 

.ASCIZ aSEARCH COMMAND a 

.ASCIZ aBAD SECTOR ERROR 'BSE" (RMER2. BIT 15) k 

.ASCIZ aA DATA TRANSFER COMMAND a 

.ASCIZ aHEADER COMPARE INHIBIT •'HCI'* fRMOF, BIT iO) a 

.ASCJZ aNONFXISTENT MEMORY '\EM" (RMCS2. BIT 11) fi 
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5 
SB 



10010'' 
100126 
100135 



^0 
11 



100154 
10020^ 
'00231 
8 100257 
9 

100305 
100544 
'2 100403 
13 100442 
'4 

15 100501 

16 100541 

17 100577 

18 100637 

19 100656 
20 

21 100715 

22 100760 
?3 100770 

24 101035 

25 101057 

26 101115 
27 



105 
102 
040 

122 
105 
105 
123 

107 

122 
137 
105 

122 
137 
105 
105 
074 

040 
040 
040 
040 
040 
040 



150 
125 
122 

105 
130 
130 
124 

104 
115 
137 
130 

115 
137 
130 
130 
103 

122 
040 
122 
040 
122 
122 



120 fHi: 
123 fHllO: 
115 EH111: 

103 EH114 

120 EH223 

120 EH256 
101 

101 
103 
137 
120 

105 
137 

120 
120 
122 

115 
040 
115 
040 
115 
115 



EH336: 
EH337: 



EH344; 



EH353: 



STSHI : 

STSH2: 

STSH3: 
STSH4: 
.EVEN 



.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCII 
.ASCIZ 

.ASCIZ 
.ASCII 
.ASCII 
.ASCIZ 

.ASCII 
.ASCII 
.ASCIZ 
.ASCII 
.ASCIZ 

.ASCII 
.ASCIZ 
.ASCII 
.ASCIZ 
.ASCIZ 
.ASCIZ 



aEXPCTD RECEVDa 
aSUSADRi 

a WCS2 mcs i 

SRECEVD SNGPRT 

aEXPCTD RECEVD 

aEXPCTD RECEVD 

aSTATUS STATUS 



DULPRia 

DATAa 
RGSTRa<CRLF> 
INDEXa 



aG:)ADRS GDDATA BDADRS BDDATAa 
aRMCS2 STATUS FAILING DATAa<CRLF> 

a a<cRLF> 

aPXPrTD-RFrP^C ""BIT — SI5RF55a 

aRMERI STATUS HEADER FA]LlNGa<CRLF> 
a WORD BITa<CRLF> 

aF5<PrTD""RFtF^D number PosiTONa 

aEXPCTD RECEVDa<CRLF> 
a<CRLF> RMLA RMLA RMQF a 

a RMCS1 RMCS2 RMDS RMER1 RMER2a 

a RMAsa 

a RMWC nmA RMDA RMOF RMDCa 

a RMEC1 RMEC2a 

a RMDA RMDC RWOF RMLAB 

a R'^WRI RMMR2 RMDT RMSNa 



F^ROS KSSAGt STRINGS 

' 101154 001 UO 001 U2 OOOOOC tDI- 

? 101162 001276 COOOOO FD110 

3 101166 001174 001176 OOOOUO ED1 11 
4 

5 101174 001564 001176 001200 EDn4 

6 101204 001140 001 142 001174 ED223 

8 101214 001134 001140 001136 ED336 
9 

10 101226 001140 001142 001174 ED337 

'1 10^240 001140 001142 001444 ED355 
12 

13 101250 001336 001346 001350 STSD1 

'4 101266 001340 001342 001344 STSD2 

^5 101302 001404 000000 

16 101306 001344 001372 001370 STSD3 

'7 101320 001362 001376 001364 STSD4 
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.WORD SGDDAT,S8DDAT,0 

.WORD tSASE.O 

.WORD SIMPO.STWPI .0 

.WORD RMDTJ.$TMP1.$TW>2,0 

.WORD $GDDAT.SBDDAT.$TMP0.0 

. WORD tCDADR , SGDDA T , SSD ADR , SSDDA T , 0 

.WORD $g:>dat.$bddat,$tw>o.$tw>i,o 

.wor: $gddat.$3ddat.rmofo.o 

.word rmcs1 j ,rmcs21 .rwdsj .rmer1 j ,rmer2j .rmasi .0 

.word rmwcj .rm8ai.rmdai,rm0f],r«dc].rmec11 

.word rmec2j.0 

.word rmdai.rmdci,r«ofi,rmlaj,0 

.word rmmr1i.rfmmr21.rmdtj,ri>1smj.o 



101332 
101333 
101 33S 
101340 
101 

101351 



000 
000 
000 
000 
000 

000 



TST ? MACHO vOi.OO <i-APR-81 H 



000 
000 

000 

ooc- 



I s 
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000 





EMIO: 


.BYTE 


0 




Ef m : 


.8VTE 


0.0 


000 


1 r i 1 / - 

t M I s : 




("■no 


WV 


t ' J JD . 




0 0 0 0 


000 


Ef 337: 


.8YTE 


0.0.0.0.0 


000 


STSF : 


.8VTE 


0.0.0.0.0.0.0 




.EVEN 







ERROR MESSAGE SPRINGS 
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? 
3 
4. 

5 
6 

7 

8 
9 
10 



101360 
101360 
^0236^ 



103370 
103374 
104374 



12 104376 

13 104402 

14 10S402 
15 

16 

1 7 

18 101360 

19 101360 

20 101361 

21 101362 

22 101400 

23 101416 

24 101450 

25 101470 

26 101512 

27 101540 

28 101603 

29 101622 

30 101647 

31 101713 

32 101747 

33 102004 

34 102044 

35 102077 

36 102136 

37 102174 

38 102227 

39 102275 

40 1023*. I 

41 102401 

42 102440 

43 102502 

44 102527 

45 102553 

46 102601 

47 102643 

48 102706 

49 102707 

50 102743 

51 102777 

52 103014 

53 103051 

54 103075 

55 103120 

56 103155 

57 103164 



oocooo 

^77777 

000000 
^77777 
101360 



200 
200 
114 
055 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
200 
117 
055 
123 
055 
040 
040 
040 
040 
040 



000000 



000000 



111 
055 
061 
062 
063 
064 
065 
066 
067 
061 
061 
061 
061 
061 
061 
061 
061 
062 
062 
062 
062 
062 
062 
062 
062 
063 
063 

120 
055 
127 
055 
040 
040 
040 
040 
040 



123 
055 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
060 
061 
062 
063 
064 
065 
066 
067 
060 
061 
062 
063 
064 
065 
066 
067 
060 
061 

105 
055 
111 
055 
061 
061 
061 
061 
061 



;S10RAGE FOR GENERAL DATA TRANSFERRS 
BUFFER: 

BUFONE: .8LKU 258. 
BUFTWQ: .8LKW 258. 

.-STORAGE FOR MANUFACTURES 16 BIT MODE BAD SECTOR FILE 

MFGFIL: .WORD 0,0 ;2 HEADER WORDS 

.8LKW 256. ;256. WORDS OF DATA 

.WORD -1 .-TERMIfJATOR IF FILE IS FULL 

.-STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE 

USRFIL: .WORD 0.0 ;2 HEADER WORDS 

.8LKW 256. .-256. WORDS OF DATA 

.WORD -1 .-TERMINATOR IF FILE IS FULL 

.-SUFFER 



HELP: 
.ASCI 
.ASCI 

• ASCI 
.ASCI 

• ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 



<CRLF> 
<CRLF> 
aLlST OF 

a- 



TESTSa<CRLF> 
■a<CRLF> 



aTl CONTROLLER ACCESS TESTa<rRLF> 

aT2 FORMAT ZEROSa<CRLF> 

aT3 ZERO FILL TESTa<CRLF> 

aT4 FORMAT CHECK ZEROSa<CRLF> 

aT5 FORMAT CHECK ZEROS W/ WCE ERRORa<CRLF> 

aT6 FORMAT ONESa<CRLF> 

aT7 FORMAT CHECK ONESa<CRLF> 

aTlO FORMAT CHECK ONES W/ WCE ERRORSa<CRLF> 

aTll FORMAT MULTIPLE SECTORSa<CRLF> 

3112 FORMAT W/ HEAD SWITCHIN6a<CRLF> 

aT13 FORMAT W/ MID TRANSFER SEEKa<CRLF> 

aT14 FORMAT W/ IMPLIED SEEKa<CRLF> 

aTl 5 FORMAT EACH SECTOR ADDRESSa<CRLF> 

aT16 FORMAT EACH TRACK ADDRESSa<CRLF> 

aTl 7 FORMAT PRIME CyLINDERSa<CRLF> 

aT20 READ HEADER I DATA IN LAST SECTORa<CRLF> 

aT21 READ HEADER I DATA W/ AOE ERRORa<CRLF> 

aT22 READ INVALID SECTOR ADDRESSa<CRLF> 

aT23 READ INVALID TRACK ADDRESSa<CRLF> 

aT24 READ INVALID CYLINDER ADDRESSa<CRLF> 

aT25 FORMAT AT OFFSETa<CRLf > 

aT26 IVC FORMAT TESTa<CRLF> 

3127 FORMAT ERROR TESTa<CRLF> 

3130 FORMAT HCE. FIRST HEADER WORDa<CRLF> 

aT31 FORMAT HCE. SECOND HEADER WORDa<CRL'^> 
<CRLF> 

aOPERATIONAL SWITCH SE rTINGSa<CRLr > 

a 3<CRLF> 

aSWiTCH USEa<CRLF> 



a- 

a 

a 

a 

a 

a 



15 
14 
13 
12 

11 



-a<CRLF> 
HALT ON ERRORa<CRLF> 
LOOP ON TESTa<CRLF> 
INHIBIT ERROR TYPEOUTSa<CRLF > 
a<CRLF> 

INHIBIT ITERATIONSa<CRLF> 



v.ZRMreC RMOS/^/Z FCTNL TST 2 
fRROR MESSAGE STRINGS 



58 


105215 


040 


040 


59 


105241 


040 


040 


60 


103265 


040 


040 


6^ 


103324 


040 


040 


62 


103340 


040 


040 


65 


103353 


040 


040 


64 


103366 


A/ A 


u*»u 


65 


103401 


040 


040 


66 


103413 


040 


U^-U 


67 103425 


040 


040 


68 


103437 


040 


040 


&9 
70 




000200 
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061 .ASCII a 10 

040 .ASCII a 9 

040 .ASCII a 8 

040 .ASCII a 7 

040 .ASCII a 6 

040 .ASCII a 5 

040 .ASCII a 4 

040 .ASCII a 3 

040 .ASCII a 2 

040 .ASCII a 1 

040 .ASCIZ a 0 

.END 200 
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SEO 0?70 



BELL ON E'<')ORa<CRLF> 

LOOP ON ERRORa<CftLf> 

L(X)P ON TEST IN SWR<7:0>a<CRLF > 

TNl28a<CRLF> 

TN64i<CRLF> 

TN32a<CRLF> 

TNl6a<CRLF> 

TN8a<CRLF> 

TN4a<CRLF> 

TN2a<CRLF> 

TNla<CRLF> 







T^T ? 








TABlE 








ABASE 


1 76700 


ATNMSK- 


000377 


euFONE 


ACDWi = 


000000 


ATNTBL 


064666 


8UF TWO 


flCDW? - 


000000 


AUNIT 


000000 


CC 


VKSTS 


0A6542 


AUSUR 


000000 


CH 


ACPUOP= 


000000 


AVECT1= 


120254 


CHGADR 


ADDUO = 


000000 


AVFCT2=^ 


000000 


CHRCNT 


ADDUl = 


000000 


A16 


000400 


CKSWR - 


ADDUIO- 


000000 


A17 


001 000 


CLKADR 


ADDWl 1 = 


000000 


BACK = 


000000 


CLKVCT 




000000 


BADSCT 


035152 


CLR = 


ADDWI 3= 


000000 


BADTnO 


005342 


CLRSTS 


AOOWK = 


000000 


BAI 


000010 


CMNSTA 


ADDWI 5= 


000000 


B800 = 


000001 ' 


CMPSUF 


ADDW2 = 


000000 


B801 - 


000002 


CMPERR 


ADDW5 = 


000000 


8802 = 


000004 


cnsloi 


ADDW4 - 


000000 


8803 = 


000010 


CNSL02 


ADDW5 - 


000000 


8804 = 


000020 


CNSL03 


ADDW6 - 


000000 


8805 - 


000040 


CNSL04 


ADDW7 = 


000000 


8806 - 


000100 


CNSL07 


ADDW8 = 


cooooo 


8607 = 


000200 


CNSL08 


ADDW9 = 


000000 


B808 = 


000400 


CNSL09 


ADEVCT= 


000000 


B809 = 


001000 


CNTCLR 


ADEVM - 


000000 


BITO = 


000001 


COMMA 


ADR = 


000001 


81 TOO = 


000001 


CONT = 


AENV = 


OOOOOd 


8IT01 - 


000002 


CPSAVE 


AENVM 


000000 


BIT02 - 


000004 


CR = 


AFATAL= 


000000 


BIT03 


000010 


CRLF = 


ALL 


0634 3<. 


8IT04 - 


000020 


CTLFG 


AMADR1- 


000000 


BIT05 = 


000040 


CYLMSK= 


AMADR2= 


000000 


BIT06 = 


000100 


D8CK 


AMADR3- 


000000 


8IT07 = 


000200 


D8EN = 


AMADR4= 


000000 


BIT08 = 


000400 


D8L = 


AMAMS1 = 


000000 


8IT09 = 


001000 


DCK = 


AMA«S2= 


000000 


8IT1 = 


000002 


DDISP = 


AMAMS3= 


000000 


BIT10 = 


002000 


DE8L = 


AMAMSA= 


000000 


BIT11 - 


004000 


DEVSEL 


AMSGAD- 


000000 


BIT12 = 


010000 


DISPLA 


AMSGLG= 


000000 


BIT13 = 


020000 


DISPRE 


AMSGTY- 


000000 


8IT14 = 


040000 


DLT = 


AMTYP1= 


000000 


8IT15 - 


100000 


DMD = 


AMTYP2= 


000000 


8IT2 = 


000004 


DPE = 


AMTYP3= 


cooooo 


8IT3 - 


000010 


DPEHI = 


A«TYP4= 


000000 


81 T4 - 


000020 


DPELO = 


AOE = 


001000 


BITS = 


000040 


DPR = 


APASS = 


000000 


81 T6 = 


000100 


DRIVES 


APE = 


100000 


BIT7 - 


000200 


DRO = 


APRIOR= 


000000 


BITS 


000400 


DRVCLR= 


APTCSU= 


000040 


81 T9 


001000 


DRVSTS 


APTEW= 


000001 


BLNKSl 


064563 


DRY = 


APrSIZ- 


000200 


BLNKS2 


064562 


DSWR = 


APTSPO= 


000100 


BLNKS3 


064561 


DTASTS 


ARGS = 


000004 


8LNKS4 


064560 


DTE = 


ASNDA 


001516 


BOTADR 


061024 


DTO 


ASNDC 


001514 


BOTFLG 


061026 


DULPRT= 


ASUREG= 


000000 


BPTVEC - 


000014 


DVA 


ATA 


100000 


BSE 


1 00000 


DVC 


AfESTN- 


oooooc 


BUFFER 


101360 


EARLY 



L 
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101360 


E8L 


020000 


EH344 


100501 


102364 


ECH = 


000100 


EH353 


100637 


004000 


ECI 


004000 


EMSl 


071712 


002000 


ECRC = 


001000 


FMS10 


072246 


001330 


EDT1 


071534 


EMS100 


074464 


061027 


EDT110 


071552 


EMS101 


074512 


104410 


EDini 


071554 


EMS102 


074540 


001520 


EDT114 


071556 


EMS103 


074567 


001522 


CDT2 


071544 


EMS 104 


074576 


000040 


EDT223 


071560 


EMSl 05 


074625 


045462 


EDT336 


071570 


EMSl 06 


074654 


007476 


EDT337 


071600 


EMS11 


072310 


035342 


EDT344 


071610 


EMSl 10 


074673 


043460 


EDT353 


071622 


EMSni 


074722 


064025 


EDI 


101154 


EMSl 12 


074733 


064035 


EDllO 


101162 


EMSn3 


075017 


064077 


EDlll 


101166 


EMSl 14 


075047 


064106 


ED114 


101174 


EMSl 1 5 


075073 


064142 


ED223 


101204 


EMSl 16 


075076 


064304 


ED336 


101214 


EMSl 17 


075126 


064305 


ED337 


101226 


EMS 12 


072321 


045344 


ED353 


101240 


EMSl 20 


075150 


063445 


EECC = 


000020 


EMS121 


075171 


000100 


EFT1 


071624 


EMSl 22 


075234 


060150 


EFT110 


071642 


EMSl 23 


075271 


00001 5 


EFT111 


071644 


EMS 124 


075334 


000200 


EFT114 


071646 


EMSl 25 


075366 


001326 


EFT2 


071634 


EMSl 26 


075431 


001777 


EFT223 


071650 


EMSl 27 


075474 


100000 


EFT336 


071660 


EMSl 3 


072362 


040000 


EFT337 


071670 


EMSl 30 


075533 


002000 


EFT344 


071 700 


EMSl 31 


075571 


100000 


EFT353 


071710 


EMSl 32 


075631 


177570 


EF110 


101332 


EMSl 33 


075655 


020000 


EF111 


101333 


EMSl 34 


075700 


043672 


EF114 


101335 


EMSl 35 


075742 


001156 


EF336 


101340 


EMSl 36 


076005 


0001 74 


EF337 


101344 


EMS 137 


076032 


100000 


EHT1 


071410 


EMS14 


072373 


000001 


EHT110 


071432 


EMS140 


076067 


000010 


EHT111 


071436 


EMS141 


076110 


040000 


EHT114 


071442 


EMS142 


076136 


020000 


EHT2 


071422 


EMSl 43 


076153 


000400 


EHT223 


071446 


EMS144 


076201 


064520 


EHT256 


071460 


EMSK5 


•076211 


004000 


EHT336 


071472 


EMSl 46 


076240 


000010 


EHT337 


071504 


EMS147 


076257 


050700 


EHT344 


071516 


EMSl 5 


072404 


000200 


EHT353 


071530 


EMSl 50 


076274 


177570 


EH1 


100107 


EMSl 51 


07631 3 


051502 


EH110 


100126 


EMSl 52 


076337 


010000 


EH111 


100135 


EMSl 53 


076363 


010000 


EH114 


100154 


EMSl 54 


076405 


024024 


EH223 


100203 


EMSl 55 


076421 


004000 


EH256 


100231 


EMSl 56 


076441 


000200 


EH336 


100305 


EMSl 57 


076457 


065212 


EH337 


100344 


EMSl 6 


072426 
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SYMBOL 


TABLE 




















076A74 


EMS40 


073215 


EMT121 


066636 


EMT203 


067522 


EMT266 


070274 


EI1S161 


07651 1 


EMS41 


073244 


EMT122 


066646 


EMT204 


067534 


EMT267 


070306 


EMS162 


076 "^Al 


EMS42 


073272 


EMT''23 


066656 


EMT205 


067552 


EMT27 


065550 




076 "j^l 


EMS43 


073321 


EMT124 


066666 


EMT206 


067562 


EMT270 


070324 




076565 


EMS44 


073350 


EMT125 


066676 


EMT207 


067572 


EMT271 


070340 


EnS165 


076646 


FMS45 


073423 


EMT126 


066706 


EMT21 


065470 


EMT272 


070356 


: EnS166 


076662 


EMS46 


073466 


EMTl 27 


066720 


EMT210 


067604 


EMT273 


070374 


EMS167 


076707 


EMS47 


073515 


EMT13 


065412 


EMT211 


067612 


EMT274 


070412 


E(1S17 


072456 


EMS5 


072104 


EMT130 


066732 


EMT212 


067626 

WW • wt w 


EMT275 


070430 


1 El>1S170 


076734 


EMS50 


073544 


EMTl 31 


066744 


EMT213 


067642 


EMT276 


070442 


' EMS171 


076763 


fcMS51 


073573 


EMTl 32 


066756 


EMT214 


067652 


EMT277 


070456 


EMS'*?? 


077016 


EMS52 


073621 


EMT133 


066770 


EMT215 


067672 


EMT3 


065336 


EMS173 


077036 


EMS53 


073631 


EMTl 34 


067002 


EMT216 


067704 


PMT30 


065560 


EMS174 


077053 


EMS54 


073643 


EMT135 


067014 


EMT217 


067714 


EMT300 


070474 


EMS! 75 


077061 


EMS55 


073665 


EMTl 36 


067026 


EMT22 


065500 


EMT301 


070514 


EMSI 76 


077107 


EMS56 


073714 


EMT137 


067040 


EMT220 


067724 


EMT302 


070536 


EMS1 77 


077136 


EMS57 


073771 


EMT14 


065424 


EMT221 


067734 


EMT303 


070550 


EMS2 


071761 


EMS6 


072134 


EMT140 


067050 


EMT222 


067744 


EMT304 


070562 


EMS20 


072516 


EMS60 


074017 


EMT141 


067060 


EMT223 


067754 


E".T305 


070574 


EMS200 


C77160 


EMS61 


074032 


EMT142 


067070 


EMT224 


067764 


EMT306 


070606 


EMS201 


077175 


EMS62 


074061 


EMT143 


067100 


EMT225 


067766 


EMT307 


070616 


EMS202 


077243 


EMS63 


074077 


EMT144 


067110 


EMT226 


067770 


EMT31 


065570 




077273 


EMS64 


074125 


EMT145 


067120 


EMT227 


067772 


EMT310 


070636 


EnS20A 


077306 


EMS65 


074143 


EMTl 46 


067130 


EM' 23 


065510 


EMT311 


0706SO 


EMS205 


077334 


EMS66 


074211 


EMT147 


067140 


EMT230 


067774 


EMT312 


070662 


EMS206 


077346 


EMS67 


074261 


EMTl 5 


065432 


EMT231 


067776 


EMT313 


070674 


EMS207 


077373 


EMS7 


072201 


EMT150 


067150 


EMT232 


070000 


EMT314 


070714 


EMS21 


072541 


EMS 70 


074306 


EMTl 51 


067160 


EMT233 


070002 


EMT315 


070726 


EMS210 


077420 


EMS71 


074320 


EMT152 


0671 72 


EMT234 


070004 


EMT316 


070740 


EMS211 


077431 


EMS 72 


074333 


EMTl 53 


067204 


EMT235 


070006 


FMT317 


070752 


EMS212 


07744 7 


EMS 73 


074343 


EMTl 54 


067222 


EMT236 


070010 


EMT32 


065600 


EMS213 


0774 /2 


EMS 74 


074360 


EMT155 


067240 


EMT237 


070012 


EMT320 


070762 


EMS2K 


077515 


EMS75 


074377 


EMTl 56 


067252 


EMT24 


065520 


EMT321 


070772 


EMS215 


077533 


EMS 76 


074405 


EMTl 57 


067264 


EMT240 


070014 


EMT322 


071002 


EI1S216 


07755A 


EMS77 


074436 


EMTl 6 


065440 


EMT2''*! 


070016 


EMT323 


071010 


EMS21 7 


077604 


EMTVEC= 


000030 


EMT160 


067276 


EMT242 


070020 


EMT324 


071020 


EMS22 


072564 


EMT1 


065324 


EMTl 61 


067306 


EMT243 


07002^ 


EMT325 


071032 


EMS220 


077637 


EMTIO 


065374 


EMTl 62 


067320 


EMT244 


070024 


EMT326 


071044 


EMS221 


077657 


EMT100 


066372 


EMTl 63 


067332 


EMT245 


070026 


EMT327 


071062 


EMS222 


077727 


EMT101 


066410 


EMTl 64 


067342 


EMT246 


070030 


EMT33 


065610 


EMS223 


077760 


EMT102 


066426 


EMT165 


067350 


EMT247 


070040 


EMT330 


071074 


EriS22A 


100035 


EMT103 


066436 


EMTl 66 


067356 


EMT25 


065530 


EMT331 


071 1 04 


EMS23 


072600 


EMT104 


066450 


EMT167 


067364 


EMT250 


070052 


EMT332 


071116 


EMS2^ 


072626 


EMT105 


066466 


EMTl 7 


065450 


EMT251 


070066 


EMi 333 


071130 


EMS25 


072655 


EMT106 


066476 


EMTl 70 


067372 


EMT252 


070074 


EMT334 


071146 


EMS26 


072672 


EMT107 


066506 


EMTl 71 


067404 


EMT253 


070102 


EMT335 


071164 


EMS27 


072713 


EMT11 


065400 


EMTl 72 


067414 


EMT254 


070120 


EMT336 


071204 


EMS 3 


071 776 


EMT110 


066526 


EMTl 73 


067424 


EMT255 


070130 


EMT337 


071214 


EMS 30 


07272A 


EMT111 


066540 


EMTl 74 


067434 


EMT256 


070140 


EMT34 


065620 


EMS 31 


072734 


EMT112 
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42-1 

42-1 

42-1* 

42- 1* 
40-1* 

43- 1 
5-8* 

48-2 

48-2* 

48-2* 

48-2* 

10-28* 

10-75 

13-951 

13-D97 

13-430* 

13-423* 

24- 49* 

25- 65* 
25-170* 
25-284* 

25- 417* 

26- 94 
29-88* 
31-34 
31-117* 

33- 82* 

34- 19 

34- 94* 

35- 204* 
35-470* 
59-10 
43-1 
38-1* 



41-1* 

47-1 
6-0* 
6-0 
6-0* 

10-23 

45-1 

45-1* 

45-1 

10-48 

43-1 

39-1 





42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


4?-l 


4?-l 


4?-l 


4?-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


42-1* 


















40-1* 


40-1* 























45-1 

11-33 

13-:47 

20-36 

13-431* 

13-438* 

24- 50* 

25- 67 
25-171* 
25-285* 

25- 418* 

26- 120* 
29-99* 
31-44* 
31-126* 

33- 103* 

34- 28* 

34- 103* 

35- 240* 
35-483* 
59-11 
43-1 
38-1* 



41-1* 
47-1 

6-0 

10-23 
45-1 

45-1* 

10-80 

43-1 

39-1* 



45-1 
11-42* 
13-: 47 
21 -So 
13-441 
13-445 

24- 53 
23-85* 

25- 183* 
25-314* 

25- 432* 

26- 121* 
29-100* 
31-53* 
31-127* 

33- 120* 

34- 29* 

35- 31* 
35-256* 
35-496* 

43-1 
38-1* 



41-1* 



6-0 

10-23 
45-1 



10-140 
44-20 



45-1 

12- 57 

13- <30 

23- 12 
13-742* 
13-736* 

24- 71* 

25- 86* 
25-184* 
25-315* 

25- 433* 

26- 122 
29-106 
31-61 
31-129 

33- 134* 

34- 31 

35- 47* 
35-270* 
35-517* 

45-1 



41-1* 



6-0 

10-23 
45-1* 



11-20 
44-61 



13-1 
13-=13 

28- 23 
13-743* 
13-750* 

24- 77* 

25- 87 
25-200* 
25-329* 

25- 455* 

26- 137* 

29- 117 

31- 71* 

32- 27* 

33- 159* 

34- 41* 

35- 67* 
35-288* 
35-534* 

45-1 



6-0 
10-23 



11-28 
44-104 



13-32 
1 3-=95 

30- 15 
13-753 
13-758 

24- 93* 

25- 107* 
25-201* 
25-330* 

25- 456* 

26- 138 
29-130* 

31- 72* 

32- 41* 

33- 174* 

34- 50* 

35- 87* 
35-301* 
35-550* 

45-1 



6-0 
10-23 



11-62 
44-114 



13-134 

13->41 

44-25 

18-84* 

13-803* 

24- 110* 

25- 108* 
25-226* 
25-344* 

25- 470* 

26- 150* 
29-143* 

31- 81* 

32- 57* 

33- 189* 

34- 57* 

35- 116* 

35- 313* 

36- 46* 



6-0 
10-23 



11-100 
44-126 



13-232 

13->85 

59-2 

59-8 

13-834* 

24- 126* 

25- 109 
25-227* 
25-345* 

25- 471* 

26- 151 
29-168* 

31- 82* 

32- 71* 

33- 205* 

34- 60 

35- 135* 

35- 356* 

36- 62* 



6-0 



12-25 
44-134 



13-325 
13-740 



13-C21* 

24- 154* 

25- 140* 
25-241* 
25-361* 
25-492* 
27-39* 
29-182* 

31- 84 

32- 85* 

33- 222* 

34- 69* 

35- 149* 

35- 369* 

36- 78* 



6-0 



12-68 
44-154 



13-450 
13-790 



13-D22* 

25-40* 

25-141* 

25-242* 

25-362* 

25-493* 

27-53* 

29-183* 

31- 94* 

32- 99* 

33- 240* 

34- 70* 

35- 163* 

35- 382* 

36- 98* 



6-0* 



14-20 
45-1 



13-546 
13-a39 



13-D35* 
25-41* 
25-142 
25-256* 

25- 387* 

26- 10* 
29-37* 
29-196* 

31- 103* 

32- 113* 

33- 254* 
54-72 
35-189* 

35- 395* 

36- 112* 



6-0* 



41-1 
45-1 



i:-639 
13-A46 



13-D48* 
25-55* 
25-156* 
25-257* 

25- 588* 

26- 54* 
29-66* 
29-212* 
51-104* 
53-35* 
53-270* 

34- 81* 

35- 190* 
35-417* 
59-1 



6-0* 



41-1 
45-1 



13-765 
15-844 



15-E81 
25-54* 
25-157 
25-271 

25- 402 

26- 92* 
29-67* 
51-51* 
51-106 

33- 49* 

34- 16* 

34- 82* 

35- 191 
35-442 
59-6 



6-0» 



41-1 
45-1 
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10-67* 


10-78 
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10-121* 


11-63* 


11-70* 


11-98 


12-4 


12-38 
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14-20* 






















39-1* 






















5-5 


10-28 


14-20* 


45-1 
















4ENDCT 


10-25 


14-20* 
















































10-28 


41-1 


43-1 


48-2 


48-2 














6-0# 


10-25 


10-71 


41-1 


41-1 


48-2 












tF 0^- 


1 3-?9 


14-20* 


14-29 


















tF OPC T 


10-23* 


14-20 


14-20* 


















SEOSP 


K-9# 
























6-0' 


42-1 


42-1 


42-1 


42-^ 


42-1 


42-1* 


45-1 


43-1 


43-1* 






6-0* 


10-25* 


42-1 


42-1 


42-1 


42-1* 












(ERROR 


10-23 


43-1* 








45-1* 


44-54 










SERRPC 


6-0* 


43-1 


43-1 


43-'' 


45-1* 










SERRTB 


8-0* 


44-72 




















$ERTTL 


6-0* 


14-20 


14-20 


14-20* 


43-1 


43-1 


45-1* 










tESCAP 


6-0* 


10-23* 


42-1* 


45-1 


43-1 


43-1 


43-1 










IE TA6L 


6-0* 






















SETEND 


5-8 


6-0* 




















tFATAL 


6-0* 


48-2* 




















IF FLCj 


48-2 


48-2* 


48-2* 


48-2* 


48-2* 














IF ILL C 


6-0* 


41-1 


41-1 


41-1 
















IF II I 5 


6-0* 


41-1 


41-1 


















tGDADR 


6-0* 


13-429* 


13-441 


15-741* 


13-755 


18-83* 


59-8 










tGDDAT 


6-0* 


13-421* 


15-422* 


15-459* 


15-440* 


13-445 


13-754* 


15-755* 


13-751* 


13-752* 


15-758 


13-636* 


13-C22* 


15-C25* 


15-D25* 


15-D24* 


1 3-D 56* 


13-D37* 


13-rD49* 


13-D50* 


13-E82* 


15-E85* 




24-53 


24-69* 


24-70* 


24-76* 


24-78* 


24-90* 


24-91* 


24-92* 


24-108* 


24-109* 


24-124* 




25-42* 


25-55* 


25-66* 


25-67 


25-79* 


25-84* 


25-87 


25-98* 


25-106* 


25-109 


25-155* 




25-154* 


25-155* 


25-158 


25-165* 


26-16* 


26-23* 


26-24* 


26-25* 


26-26* 


26-50* 


26-52 




26-104* 


26-1 1 7* 


26-122 


26-134* 


26-135* 


26-136* 


26-158 


26-148* 


26-149* 


26-151 


27-40* 




29-63* 


29-68 


29-87* 


29-101* 


29-102* 


29-129* 


29-142* 


29-166* 


29-167* 


29-1 81 * 


29-194* 




31-33* 


31-34 


31-43* 


51-59* 


51-61 


31-70* 


51-85* 


31-84 


51-95* 


51-105* 


51- 106 

52- 100* 




32-25* 


32-26* 


32-59* 


52-40* 


52-58* 


52-59* 


52-72* 


52-75* 


52-86* 


52-87* 




55-33* 


33-54* 


55-47* 


55-48* 


55-63* 


33-64* 


55-80* 


55-81 * 


33-101* 


33-102* 


55-118* 




33-157* 


33-158* 


55-175* 


53-175* 


55-187* 


35-188* 


55-205* 


55-204* 


33-220* 


, 33-221 * 


55-258* 




33-268* 


35-269* 


54-18* 


54-19 


54-50* 


54-31 


54-40* 


54-71* 


34-72 


34-85* 


54-84 




35-45* 


35-46* 


55-65* 


55-66* 


55-85* 


55-86* 


55-114* 


55-115* 


55-155* 


55-154* 


55-147* 




35-172* 


35-187* 


55-191 


55-205* 


55-206* 


55-238* 


35-239* 


55-254* 


35-255* 


35-268* 


35-269* 




35-300* 


35-314* 


55-515* 


55-525* 


55-554* 


35-355* 


35-567* 


35-368* 


35-380* 


55-381* 


35-593* 




35-4''.0* 


35-441* 


55-455* 


55-456* 


55-468* 


55-469* 


35-481* 


35-482* 


35-494* 


35-495* 


35-515* 




35-548* 


35-549* 


56-44* 


56-45* 


56-60* 


56-76* 


56-77* 


36-96* 


36-97* 


36-110* 


36-111* 




59-10 


59-11 




















IGE T4? 


12-34 


12-43 


14-20* 


















$GT42P 


14-20 


14-20* 




















IGTSWR 


45-1* 


47-1 


47-1 


















$Hf) 


4-480 


4-480 


4-480 


















tHiBTS 


5-8* 






















$HI0CT 


46-i* 


46-1* 






















6-0* 


42-1 


42-1 


42-^ 


42-1* 


42-1* 












$ a 1 jp 


48-' 


48-1 


48-1* 



















13-28* 14-28* 



13-804* 
18-81* 

24- 125* 

25- 138* 

26- 86* 

27- 54* 
29-195* 

31- 115* 

32- 101* 
53-119* 

33- 259* 

34- 92* 
55-148* 
55-286* 
55-594* 
55-516* 
59-1 



15-605* 
24-51* 

24- 1 S2* 

25- 159* 

26- 91* 
29-36* 
29-210* 

31- 128* 

32- 114* 
55-152* 
55-252* 
55-29* 
35-161* 
55-287* 
35-415* 
35-552* 
59-6 



13-e55*- 
24-52* 

24- 1 53*- 

25- 142 

26- 94 
29-A7* 
29-211- 

51- 129 

52- 115* 
55-155* 
55-253« 
55-50* 
35-1 62* 
35-299« 
55-4 16« 
55-533* 
59-8 
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SMBAOR 

SMFLG 

MNEW 

SMSGAD 

SMSGLG 

SMSGTY 

SKSWR 

SMTYPl 

IMTVP2 
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SMXCNT 
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fOWODE 

SOVER 

SPASS 
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SPWRMG 
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tOUES 

tR<?A 

tAOC HR 

SRDDEC 

tRDLiN 

SWDOCT 

SRESRE 
SR«0? 

%m)i 

tRMOS 
(RTNAD 



6-0# 
6-0* 
6-0* 

<.8-i:* 

6-0* 
6-0* 
6-0* 
6-0* 
6-0* 
6-0* 

5- 8 

1 3-856 
15-C34 

6- 0* 
6-0* 
6-0* 
6-0* 

5- 8* 
A8-2 
45-1 

6- 0* 
6-0* 
6-0* 

A5-1 

6-0* 

6-0* 

6-0* 

6-0* 
A2-1 

6-0* 
13-1 
1 3-525* 
1 3-856* 
13-=13 
13-740* 
13-C3A* 
40-1* 
40-1 
42-1 

6-0* 

5- 8* 
48-1 
10-23 
48-1* 
48-1 

6- 0* 
4 7-1 
45-1* 
47-1 

45- 1* 

46- 1* 
45-1 
37-1* 
10-92 
1C-97 
10-102 
U-20* 



45-^ 


45-1 


45-1 


45-1 


45-1* 






43-1 


43-1 


43-1 


43-1 


43-1 


43-1* 


43-1* 


41-1 


41-1 


43-1 


43-1 


45-1 


45-1 


45-1 


48-2* 














10-23* 


42-1 


42-1 


42-1 


42-1* 


42-1* 


42-1* 


10-23* 


42-1 


42-1 


42-1 


42-1* 


43-1 





44-49 



5-8 6-0* 
13-951 13-:47 
13-D97 41-1 



48-2* 

45-1* 

48-2 

48-2* 

48-2 

45-1* 



42-1 

41- 1 
13-1* 
13-450 

1 3-856* 
13- 13* 
13-790 
13-C34* 
40-1* 

40- 1* 

42- 1 
10-23* 

48-1* 
48-1 

48-1* 

41- 1 

47-1 

47-1 

47-1 

45-1* 

47-1 

44-32 

44-28 

44-36 



48-2* 
48-2* 
48-2 



42-1 

41- 1 
13-1* 
13-450* 
13-051 

1 3-=1 3* 
13-790* 

1 3- D97 
40-1* 
40-1* 

42- 1 

14- 20 



48-1* 

41-1 

47-1 

47-1 
47-1 



49-24* 
49-25* 
49-26* 



1C-23 
13-; 47 
42-1 



48-2* 



48-2' 



42-1* 

41- 1 
13-32 
13-450* 
13-951* 
13--95 

1 3-790* 

13- D97* 

40-1* 

42- 1 

14- 20 



43-1 



10-28 

13-<30 

43-1 



4^-2* 



13-32* 
13-546 
13-951* 
13—95* 
1 3-339 

1 3- D97* 

40-1* 
42-1* 

14- 20 



43-1 



13-1 
13-=13 



13-32 
13-=95 



13-134 
13->41 



13-232 
13->85 



13-325 
13-740 



13-450 
13-790 



-546 
.-a39 



13-639 
13-A46 



1 3-765 
13-944 



1 3-32* 
13-546* 
13-:47 
1 3-=95* 
1 3-339* 



40-1* 



13-134 

13-546* 

l3-:47* 

13->41 

13-339* 



13-154* 

13-639 

13-:47* 

13-^41* 

13-A46 



14-20* 14-20* 42-1 



45-1 



45-1 



45-1 



13-134* 
1 3-639* 
13-; 4 7 
13->41* 
13-A46* 



42-1 



45-1 



1 3-232 
13-639* 
13-; 4 7* 
1 3->85 
13-A46* 



42-1 



13-232* 
13-763 
13-; 4 7* 
1 3->85* 
13-844 



13-232* 
13-765* 
1 3-<30 
1 5->85* 
1 3-844* 



13-525 

13-763* 

13-<50* 

15-740 

13-644* 



1 3-325# 

13-856 

15-<30# 
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STKQEN 
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STPS 

fTRAP 
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48-1 

37-1# 

10-23 

4-775 
10-23 
14-20 

4-775 

4- 775# 
42-1 

5- 5 
42-1 

4-469# 

10- 23 
13-951 
13-D97 

42- 1 

43- 1 
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4-481 

42-1 

6-0# 
13-<30* 

6-0# 

6-0* 
45-1 

11- 4 
45-1 
45-1 
45-1 
45-1 

6-0# 
45-1 

6-0* 
13-=26» 
59-3 

6-0* 
11-76 
13-652* 
13-E85* 
59-10 

6-0* 

6-0* 

6-0* 

4-470* 
13-232 
1 3-546 
13-951 
13-<30 
1 3->85 
13-339 
1 3-D97 

6-0* 

6-0* 

6-0* 
10-23 
47-1 
47-1 



48-''* 

47-1 

42-1* 

4-775 
10-23 
14-20 

4-775 

4- 775* 
42-1* 

5- 5* 
42-1* 

4-480 
10-23 

13- :47 

14- 20 

42- 1 

43- 1 
10-23 

4-481 
42-1 
13-1* 
13— 13* 

10- 23* 
41-1 
45-1 

12- 48 
45-1 
45-1 
45-1 
45-1 
41-1 
45-1* 

13- 45* 
13-S51* 
59-6 

11- 13* 
11-78 
13-776* 
17-56 



48-1 • 
47-1 

4-775 

10-23 

42-1 
4-775 
4-775* 



4-481 

10- 23 

13- ; 47 

14- 20 

42- 1 

43- 1 

4-481 
42-1 
13-32* 
13-=95* 

12- 46* 
41-1 
45-1* 
45-1 
45-1* 
45-1* 
45-1* 
45-1 
41-1 

13- 146* 
13-A58* 
59-10 

11- 14 
11-83* 
13-872* 
20-42* 



48-1 



4-775 

10-23 

43-1 
4-775 
4-775* 



4-481 

10- 23 

13- ^"'0 

14- 20 

42- 1 

43- 1 

4-481 
42-1 
^3-134* 

13- >41* 

14- 20* 
45-1 
45-1* 
45-1 

45-1* 
45-1* 
45-1* 
45-1 

13-244* 
13-857* 

11- 16 
11-84 
13-967* 
20-43 



48-1' 



4-775 
10-23 
43-1 

4-775 



4-481 
13-1 

13- =13 

14- 20 

42- 1 

43- 1 

4-481 
42-1 
13-232* 
13->85* 
42-1 
45-' 
45-1* 
45-1* 

45-1* 
45-1* 

45-1 

13-337* 
13-C49* 

11-36* 
11-87 
13-: 60* 
21-36* 



4-775 
10-23 
43-1 

4-775 



4-481 
13-32 

13- =95 

14- 20 

42- 1 

43- 1 

4-481 

13-325* 

13-740* 

42-1 

45-1 

45-1* 



45-1* 
45-1* 

45-1 

l3-<.62* 
13-D51* 

11-38 
11-88 
13- -61* 
21-^7 



4-775* 
10-23 
43-1 

4-775* 



4-481 
13-134 
13->41 
42-1 

42- 1 

43- 1 

4-481 

13-450* 
13-790* 
42-1 
45-1 



45-1* 



45-1 

13-558* 
13-E12* 

11-42 
11-90 
13-<44* 
27-24* 



4-775* 
10-23 
45-1 

4-775* 



4-481 
13-232 
13->85 

42- 1 
^2-1 

43- 1 

4-481 

13-546* 
13-939* 
42-1* 
45-1 



45-1 

13-651* 
13-E84* 

11-50* 
11-95 
13-=27* 
27-25* 



4-775* 
10-23 
45-1 

4-775* 



4-481 
13-325 
13-740 
42-1 

42- 1 

43- 1 



13-639* 
13-A46* 
42-1* 
45-1 



45-1* 

13-775* 
17-55 

11-52 
1 3-46* 
13-352* 
27-37 



4-775* 
10-23 
4S-1 

4-775* 



4-481 
13-450 
13-790 
42-1 
42-1 
48-1 



4-481 42-1 



13-763* 
13-e44* 

45-1 



45-1* 

13-871* 
18-85* 

11-56 
13-147* 
1 3-A59* 
27-39 



4-775* 
10-23 
45-1 

4-775* 



6-0 
13-546 
13-839 

42-1 
42-1 



42-1 

13-856* 
13-C34* 



45-1* 

1 3-966* 
20-41* 

11-66* 
13-245* 
13-658* 
28-28* 



4-775* 
10-28 
45-1 

4-775* 



6-0 
13-639 
13-A46 

42-1 
42-1 



42-1 

13-951* 
13-D97* 



45-1* 

13-: 59* 
21-35* 

11-67 
13-338* 
13-C50* 
28-37 



4-775* 
10-28 



10-23 
10-28 



4-775* 4-775* 



6-0 
13-763 
13-844 

42- 1 

43- 1 



42-1 

13-:47« 
42-1* 



10-23 
1 3-856 
13-C54 

42- 1 

43- 1 



42-1 

13-; 4 7* 
44-45 



45-1* 

13-; 60* 
28-29* 

11-73 
13-463* 
13-D52* 
59-3 



45-1* 

1 3-<43* 
28-31 

11-75 
1 3-559' 
13-E13* 
59-5 



27-27* 


27-28* 


27-50 


27-53 


5r9-5 


















4-480 


13-1 


13-1 


13-1 


13-1* 


13-32 


13-32 


13-32 


13-32* 


13-134 


13-134 


13-134 


13-154* 


13-232 


1 3-232 


1 3-232* 


13-325 


13-325 


13-325 


13-325* 


13-450 


13-450 


13-450 


13-450* 


1 3-546 


1 3-546 


13-546* 


1 3-639 


13-639 


13-639 


13-639* 


13-763 


13-763 


13-763 


1 3-763* 


1 3-856 


13-856 


1 3-856 


1 3-856* 


13-951 


13-951 


13-951* 


13-:47 


13-:47 


13-:47 


13-:47* 


13-; 47 


13-; 4 7 


13-; 4 7 


13-; 4 7* 


13-<30 


13-<50 


1 3-<30* 


13-=13 


13-=13 


13-=13 


13-= 13* 


13-=95 


13-=95 


13-=95 


1 3-=95* 


13->41 


13->41 


13->41 


13->41* 


13->85 


1 3->85 


1 3->85* 


13-740 


13-740 


13-740 


13-740* 


13-790 


1 3-790 


13-790 


13-790* 


13-«39 


13-*39 


13-a39* 


1 3-A46 


1 3-A46 


1 3-A46 


13-A46* 


1 3-B44 


1 3-844 


13-844 


1 3-644* 


13-C34 


13-C34 


13-C34 


13-C54* 


13-D97 


1 3-D97 


13-D97* 


42-1 


42-1 


















41-1 


41-1 


41-1* 






















41-1 


41-1 


41-1 






















41-1 


41-1 


41-1 






















47-1* 


























47-1* 






















47-1 


47-1 


47-1 


47-1 


47-1 


47-1 


47-1 


47-1 


47-1 


47-1 


47-1 


47-1 


47-1 



t'RPAO 
$TST« 

STTYIN 

4TYPDS 

STVPEC 
tTVPEX 
ITVPOC 
STVPON 
$ TYPOS 
SUNIT 
SUMITM 
SUSUR 
SVECTI 
tVECT2 
$XOff 
%XON 
SXTSTR 
.SASTA 
.SX 
A16 
A17 

ABASE 
ACDU1 
ACDU2 
ACKSTS 
ACPUOP 
ADDWO 
ADDU1 
ADDW10 
AD0W1 1 
A00U12 
ADDW13 
ADDWU 
ADDWl 5 
ADDW2 
AD0U3 
AD0W4 
ADDU5 
ADDW6 
ADDW7 
A0DW8 
ADDW9 
ADFVCT 
AOEVn 
ADR 





47-1 


/ 7 1 

47-1 




1 7—1 


/ 7—1 




7 7 1 




/ 7—1 
4 7-1 


/ 7 1 

4 7-1 




47-1 


47-1 


47-1 


47-1 


47-1 


47-1 


47-1 


47-1 




47-1 


47-1 


47-1 


47-1 


47-1 




47-1 


47-1 


47-1 


47-1 


47-1 


47-1 


47-1 


47-1 


47-1# 




47-l# 


47-1# 


(,7-10 


47-1# 


47-l4r 


47-1# 


47- 1# 


47-1# 


47-1# 


47-1# 


47-1# 










47-1# 




























14-20* 


42-1 


42-1 


42-1 


42-1 


42-1 


42-1* 


42-1* 


43-1 


45-1 


43-1 


45-4 


45-1 


45-1 


45-1 


45-1 


45-1# 


















47-1 


47-1 
























47-1 


47-1 
























47-1 


47-1 


48-2 






















41-1 


41-1 


41-1# 


45-1 




















41-1 


4l-1# 
























47-1 


47-1 
























40-1 # 


47-1 
























47-1 


























12-50* 


12-70 


24-51 
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4 7-1 
4 7-1 
47-1 

47- 1# 
4 7-1 

5- 8# 

6- 0# 
45-1 

38- 1# 

39- 1# 
41-1# 
41-1 
41-1 

40- 1# 
40-1 

40- 1 # 
6-0# 

5- 8* 

6- 0* 
6-0* 
6-0* 

41- 1 

41- 1 

42- 1* 

48- 2 

5- 8 

4-721* 
4 -720* 
4-772* 

6- 0 
6-0 

15-151 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
13-1 
'3-325* 
13-856* 
13-=13 
13-740* 
^ 3-C 34* 



H 6 

4-APR-81 11:43:33 PAGE S-5 



StO 0280 



11-46 

41-1 
41-1 

48-2 
5-8* 



j-0 
6-0 
6-0 
16-137 
6-0 
6-0 
6-0 



11-56* 
45-1 

6-0 
32-15* 



6-0 
6-0 
6-0 
6-0 
6-0 
6-0 



6-0 

6-0 
13-1* 
13-450 
13-856* 
13-= 13* 
13-790 
1 3-C 34* 



13-1* 

13-450* 

13-951 

13-= 13* 

13-790* 

13-D97 



13-32 

13^450* 

13-951* 

13- 95 
13-790* 
] 5-D97* 



13-32* 
13-546 
13-951* 
13- 95* 
1 3-339 
1 3-D97* 



13-32* 
1 3-546* 
13-: 47 
13-=95* 
1 3-339* 



13-134 
13-546* 
13-: 47* 
13->41 
13-339* 



13-134* 
13-639 
13-:47* 
13->41* 
1 3-A46 



13-134* 
13-639* 
13-; 4 7 
13->41* 
1 3-A46* 



13-232 
1 3-639* 
13-; 47* 
13->85 
1 3-A46* 



13-232* 
13-763 
13-; 47* 
13->85* 
1 3-844 



13-232* 
13-763* 
13-<30 
1 3->85* 
1 3-844* 



13-325 
13-763* 
13-<30* 
■> 3-740 
13-944* 



13-325* 
13-856 
13-<30« 
13-?40« 

1 3-C 54 
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AfNV 
AENV»1 

AFATAL 
AtL 

ANADR1 
AHADR? 
AMADRB 
AMADRA 
AHAMSI 
AMAMS2 
AMAMS3 
AMAMS- 
AMSGAD 
sMSGLG 
AMSGTY 
AMTYP1 
AMTYP2 
AMTYP3 
AMTYP4 
A0€ 

APASS 
APE 

APR ICR 
APTCSU 
'VP^'ENV 
APTSIZ 
APTSPO 
ARGS 



ASNOA 
ASNOC 
ASWREG 
A'A 



6-0 

6-0 

6-0 
n-69 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

4-572* 
50-86 

6-0 

A-750# 

6- 0 
A1-1 
A1-1 
10-23 
A1-1 
13-43* 
13-120* 
13-211* 
1 3-296# 
1 3-379* 
1 5-A89* 
1 3-564 
13-634* 
1 3-726* 
1 3-837* 
1 3-924* 
13-:14* 
13-: 92* 
13-; 80* 
1 3-<63# 
1 3-=46* 
1 3->28* 
13-?16# 
13-a21* 
13-A19* 
13-812 

1 3-C02* 
13-D05* 
13-f51* 

7- 0# 
7-0* 
6-0 

4-552* 

50-60 



6-0 
6-0 
6-0 
49-5* 

6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
4-583 

6-0 



48-2* 
43-1 
48-2* 
48-2 
13-51 
13-122* 
13-217* 
13-298* 
13-385* 
13-493* 
13-564* 
13-649* 
13-733* 
13-843* 
13-926* 
13-: 18* 
13-; 04* 
13-; 87* 
13-<70* 
13-=54* 
13->32* 
13-720* 
13-a25* 
13-A25* 
13-812* 
I3-C08* 
13-D09* 
13-E53* 
16-299* 
16-298* 
6-0 
25-138 
50-63 



25-311 25-326 25-341 25-356 25-360 26-'' 17 26-121 50-77 5C-78 



48-2 

48-2* 

13-51* 

13-126* 

13-221* 

13-300* 

13-389* 

13-504* 

13-576* 

13-657 

13-749* 

13-847* 

13-9324f 

13-: 20* 

13-; 10* 

13-; 91* 

13-<74* 

13-=58* 

1 3->34* 

13-722* 

13-927* 

1 3-A29* 

13-819* 

13-C12* 

13-D20* 

13-E55* 

16-331 

16-330 

25-139 
50-64 



48-2* 



13-63* 

13-144* 

13-223* 

13-306* 

13-391* 

13-510* 

13-585* 

13-657* 

13-773* 

13-849* 

1 3-938* 

13-: 22* 

13-; 14* 

13-; 93* 

13-<76* 

13--60* 

1 3->36* 

13-724* 

1 3-329* 

13-A31* 

13-826* 

13-C19* 

13-D33* 

13-E62Xf 

16-358* 

16-366* 

25-141 
50-67 



13-72* 

13-152 

13-225* 

13-312>» 

13-393* 

13-514* 

13-589* 

13-669* 

13-781 

13-851* 

13-942* 

13-:28# 

13-; 16* 

13-; 95* 

13-<78* 

13-=62* 

13->54 

13-752 

13-949* 

13-A33* 

13-830* 

13-C26# 

13-D46* 

13-E68* 

16-359 

16-367 

29-156 
50-68 



13-76* 

1 3-1 52* 

13-229* 

13-316# 

13-402/(r 

13-516# 

13-600* 

13-781* 

13-867* 

13-944* 

13-: 34* 

13-; 18* 

13-<02* 

13-<85* 

13-=68* 

13->54* 

13-752* 

13-357 

13-A37* 

13-839* 

13-C47* 

13-D58* 

13-E 72* 

16-361* 

16-369* 

29-157 
50-69 



13-87* 

13-164* 

13-242* 

13-318* 

13-408* 

13-518* 

13-606* 

13-682* 

13-793* 

1 3-876 

13-946* 

13-:38* 

13-; 24* 

13-<08* 

13-<91* 

13-= 73* 

13->65* 

13-765* 

13-a57* 

13-A56* 

13-B55* 

13-C55 

1 3-D 79 

13-E 79* 

16-362* 

16-396 

29-192 
50-70 



13-93* 

13-173* 

13-250 

13-320* 

13-412* 

13-525* 

13-610* 

13-693* 

13-802* 

13-876* 

13-962* 

13-: 40* 

13-; 30* 

13-<12* 

13-<95* 

13-= 77* 

13->72* 

13-772* 

13-369* 

13-A64 

13-863 

13-C55* 

1 3-D 79* 

13-E91* 

16-363 



29-195 
50-71 



13-97* 

13-177* 

13-250* 

13-335* 

13-419* 

13-531* 

13-612* 

13-699* 

13-806* 

13-888* 

13-972 

13-: 42* 

13-; 34* 

13-<14* 

13-<97* 

13-= 79* 

13->76* 

13-776* 

13-380* 

1 3-A64* 

13-B63* 

13-C 77* 

13-D90* 

13-F12 

16-365* 



33-145 
50-72 



1 3-99* 

13-189* 

1 3-262* 

13-343 

13-437* 

13-535* 

13-614* 

13-703* 

13-817* 

13-897* 

13-972* 

13-: 57* 

13-; 36* 

13-<16* 

13-<99* 

13--81* 

13->78* 

13-778* 

13-387* 

13-A72* 

13-877* 

13-C84* 
13-E 10* 
13-F12* 
16-397 



33-146 
50-73 



13-101* 

13-1^5* 

13-271* 

13-343* 

13-460* 

1 3-537* 

13-620* 

13-705* 

13-823* 

13-901* 

13-984* 

13-:65 

13-; 38* 

13-<20* 

13—03* 

13—85* 

13->80* 

13-780* 

13-391* 

13-A88* 

13-684* 

13-C88* 

13-EiS 

13-F23* 



33-185 
50-74 



50-81 



13-108* 

13-199* 

13-275* 

13-355* 

13-468 

13-539* 

13-626* 

13-707* 

13-827* 

13-912* 

13-993* 

13-: 65* 

13-; 58* 

13-<41* 

13—24* 

13->08 

13->96 

13-301 

13-393* 

13-A95* 

13-688* 

13-C90* 

13-E18* 



33-188 
50-75 



50-82 50-85 



13-114* 

13-201* 

13-286* 

13-364* 

13-468* 

13-543* 

13-630* 

13-716* 

13-829* 

13-918* 

13-997* 

13-:79* 

13-; 66 

13-<49 

13-=33 

13->08* 

13->96* 

13-301* 

13-395* 

13-A99* 

13-690* 

13-C92* 

13-E 40* 



50-58 
50-76 



13-118* 
13-203* 
13-292* 
13-368* 
13-A80* 
13-556* 
15-632* 
13-722* 
13-831* 
13-922* 
13-:08* 
13-:88* 
13-; 66* 
13-<49* 
13-=33* 
13->21* 
13-709* 
13-314* 
13-A06* 
13-608* 
13-692* 
13-C99* 
1 3-E47* 



50-59 
50-79 
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ATESTN 
ATNMSK 

ATNTBL 

AUNIT 

AUSWR 

AvEcn 

AVECT2 
BACK 



50-80 

6-0 

A-589# 
10-78 

6-0 

6-0 

A-773* 

6-0 
15-^3 
13-93# 
13-118 
13-152* 
13-199* 
1 3-223 
13-271 
1 3-298# 
1 3-320 
1 3-379 
1 3-^02* 
' 3-A68# 
13-5U* 
13-537 
1 3-585 
13-612* 
1 3-63A 
1 3-693 
13-716* 
13-781* 
1 3-827* 
1 3-849 
13-901 
1 3-926* 
1 3-946* 
13-:K 
13-:3A* 
13-:79 
13-; 16 
1 3-; 36* 
13-; 91* 
13-<12* 
1 3-<63* 
1 3-<91 
l3-=24* 
1 3-=62* 
13-=81* 
13->34* 
1 3->78* 
13-722 
13-776* 
1 3-a25* 
13-S80 
13-A06* 
13-A37 
1 3-A99* 
13-839* 
13-890* 
^3-Cl9* 



50-83 

6-0 
34-55 
10-117 

6-0 

6-0 

6-0 

6-0 
13-43* 
13-97 
13-118* 
13-164 
13-201 
13-223* 
13-271* 
13-300 
1 3-320* 
1 3-379* 
1 3-408 
13-480 
13-516 
13-537* 
13-585* 
13-614 
1 3-634* 
1 3-693* 
13-722 
13-793 
13-829 
13-849* 
13-901* 
13-926* 
13-962 
13-:14* 
13-: 38 
13-: 79* 
13-; 16* 
13-; 36* 
13-; 91* 
13-<14 
13-<70 
13-<91* 
13- 33 
13-=62* 
13-=85 
13->36 
13->78* 
13-722* 
13-778 
13-325* 
13-380* 
13-A19 
13-A37* 
13-608 
1 3-839* 
13-890* 
13-C26 



50-84 



10-121 



6-0 

13-51 

1 3-97* 

13-118* 

13-164* 

13-201* 

1 3-223* 

13-275 

13-300* 

1 3-320* 

13-385 

1 3-408* 

13-480* 

13-516* 

13-537* 

13-589 

13-614* 

13-634* 

1 3-699 

13-722* 

13-793* 

13-829* 

13-849* 

13-901* 

13-932 

13-962* 

13-:18 

13-:38* 

13-: 88 

13-; 16* 

13-; 38 

13-; 93 

13-<14* 

13-<70* 

13-<95 

13-=33* 

13—68 

13—85* 

13->36* 

13->80 

13-722* 

M-17%M 

13-327 

1 3-387 

13-A19* 

13-A56 

13-008* 

13-855 

13-892 

13-C26* 



50-87 
11-97 



13-51* 

1 3-97* 

13-120 

13-173 

13-201* 

13-225 

13-275* 

13-300* 

13-335 

13-385* 

13-412 

13-489 

13-516* 

13-539 

13-589* 

13-614* 

13-649 

13-699* 

13-726 

13-802 

13-829* 

13-851 

13-912 

13-932* 

13-972 

13-:18* 

13-: 38* 

13-: 88* 

13-; 18 

13-; 38* 

13-; 93* 

13-<14* 

13-<74 

13-<95* 

13—46 

13-=68* 

1 3->08 

13->36* 

13->80* 

13-724 

13-778* 

13-327* 

13-387* 

13-A25 

13-A56* 

1 3-808* 

13-855* 

1 3-892* 

13-C26* 



50-88 
12-17 



13-63 

13-99 

13-120* 

13-173* 

13-203 

13-225* 

13-275* 

13-306 

13-335* 

1 3-389 

13-4 '2* 

13-489* 

13-518 

13-539* 

13-589* 

13-620 

13-649* 

13-703 

13-726* 

13-802* 

13-831 

13-851* 

13-912* 

13-938 

13-972* 

13-:18* 

13-: 40 

13-: 92 

13-; 18* 

13-; 38* 

13-; 93* 

13-<16 

13-<74* 

13-<95* 

13-=46* 

13-=73 

13->08* 

13->54 

13->80* 

13-724* 

13-780 

13-327* 

13-391 

1 3-A25* 

1 3-A64 

13-812 

13-863 

1 3-892* 

13-C47 



51-3* 



1 3-63* 

1 3-99* 

13-120* 

13-177 

1 3-203* 

13-225* 

13-286 

13-306* 

13-343 

13-389* 

13-412* 

13-493 

13-518* 

13-539* 

13-600 

13-620* 

13-657 

13-703* 

13-726* 

13-806 

13-831* 

13-851* 

13-918 

13-938* 

13-984 

13-: 20 

13-: 40* 

13-:92>y 

13-; 18* 

13-; 58 

13-; 95 

13-<16* 

13-<74* 

13-<97 

13-=54 

13-= 73* 

13->21 

13->54* 

13->96 

13-724* 

13-780* 

13-329 

13-391* 

13-A29 

13-A64* 

13-812* 

1 3-863* 

13-C02 

13-C47* 



13-72 

1 3-99* 

13-122 

13-177* 

1 3-203* 

13-229 

1 3-286* 

13-312 

13-343* 

1 3-389* 

13-419 

13-493* 

13-518* 

13-543 

13-600* 

13-626 

13-657* 

13-703* 

13-733 

13-806* 

13-831* 

1 3-867 

13-918* 

13-942 

1 3-984* 

13-: 20* 

13-: 40* 

13-: 92* 

13-; 24 

13-; 58* 

13-; 95* 

13-<16* 

13-<76 

13-<97* 

13-=54* 

13-=77 

13->21* 

13->65 

1 3->96* 

13-752 

13-780* 

1 3-329* 

13-391* 

1 3-A29* 

1 3-A72 

13-819 

13-877 

13-C02* 

13-C55 



13-72* 

13-101 

13-122* 

13-177* 

13-211 

1 3-229* 

13-292 

13-312* 

13-355 

13-391 

13-419* 

13-493* 

13-525 

13-543* 

13-606 

13-626* 

13-669 

13-705 

13-733* 

13-806* 

13-837 

13-867* 

13-922 

13-942* 

13-993 

13-: 20* 

13 :42 

13-; 04 

13-; 24* 

13-; 66 

^3-; 95* 

13-<20 

13-<76* 

13-<97* 

13-=58 

13-=77* 

13->28 

13->65* 

13-709 

13-752* 

13-301 

13-329* 

13-393 

13-A29* 

1 3-A72* 

13-819* 

1 3-877* 

13-C08 

13-C55* 



13-76 

13-101* 

13-122* 

13-189 

13-211* 

13-242 

1 3-292* 

13-316 

13-355* 

13-391* 

13-419* 

13-504 

13-525* 

13-556 

13-606* 

13-630 

13-669* 

13-705* 

13-733* 

13-817 

13-837* 

13-876 

13-922* 

13-942* 

13-993* 

13-:22 

13-: 42* 

13-; 04* 

13-; 30 

13-; 66* 

13-<02 

13-<20* 

13-<76* 

13- <99 

13-=58* 

13-=77* 

13->28* 

13->72 

13-709* 

13-765 

13-301* 

13-349 

13-393* 

13-A31 

13-A88 

13-826 

13-884 

13-C08* 

13-C77 



13-76* 

13-101* 

13-126 

13-189* 

13-217 

13-242* 

13-296 

13-316* 

1 3-364 

13-391* 

13-437 

1 3-504* 

13-531 

13-556* 

13-610 

13-630* 

13-678 

13-705* 

13-749 

13-817* 

13-843 

13-876* 

13-922* 

13-944 

13-997 

13-: 22* 

13-: 42* 

13-; 10 

13-; 30* 

13-; 80 

13-<02* 

13-<41 

13-<78 

13-<99* 

13-=58* 

13-=79 

13->32 

13->72* 

13-716 

13-765* 

13-314 

13-349* 

13-393* 

13-A31* 

1 3-A88* 

1 3-826* 

13-884* 

13-C12 

13-C 77* 



1 3-76* 

13-108 

13-126* 

13-195 

13-217* 

13-250 

13-296* 

13-316* 

1 3-364* 

13-393 

13-437* 

13-510 

iy-531* 

13-564 

13-610* 

13-630* 

13-678* 

13-707 

13-749* 

13-823 

13-843* 

13-888 

13-924 

13-944* 

13-997* 

13-: 22* 

13-:57 

13-; 10* 

13-; 34 

13-; 80* 

13-<08 

13-<41* 

13-<78* 

13-<99* 

13-=60 

13-= 79* 

13->32* 

13->76 

13-716* 

13-772 

13-314* 

13-357 

13-395 

13-A31* 

1 3-A95 

13-830 

13-388 

13-C 12* 

13-C84 



13-87 

13-108* 

13-144 

13-195* 

13-221 

13-250* 

13-296* 

13-318 

13-368 

13-393* 

13-460 

13-510* 

13-535 

13-564* 

13-610* 

13-632 

13-682 

13-707* 

13-773 

13-823* 

13-847 

13-888* 

13-924* 

13-944* 

13-997* 

13-:28 

13-: 57* 

13-; 14 

13-; 54* 

13-; 87 

13-<08* 

13-<49 

13-<78* 

13-=03 

13-=60* 

•'3-=79* 

13->32* 

13->76* 

13-720 

13-772* 

13-321 

1 3-357* 

1 3-395* 

13-A33 

13-A95* 

13-830* 

13-888* 

13-C 12* 

13-C 84* 



1 3-87* 

13-114 

13-144* 

13-199 

13-221* 

13-262 

13-298 

13-318* 

13-368* 

13-393* 

13-460* 

13-514 

13-535* 

13-576 

13-612 

13-632* 

13-682* 

13-707* 

13-773* 

13-827 

13-847* 

13-897 

13-924* 

13-946 

13-:08 

13-:28* 

13-:65 

13-; 14* 

13-; 34* 

13-; 87* 

13-<12 

15-<49* 

13-<85 

13-=03* 

13-=60* 

13-=81 

13->34 

13->76* 

13-720* 

13-776 

13-321* 

13-369 

13-395* 

13-A33# 

13-A99 

13-850* 

13-888* 

15-C19 

13-C 88 



3-93 

3-114* 

3-152 

3-199* 

3-221* 

3-262* 

3-298* 

3-318* 

5-568* 

5-402 

5-468 

3-514* 

5-555* 

5-5 76# 

5-612* 

5-652*' 

5-682* 

5-716 

5-781 

5-827* 

5-847* 

5-897* 

3-926 

5-946* 

5-: 08* 

5-:3A 

5-: 65* 

5-; 14* 

3-; 36 

3-; 91 

5-<12* 

5-<63 

5-<85* 

5-^24 

5-=62 

5-^81* 

5->54* 

5->78 

5-720* 

5-776* 

5-325 

3-369* 

3-A06 

5-A35* 

3-A99* 

3-639 

3-890 

3-C19* 

3-f88* 
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BADSCT 

BADT^IO 

BAI 

B800 

B601 

B802 

B803 

B80A 

880 5 

BB06 

B807 

BB08 

B809 

BITO 

BITOO 

BIT01 
BIT02 
BIT03 
BIT04 
BIT05 
BIT06 
BIT07 
BIT08 
BIT09 

Bin 
Bino 

BIT11 

BIT12 

BIT13 

BITK 

BIT15 

BIT2 

BIT3 

BIU 

BITS 

BIT6 

BIT7 

31 T8 

Bir9 

BLNKS1 

BLNKS2 

BLNKS3 

BLNKS4 

BOTAOR 

BOTFLG 

BPTVEC 

BSE 



13-C88* 
13-D20 
13-D90 
13-E53# 
13-E79* 
13-43 
13-S49 
10-3* 
4-739* 

4-670* 
4-670* 
4-670* 
4-670* 
4-670* 
4-670* 
4-670* 
4-670* 
4-670* 
4-670* 
4-484* 
4-484 

43-1 
4-484 
4-484 
4-484 
4-484 
4-484 
4-484 
4-484 
4-484 
4-484 

43-1 
4-484* 
4-484 

43- 1 
4-484# 

42-1 
4-484* 
4-484/r 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
49-40* 
10-132 
49-38* 
10-82 

44- 81* 
44-62* 

4-484* 
4-674* 



13-C90 
1 3-D20* 
1 3-D90* 
13-E53* 
13-E91 
13-144 
1 3-A56 
10-25 
26-28 



23-18 
4-484* 

4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 

16-304 
4-535 

4-490 

4-533 
4-554 
4-553 
4-552 
23-18 
1 5-202 
15-140 

15-87 
10-71 



11-34 

49-37* 
44-99* 

44-109* 



13-C90* 

13-D20* 

13-E10 

13-E55 

13-E91* 

13-242 

13-855 



17-26 
4-557 



4-555 
4-568 
4-567 
4-566 

35-320 
35-426 



23-24 



44-102 
44-112 



13-C90* 

13-D33 

13-E10* 

13-E55* 

15-E91* 

■'3-335 

13-C47 



13-C92 

13-D33* 

13-E18 

13-E55* 

13-F12 

1 3-460 

13-E10 



13-C92* 

13-D33* 

13-E18* 

13-E62 

13-F12* 

13-556 

16-33* 



13-C92* 

13-D46 

13-E40 

I3-E62* 

13-F23 

1 3-649 



l3-f99 

1 3-D46* 

13-E40* 

13-E68 

13-F23* 

13-773 



SEQ 0285 

13-C99* 13-D05 13-D05* 15-D09 13-D09* 13-D09* 
13-D46* 13-D58 13-D58* 13-D58* 13-079 13-079* 
13-E47 13-E47* 13-E51 13-E51* 13-ES1* 13-E5? 
13-E68* 13-E 72 13-E 72* 13-E 72* 13-E79 13-E79* 

13-867 13-962 13-: 57 13-; 58 13-<41 13--24 



4-496 


4-544 


4-562 


4-581 


4-618 


4-636 


4-670 


4-742 


4-760 


4-495 


4-543 


4-580 


4-617 


4-635 


4-670 


4-742 


4-759 




4-494 


4-542 


4-579 


4-616 


4-634 


4-670 


4-742 


4-758 


4-757 


4-493 


4-541 


4-578 


4-615 


4-633 


4-670 


4-681 


4-739 


4-492 


4-540 


4-577 


4-632 


4-670 


4-738 








4-491 


4-576 


4-614 


4-631 


4-670 


4-737 






4-756 


4-561 


4-575 


4-597 


4-613 


4-630 


4-670 


4-723 


4-736 


4-560 


4-574 


4-596 


4-612 


4 629 


4-653 


4-670 


4-680 


4-722 


4-537 


4-559 


4-573 


4-595 


4-611 


4-628 


4-670 


4-721 


4-734 


4-536 


4-558 


4-572 


4-594 


4-610 


4-627 


4-670 


4-720 


4-733 



42-1 



43-1 



4-735 
42-1 
42-1 



42-1 



43-1 



26-48 
4-571 



4-534 4-556 



4-569 
4-606 
4-605 
4-604 

35-407 



4-593 


4-609 


4-626 


4-652 


4-667 


4-679 


4-719 


4-732 


4-755 


15-165 


4-570 


4-608 


4-625 


4-643 


4-651 


4-666 


4-678 


4-731 


4-754 


15-167 


4-607 
4-623 
4-622 
4-621 


4-624 
4-642 
4-641 
4-640 


4-650 
4-664 
4-663 
4-662 


4-665 
4-676 
4-675 
4-674 


4-677 
4-718 
4-686 
4-685 


4-730 
4-729 
4-717 
4-716 


4-753 
4-752 
4-728 
4-727 


15-111 

45-1 
4-751 
4-750 


15-73 
18-33 


42-1 
18-90 



11-48 49-39* 



44-117 
44-115* 



44-161* 
44-162* 



13-030 13-D37 16-225 25-431 
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SEO 0?8^ 



BUFFER 
BUFCM 



BUF TWO 

cr 

CH 

CHGADR 
CHRCNT 

CKsyR 

CLKADR 
CLKVCT 
CLR 

fLRSTS 

CMNSTA 

CMPeUF 

CMPERR 

CNSL01 

CNSL02 

CNSL03 

CNSLOA 

CNSL07 

CNSL08 

CNSL09 

CNTCLR 

COMMA 

CONT 

CPSAVE 

CR 

CRLF 



CTLFG 

CYLMSK 

D8CK 

DBEN 

OBL 

DCK 

DDISP 

0E8L 

DEVSEL 

DISPLA 

DISPRE 

DLT 

DMD 

DPE 

DPEHI 

OPELO 

DPR 

DRIVES 
DRO 

ORVCLR 



16-A9« 

15-40 

15-; 55 

13-C44 

13-106 

13-<83 

4-666« 

A-667# 

7-QM 
44-63* 
42-1 

7-00 

7-0# 

4-73" f 
15-98 

10- '''^ I 
13-U'6 

11- 32 
11-40 
n-44 
11-54 
11-61 
11-92 
49-20* 
15-76 

11- 86 
4-630# 

42-1 

i,9-9 

49-33 

61-26 

61-40 

61-54 

61-68 
7-0* 
4-657* 
4-604* 
4-605* 
4-755* 
4-566* 
4-484* 

4- 606* 
15-62 

6-0* 

5- 1* 
4-727* 
4-618* 
4-681* 
4-751* 
4-752* 
4-559* 

12- 3 
4-643* 
4-504* 



16-284 
13-126 
13-<20 
13-C59 
13-126 
l3-=03 



10-14* 

44-86« 

43-1 

22-8* 

22-9* 

10- 84 
31-24* 

12- 2* 

13- 229 

49-13* 
49-14* 
49-15* 
49-16* 
49-17* 
49-19* 

30-12* 
12-6 

42-1 

11- 73 
10-6 
49-10 
58-7 
61-27 
61-41 
61-55 



61-2* 

13-141 

1 3-<38 

13-C61- 

13-209 

13-=67 



10-1 7« 

44-92* 

43-1 

22-10 

22-15* 

12-58 



12-14 

42-1 

11-84 

10-28 

49-11 

58-11 

61-28 

61-42 

61-56 



4-583 
6-0 

28-12* 
10-23* 
10-23 
25-313 
4-636* 
24-139 



29-195 
49-33* 

16-87 



16-222 
10-23 



10-23* 

35-492 
13-A68 
25-255 



31-127 
34-18 



61-16 

13-229 

13-=03 

13-C63* 

13-229 

13-=85 



11-25 
44-93 
47-1* 
22-14* 

30-16 



13-239 
13-=21 
13-D75 
13-397* 
1 3->04 



11-27* 
44-96* 

22-16 



13-332 
13-=85 
13-E07 
13-429 
13->50 



44-100 
23-13 • 



13-457 
1 3->90 
13-E22 
13-439 
13-A12 



13-543 

13-''47 

13-E24* 

13-523 

13-A37 



13-553 

13-796 

13-E26* 

13-543 

13-817 



1 3-646 

13-S46 

13-F08 

13-711* 

13-899 



1 3-770 

13-A37 

61-3* 

13-741 

13-C97 



13-86m 
13-A42 

13-751 
13-E60 



1 3-959 
13-A53 

l3-<00 
61-4* 



13-: 54 
13-85? 

1 3-<20 



44-105* 44-116* 44-163* 



13-543 13-<20 13-=03 13-=85 13-A37 18-17* 



49-7* 

42-1* 

41-1 

10-28 

49-11 

58-12 

61-29 

61-43 

61-57 



12-47* 14-22 45-3* 



18-25 

42-1* 

35-495 
29-32 

31-128 



42-1* 

41-1 

10-42 

49-12 

58-15 

61-30 

61-44 

61-58 



25-469 
43-1* 

33- 31 

34- 30 



43- 1 

44- 84 
10-53 
49-13 
58-16 
61-31 
61-45 
61-59 



43-1 

57- 79 
10-59 
49-14 

58- 18 
61-32 
61-46 
61-60 



43-1 

10-60 
49-16 
61-19 
61-33 
61-47 
61-61 



43-1 

12-30 
49-17 
61-20 
61-34 
61-48 
61-62 



43-1 

41-1 

49-18 

61-21 

61-35 

61-49 

61-63 



43-1* 

41-1 

49-19 

61-22 

61-36 

61-50 

61-64 



43-1* 

49-3 

49-20 

61-23 

61-37 

61-51 

61-65 



43-1* 

49-5 

49-21 

61-24 

61-38 

61-52 

61-66 



44-180 

49-8 

49-23 

61-25 

61-39 

61-53 

61-67 



25-489 35-413 35-416 



35-43 35-466 35-469 
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ORVSTS 
DRY 

DTASTS 



DTE 

DTO 

DULPRT 

DVA 

DVC 

PARLY 

E8L 

ECH 

ECI 

ECRC 

EDI 

ED110 

ED111 

ED1U 

ED223 

ED336 

FD337 

ED353 

EDT1 



EDTIIO 

FDT111 

EDT1U 

EDT2 

EDT223 

EDT336 

EDT337 

EDT344 

EDT353 

EECC 

EF110 

EFin 

EF1U 

EF336 

EF337 

EFT1 



16-105 
4-560# 

13-99 
1 3-829 
13->34 
13-E79 
4-569# 
4-607# 

4-490* 
4-680* 

5P-107* 
4-623* 
4-575* 
4-651* 
4-627* 

55-1 

55-4 

55-5 

55-7 

55-8 

55-10 

55-11 

55-14 
8-3 
8-48 
8-90 
8-133 
8-182 
8-239 
8-281 
8-323 
8-369 
8-414 
8-525 
8-573 
8-621 
8-663 

55- 1* 
8-221 
8-224 
8-233 
8-426 
8-447 
8-351 
8-684 
8-699 
8-720 
4-632* 

56- 4 
56-1 
56-7 
56-10 
60-5* 

8-3 
8-48 



34-9* 

24-106 

6-0 
13-120 
13-849 
1 3->78 
16-200 

4-583 



10-89 
29-127 



4-583 
18-2i 

59-1* 
59-2* 
59-3* 
59-5* 
59-6* 
59-8* 
55-12 

59- 11* 
8-6 
8-51 
8-93 
8-136 
8-185 
8-242 
8-284 
8-326 
8-372 
8-417 
8-531 
8-577 
8-624 
8-666 

55-4* 
8-227 

55-7* 
8-4?9 
8-528 
8-681 

55-11* 

55-12* 

55- 14* 

60- 1* 

56- 5 
56-8 
56-11 

8-6 
g-51 



25-58 

10-23 

13-201 

1 3-924 

13-722 

35-: 7* 

35-279 



20-43 
31-117 



16-222 
25-487 



59-10* 

8-9 

8-54 

8-96 

8-139 

8-188 

8-245 

8-287 

8-329 

8-375 

8-420 

8-534 

8-581 

8-627 

8-669 



55-5* 

8-513 
55-8* 
8-687 



60-2* 
56-14 
56-12 

8-9 
8-54 



25-41 

13-223 
1 3-944 
13-778 



21-37 
33-92 



18-25 
35-420 



8-12 

8-57 

8-99 

8-142 

8-191 

8-248 

8-290 

8-332 

8-378 

8-423 

8-537 

8-586 

8-630 

8-672 



8-516 
8-690 



60-3* 
60-4* 

8-12 
8-57 



25-42 29-195 31-127 31-128 34-30 



1 3-298 
l3-:20 
13-a27 



35-297 35-300 



24-67 
33-130 



8-15 

8-60 

8-102 

8-146 

8-194 

8-251 

8-293 

8-335 

8-381 

8-432 

8-540 

8-590 

8-633 

8-675 



55-2* 
55-10* 



13-318 
13-:40 
13-893 



13-391 
13-;16 
13-A31 



13-419 
13-; 36 
13-890 



24-70 28-37 31-33 
33-133 33-266 35-232 



13-516 
13-; 93 
13-C19 



34- 17 

35- 236 



13-537 13-612 
13-V-14 13-<76 
13-C90 13-D20 



34- 18 

35- 239 35-284 



25-452 25-467 25-485 25-491 35-423 50-77 50-78 



8-18 

8-63 

8-1C3 

8-150 

8-197 

8-254 

8-296 

8-338 

8-384 

8-435 

8-543 

8-594 

8-636 

8-678 



8-24 

8-66 

8-108 

S-154 

8-200 

8-257 

8-299 

8-341 

8-390 

8-'«38 

8-546 

8-597 

8-639 

8-693 



8-27 

8-69 

8-111 

8-160 

8-203 

8-260 

8-302 

8-344 

8-393 

8-441 

8-549 

8-600 

8-642 

8-696 



8-30 

8-72 

8-114 

8-163 

8-206 

8-263 

8-305 

8-347 

8-396 

8-444 

8-552 

8-603 

8-645 

8-702 



8-33 

3-75 

8-117 

8-166 

8-209 

8-266 

8-308 

8-354 

8-399 

8-504 

8-556 

8-606 

8-648 

8-705 



8-36 

8-78 

8-120 

8-169 

8-212 

8-269 

8-311 

8-357 

8-402 

8-507 

8-559 

8-609 

8-6'; 1 

8-708 



13-632 
13-<97 

13-033 



36-89 
50-85 



8-39 

8-81 

8-123 

8-172 

8-215 

8-272 

8-314 

8-360 

8-405 

8-510 

8-563 

8-612 

8-654 

8-711 



SEO 0285 



13-705 13-733 
l3-=60 13-= 79 
13-D46 13-E5^ 



36-94 36-97 



50-86 



8-42 
8-84 

8-126 
8-175 
8-218 
8-275 
8-317 
8-363 
8-408 
8-519 
8-566 
8-615 
8-657 
8-714 



8-45 

8-87 

8-130 

8-178 

8-236 

8-278 

8-320 

8-366 

8-411 

8-522 

8-569 

8-618 

8-660 

8-723 



8-15 
8-60 



8-18 
8-63 



8-24 
8-66 



8-27 
8-69 



8-30 
8-72 



8-33 
8-75 



8-36 
8-78 



8-39 
8-81 



8-42 
8-84 



8-45 
8-87 
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EFT110 

EFT111 

EFT1U 

EFT2 

EFT223 

EFT336 

EFT337 

EFT3AA 

EFT353 

EH1 

EH110 

EH111 

EHIU 

EH223 

EH256 

EH336 

EH337 

EH3AA 

EH353 

EHTI 



EHTnO 

EHTin 

EHTIU 

EHT225 
EHT256 
fHT536 
EHT337 
EHr3«4 
fMT355 



8-90 

8-133 

8-182 

8-239 

8-281 

8-323 

8-369 

8-A1A 

8-525 

8-573 

8-621 

8-663 

56-1* 
8-221 
8-22A 
8-233 
8-A26 
8-AA7 
8-351 
8-68A 
8-699 
8-720 

54-1 

54-A 

54-5 

54-7 

54-8 

54-9 

54-11 

54-12 

54-13 

54-15 
8-3 
8-48 
8-90 
8-133 
8-182 
8-239 
8-281 
8-323 
8-369 
8-414 
8-525 
8-573 
8-621 
8-663 

54-U 
8-221 
8-224 
8-233 
8-426 
8-447 
8-528 
8-351 
8-684 
8-699 
8-720 



8-93 

8-136 

8-185 

8-242 

8-284 

8-326 

8-372 

8-417 

8-531 

8-577 

8-624 

8-666 

56-4# 
8-227 
56- 7# 
8-429 
8-528 
8-681 
56-1 1# 
56-12* 
56-14* 
58-1* 
58-2* 
58-3* 
58-5* 
58-6* 
58-7* 
58-10* 
58-11* 
58-15* 
58-18* 
8-6 
8-51 
8-93 
8-136 
8-185 
8-242 
8-284 
8-326 
8-372 
8-417 
8-531 
8-577 
8-624 
8-666 

54-4* 
8-227 
54-7* 
8-429 
54-8* 
54-9* 
8-681 
54-12* 
54-13* 
54-15* 



8-96 

8-139 

8-188 

8-245 

8-287 

8-329 

8-375 

8-420 

8-534 

8-581 

8-627 

8-669 



56-5* 

8-513 
56-8* 
8-687 



8-9 

8-54 

8-96 

8-139 

8-188 

8-245 

8-287 

8-329 

8-375 

8-420 

8-534 

8-581 

8-627 

8-669 



54-5* 
8-513 

8-687 



8-99 

8-142 

8-191 

8-248 

8-290 

8-332 

8-378 

8-423 

8-537 

8-586 

8-630 

8-672 



8-516 
8-690 



8-12 

8-57 

8-99 

8-142 

8-191 

8-248 

8-290 

8-332 

8-378 

8-423 

8-537 

8-586 

8-630 

8-672 



8-516 
8-690 



8-102 
8-146 
8-194 
8-251 
8-293 
3-335 
8-381 
8-432 
8-540 
8-590 
8-633 
8-675 



56-2* 
56-10* 



8-15 

8-60 

8-102 

8-146 

8-194 

8-251 

8-293 

8-335 

8-381 

8-432 

8-540 

8-590 

8-633 

8-675 



54-2* 
54-11* 



8-105 
8-150 
8-197 
8-254 
8-296 
8-338 
8-384 
8-435 
8-543 
8-594 
8-636 
8-678 



8-18 

8-63 

8-105 

8-150 

8-197 

8-254 

8-296 

8-338 

8-384 

8-435 

8-543 

8-594 

8-636 

8-678 



8-108 
8-154 
8-200 
8-257 
8-299 
8-341 
8-390 
8-438 
8-546 
8-597 
8-639 
8-693 



8-24 

8-66 

8-108 

8-154 

8-200 

8-257 

8-299 

8-341 

8-390 

8-438 

8-546 

8-597 

8-639 

8-693 



8-111 
8-160 
8-203 
8-260 
8-302 
8-344 
8-393 
8-441 
8-549 
8-600 
8-642 
8-696 



8-27 

8-69 

8-111 

8-160 

8-203 

8-260 

8-302 

8-344 

8-393 

8-441 

8-549 

8-600 

8-642 

8-696 



8-lU 
8-163 
8-206 
8-263 
8-305 
8-347 
8-396 
8-444 
8-552 
8-603 
8-645 
8-702 



8-30 

8-72 

8-114 

8-163 

8-206 

8-263 

8-305 

8-347 

8-396 

8-444 

8-552 

8-603 

8-645 

8-702 



8-117 
8-166 
8-209 
8-266 
8-308 
8-354 
8-399 
8-504 
8-556 
8-606 
8-648 
8-705 



8-33 

8-75 

8-117 

8-166 

8-209 

8-266 

8-308 

8-354 

8-399 

8-504 

8-556 

8-606 

8-648 

8-705 



8-120 
8-169 
8-212 
8-269 
8-311 
8-357 
8-402 
8-507 
8-559 
8-609 
8-651 
8-708 



8-36 

8-78 

8-120 

8-169 

8-212 

8-269 

8-311 

8-357 

8-402 

8-507 

8-559 

8-609 

8-651 

8-708 



8-123 
8-172 
8-215 
8-272 
8-314 
8-360 
8-405 
8-510 
8-563 
8-612 
8-654 
8-711 



8-39 

8-81 

8-123 

8-172 

8-215 

8-272 

8-314 

8-360 

8-405 

8-510 

8-563 

8-612 

8-654 

8-711 



8-126 
8-175 
8-218 
8-275 
8-317 
8-363 
8-408 
8-519 
8-566 
8-615 
8-657 
8-714 



5£0 0286 

8-130 
8-178 
8-236 
8-278 
8-320 
8-566 
8-411 
8-522 
8-569 
£-618 
8-660 
8-723 



8-42 

8-84 

8-126 

8-175 

8-218 

8-275 

8-317 

8-363 

8-408 

8-519 

8-566 

8-615 

8-657 

8-714 



8-45 

8-87 

8-130 

8-178 

8-236 

8-278 

8-320 

8-366 

8-411 

8-522 

8-569 

8-618 

8-660 

8-723 
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EWS1 

EMS10 

EHS100 

E'ISIOI 

EMS102 

EHS103 

EMSICK 
EMS105 
EMS106 
EHS11 

EMS110 
EWS111 
EMS112 
EWS113 
EWS1K 
EHS115 



EMS116 

EMS117 

EMS 12 

EMS120 

EMS121 

EMS122 

EWS123 

EMS124 

EMS125 

EMS126 

EMS127 

E«1S13 

EMS130 

FMS131 

EMS 132 



EMS 133 

EMS13A 

EMS135 

FMS136 

EMS137 

EMSU 

EMSUO 

EMSU1 

EMS U2 

EMSU3 

EMSU4 

EMSU5 

EMSU6 

ErtSU7 

EMS 15 

EMS150 

f MSI 51 
EMS 152 



53-3 

53-7 

53-39 

53-AO 

53-177 

53-56 

53-210 

53-136 

53-204 

53-212 

53-12 

53-28 

53-9 

53-74 

53-74 

53-75 

53-77 

53-44 

53-73 

S5-185 

51-223 

53-74 

53-77 

53-12 

53-78 

53-79 

53-80 

53-81 

55-56 

53-83 

53-84 

57-89# 

53-13 

53-86 

53-87 

53-79 

53-93 

53-125 

53-79 

53-88 

53-97 

53-99 

53-85 

53-13 

53-44 

53-35 

53-47 

53-47 

53-36 

53-36 

53-109 

53-69 

53-13 

53-50 

57-106* 

53-69 

53-50 



57-3# 

53-n 

53-71 

53-59 

53-178 

53-57 

53-211 

53-180 

57-71* 

53-232 

53-15 

53-29 

53-74 

53-226 

57-75# 

53-76 

57-78* 

53-45 

53-77 

53-186 

53-232 

53-77 

53-U3 

57-12* 

57-82* 

53-88 

53-89 

53-88 

53-82 

53-92 

53-93 

53-42 

53-95 

53-96 

53-80 

53-94 

53-126 

53-80 

53-89 

53-98 

53-100 

53-94 

57-14* 

53-52 

53-44 

53-65 

53-65 

53-73 

53-73 

53-185 

53-112 

53-42 

53-51 

53-112 
53-51 



57-10* 

53-176 
53-174 
53-181 
53-135 
53-213 
55-203 

57-72* 

53-16 

53-30 

53-77 

57-74* 

53-78 

53-48 

53-107 

53-187 

53-234 

53-19- 

53-148 



53-97 

57-84* 

53-89 

53-91 

53-102 

53-103 

53-216 

53-106 

53-104 

53-81 

53-95 

53-168 

53-81 

53-90 

57-95* 

53-101 

53-100 

53-60 

53-45 

53-108 

53-73 

53-109 

53-109 

53-190 

53-113 

53-216 

53-54 

53-113 
53-54 



53-196 
53-197 
53-182 
53-141 
53-214 
57-70* 



53-90 
53-101 
53-169 
57-88* 

57-13* 

57-90* 

57-91* 

53-82 

53-96 

53-169 

53-82 

53-91 

53-102 
57-97* 

53-107 

53-60 

53-140 

53-108 

53-110 

53-110 

53-201 

53-173 

57-15* 

53-63 

53-173 
53-63 



57-66* 
57-67* 
53-183 
53-196 
53-215 



53-184 
53-197 
53-219 



53-186 
53-198 
53-220 



53-187 
53-203 
57-69* 



SEO 028/ 



55-188 53-189 53-254 55-235 57-68* 

53-204 53-205 55-206 53-207 55-208 55-209 



53-17 


53-18 


53-19 


53-20 


55-21 


53-22 


55-25 


55-24 


53-25 


55-26 


53-27 


53-31 


53-32 


53-35 


53-43 


55-177 


57-11* 












57-73* 






















53-127 


57-77* 




















53-50 


53-51 


55-52 


53-54 


53-55 


55-60 


55-61 


55-63 


53-66 


53-67 


55-70 


53-108 


53-109 


53-110 


53-154 


53-137 


55-159 


55-140 


53-142 


53-179 


'j5-182 


55-185 


53-188 


53-189 


53-190 


55-192 


53- 


53-194 


55-195 


55-201 


53-205 


53-221 


55-222 


57-79* 






















53-22S 


57-80* 




















55-149 


53-1 78 


53-185 


55-201 


53-225 


55-228 


55-229 


53-250 


55-251 


57-81* 





53-99 57-85* 



55-90 

57-86* 

57-87* 



53-83 

53-97 

57-92* 

53-83 

53-92 



55-91 



55-92 55-93 



53-94 



53-95 



53-96 53-98 53-126 57-85* 



53-84 
53-98 

55-84 
53-93 



53-85 
53-99 

53-85 
53-94 



55-86 
55-100 

55-86 
55-95 



53-87 
53-101 

53-87 
53-96 



53-88 
53-102 

53-125 
53-126 



53-89 
55-105 

57-93* 
57-94* 



53-90 
55-104 



55-91 
55-105 



53-92 
53-106 



53-103 53-104 53-105 55-106 57-96* 



55-117 

55-61 

53-184 

53-109 

■53-205 

53-205 

57-104* 

55-217 

55-67 

55-217 
53-111 



55-157 

53-66 

53-202 

53-110 

57-102* 

57-105* 

57-105* 

55-111 

57-107* 
55-154 



55-186 
55-107 
57-100* 
53-135 



53-154 
53-182 



53-192 57-98* 

53-122 53-137 53-187 53-188 53-193 55-222 57-99* 
55-140 55-184 55-202 55-205 57-101* 



55-138 55-182 55-185 55-194 55-195 55-223 53-254 



55-183 53-194 53-195 53-225 57-108* 
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EMS153 53-111 57- -lO*?* , 

EHSI54 53-111 53-112 53-123 53-124 57-1 10# 

EMS155 55-112 55-124 57-1 11# 

EWS156 53-113 53-114 53-115 53-116 53-173 57-112# 

EHS157 53-113 53-123 57-1 13# 

EMS16 53-13 57-16* 

EMS160 53-114 53-115 53-116 57-114* 

EI1S161 53-114 57-115* 

eSs163 53-58^ 53-59 53-60 53-61 53-62 53-63 53-64 53-65 53-66 53-67 53-68 53-69 53-70 53-71 

53-72 53-73 53-117 53-145 57-117* 

eI!s165 53-56 53-57^ 53-71 53-72 53-172 53-196 53-197 55-198 57-120* 

e5s167 53-8^^ 53-49^* 53-68 53-125 53-124 53-''68 53-169 55-170 53-175 53-235 57-122* 

EMS17 53-14 57-17* 

EMS170 53-9 57-123* 

EWS171 53-57 53-105 53-125 53-126 57-124* 

EMS172 53-215 57-125* 

EMS175 55-214 57-126* 

EMS174 55-216 57-127* 

EMS175 53-216 55-217 53-218 53-219 57--:28* 

EMS176 57-129* 

EWS1 77 53-127 57-130* 

EMsfo 53-34 53-58 53-110 53-118 53-119 53-120 53-121 53-212 53-232 53-238 57-18* 

EMS200 53-128 57-131* 

eIis202 53-122 53-130* 53-131 53-132 53-133 53-134 53-136 53-180 57-133* 

eSs203 53-122 53-130 53-151 53-152 55-153 53-174 53-175 53-176 53-237 57-134* 

EMS204 53-131 57-135* 

EMS205 'j3-55 53-142 53-179 53-233 57-136* 

EMS206 53-55 53-142 53-170 53-179 53-233 57-137* 

EMS207 53-168 53-170 57-138* 

EMS21 53-15 57-19* 

EMS210 53-169 53-170 53-173 57-139* 

EMS211 53-170 57-140* 

EMS212 53-171 55-172 57-14^* 

EMS215 55-171 57-142* 

EMS214 53-55 57-145* 

EMS215 53-236 57-144* 

EMS216 53-237 57-145* 

EMS217 53-237 57-146* 

EMS22 53-16 57-20* 

E«S220 53-179 57-147* 

EMS221 53-231 53-238 57-148* 

Em222 53-233 57-149* 

EMS223 55-252 57-150* 

6I1S224 53-121 57-151* 

E«S23 55-17 57-21* 

E«S24 53-18 57-22* 

EMS25 53-19 53-115 57-23* 

EMS26 53-20 55-116 53-173 57-24* _ 

EMS27 53-16 53-19 53-20 53-115 53-116 53-173 57-25* 

fSsIo 53-17 sl'}8 S5~2^ '^1-22 53-23 53-24 53-25 53-26 53-27 53-28 53-29 55-30 53-31 53-32 

EMS30 53_1^7 55^8 53_^^^ .5_^^^ 5W5^ y^J^^^ ^W.^ ^^.^^^ ^^..^^ 



ZRMNBO RM05/3/2 FCTNL TST I MACRO V04.00 4-APR-81 
■ROSS REFERENCE TABLE (CREF VOI-05 ) 



D 7 

11:43:33 PAGE S-U 



EMS31 

EMS3? 

tMS33 

EMS34 

EMS 35 

EMS36 

EMS37 

EMS4 

EMS40 

EMSA1 

EMS42 

EMSA3 

EMSAA 

EMSA5 

EMS46 

EMSA7 

EMS5 
EMS50 

EMS51 
EMS52 

EMS53 



EMS5A 
EMS55 
EMS56 

EMS57 



EMS6 

EMS60 

EMS61 

EMS62 

EMS63 

EMS6A 

EMS65 

FMS66 

EMS67 

E?'S7 

EMS 70 

EMS 71 
EMS72 

EMS 73 
EMS 74 
EMS75 
EMS 76 
EMS77 
EMT1 
EMTIO 
EMT100 



53-177 
53-21 
53-22 
53-23 
53-24 
53-25 
53-26 
53-27 
53-5 
53-28 
53-29 
53-30 
53-31 
53-32 
53-33 
53-43 
53-37 
53-193 
53-6 
53-46 
57-42* 
53-48 
53-55 
57-44* 
53-37 
53-181 
53-204 
53-226 
53-227 
53-50 
53-223 
53-190 
53-204 
53-223 
53-6 
53-224 
53-224 
53-224 
53-42 
53-8 
53-41 
53-34 
53-43 
53-10 
53-48 
53-221 
53-51 
53-36 
53-139 
53-49 
53-69 
53-35 
53-35 
53-38 
8-3 
8-24 
8- ■•97 



53-199 

53-146 

57-28* 

53-219 

53-225 

53-216 

53-213 

57-33* 

53-75 

53-220 

53-190 

53-206 

53-209 

53-211 

53-210 

53-58 

53-44 

53-222 

53-7 

53-48 

53-55 
53-142 

53-38 

53-182 

53-206 

57-46* 

57-47* 

53-51 

53-228 

53-191 

53-205 

53-228 

57-8* 

57-50* 

57-51* 

57-52* 

53-149 

53-14 

57-55* 

53-218 

53-44 

57-9* 

'i3-50 

57-58* 

53-59 

53-48 

53-140 

53-54 

53-70 

53-66 

53-36 

53-72 

53-3* 

53-10* 

53-66* 



5'-26* 
53-207 

57-29* 
53-226 
57-31* 

53-214 

57-6* 

57-34* 

53-191 

57-36* 

57-37* 

53-230 

53-229 

53-120 

53-45 

57-41* 

57-7* 

53-64 

53-70 
53-143 

53-39 

53-184 

53-207 



53-54 

53-234 

53-192 

53-206 

53-229 



53-190 
53-41 

57-56* 
53-45 

53-52 

53-63 

53-51 

53-142 

53-67 

53-134 

53-67 

53-37 

53-148 



53-208 57-27* 



53-227 
53-215 

57-35* 



53-183 

53-55 

53-179 

53-68 

53-189 

53-137 

53-38 

53-198 



57-30* 
57-32* 



57-38* 
57-39* 
53-145 
53-52 


53-177 
53-60 


53-185 
53-61 


53-199 
53-66 


53-201 
53-117 


57-40* 
53-118 


53-147 


53- 


186 


53-187 


53-188 


53-192 


53-70 


53-132 


53-135 


53-139 


53-141 


53-181 


53-185 


53- 


■189 


53-200 


53-201 


53-221 


53-130 
53-148 


53-139 
53-149 


53-142 
53-178 


53-179 
53-179 


53-189 
53-185 


53-221 
53-201 


57-43* 
53-228 


53- 


•229 


53-230 


53-231 


53-233 


53-40 
o6 

53-216 


53-44 
53-218 


53-45 
53-219 


53-46 
53-220 


53-47 

CT 1 QO 

53-226 


53-62 

CT 1 0t 

57-45* 


53-64 

CI 10/ 


53- 


-65 

1 oc 


53-73 


53-140 


53-141 


53-62 

57-48* 

53-193 

53-207 

53-230 


53-63 

53-194 
53-208 
57-49* 


53-67 

53-195 
53-209 


53-119 

53-196 
53-210 


53-143 

53-197 
53-211 


53-144 

53-198 
53-213 


53-178 

53-199 
53-214 


53- 

53- 
53- 


■182 

-200 
-215 


53-183 

53-201 
53-220 


53-194 

53-202 
53-221 


53-195 

53-203 
53-222 


57-53* 
53-144 


53-145 


53-146 


53-147 


53-199 


57-54* 














53-46 


53-47 


53-48 


53-49 


53-50 


53-51 


53-52 


53- 


■54 


57-57* 






53-54 


53-66 


53-70 


53-73 


53-107 


53-110 


53-139 


53- 


-182 


53-189 


53-194 


53-205 



53-195 

53-56 

53-183 

53-136 

53-217 

53-138 

53-39 

57-65* 



53-208 

53-57 

53-187 

53-180 

53-221 

53-188 

53-40" 



57-59* 

53-60 

53-193 

53-188 

57-62* 

53-222 

57-64* 



53-61 

53-195 

53-222 



53-61 

53-232 

53-223 



53-63 

57-60* 

53-234 



53-108 
53-235 



53-109 
57-61* 



53-134 53-135 



53-223 53-234 57-63* 
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SEO 02(H) 



EMT 

EMT 

EMT 

EM^ 

EMT 

EMT 

EMT 

EMT 

EMT 

EMT 

EMT 

EMI 

EMT 

EMT 

EMT 

EMT 

EMT 

EMT 

EMT 

EMT 

EMT 

EMT 

EMT 

EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
EMT 
FMT 
tMT 
EMT 
EMT 
EMT 
EMT 
EMT 



101 


8-200 


53-67* 


102 


8-203 


33-68* 


I0'5 


8-206 


53-69* 


104 


8-209 


53-70* 


!05 


8-212 


53-71* 


106 


8-215 

\j CIV 


53-72* 


107 


8-218 


53-73* 


1 


8-27 


53-n* 


10 


8-221 


53-74* 


1 1 


8-224 


53-75* 


1? 


8-227 


53-76* 


13 


8-230 


53-77* 


U 


8-233 


53-78* 


15 


8-236 


53-79* 


16 


8-239 


53-80* 


17 


8-242 


53-81* 


2 


8-30 


53-' 2* 


20 


8-245 


53-82* 


21 


8-248 


53-83* 


22 


8-251 


53-84* 


23 


8-254 


53-85* 


24 


8-257 


53-86* 


25 


8-260 


53-87* 


26 


8-263 


53-88* 


:'7 


8-266 


53-89* 


3 


8-33 


53-13* 


30 


8-269 


53-90* 


31 


8-272 


53-91* 


32 


8-275 


53-92* 


33 


8-278 


53-93* 


34 


8-281 


53-94* 


35 


8-284 


53-95* 


36 


8-287 


53-96* 


37 


8-290 


53-97* 


^ 


8-36 


53-14* 


40 


8-293 


53-98* 


41 


8-296 


53-99* 


42 


8-299 


53-100* 


43 


8-302 


53-101* 


44 


8-305 


53-102* 


45 


8-308 


53-103* 


46 


8-311 


53-104* 


147 


8-314 


53-105* 


5 


8-39 


53-15* 


50 


8-317 


53-106^ 


151 


8-320 


53-107* 


152 


8-323 


53-108* 


153 


8-326 


53-109* 


154 


8-329 


53-110* 


155 


8-332 


53-111* 


156 


8-335 


53-112* 


157 


8-338 


53-113* 


16 


8-42 


53-16* 


160 


8-341 


53-114* 


161 


8-344 


53-115* 


162 


8-347 


53-116* 


163 


53-n7# 
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EWnw 8-354 53-M8;» 

EMT165 S-?*)? 53-1 19# 

EMT166 8-360 53-120* 

FMT167 8-363 53-1?1» 

EWT17 8-45 53-17* 

EMT170 8-566 53-122* 

EMT171 8-369 53-123* 

EMT1 72 8-372 53-124* ^ 

Emi73 8-375 53-125* 

E«n74 8-378 53-126* 

EMT175 8-381 53-127* 

E^T176 8-384 53-128* 

EMTI 77 53-129* 

EMT2 8-6 53-4* 

EMT20 8-48 53--'e* 

Em200 8-390 53-130* 

EMT201 8-393 53-131* 

EMT202 8-396 53-132* 

EMT203 8-399 53-133* 

EWT204 8-402 53-134* 

EMT205 8-405 53-135* 

EMT206 8-408 53-136* 

EMT207 8-411 53-137* 

E^»T2i 8-51 53-19* 

EMT210 8-414 53-138* 

EMT211 8-417 53-139* 

EMT212 8-420 53-140* 

EMT213 8-423 53-141* 

EMT214 8-426 53-'42* 

EMT215 8-429 53-143* 

EMT216 8-432 53-144* 

EMT217 8-435 53-145* 

EMT22 8-54 53-20* 

EMT220 8-438 53-146* 

EMT221 8-44- 53-147* 

EMT222 8-444 53-148* 

EMT223 8-447 53-149* 

EMT224 53-150* 

eMT225 53-151* 

EMT226 53-152* 

EMT227 53-153* 

F«T23 8-57 53-21* 

EMT230 53-154* 

EMT231 53-155* 

EMT232 53-156* 

EMT233 53-157* 

EMT234 53-158* 

EMT235 55-159* 

EMT256 55-160* 

EMT257 55-161* 

EMT24 8-60 53-22* 

EMT240 55-162* 

Em?41 53-163* 

FHT242 53-164* 

EHT243 53-165* 

EMT244 53-166* 

f«T245 55-167* 
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CHT2^6 8-5(K 55-^68* 

8-S07 53-169# ' 

EMT25 8-63 53-23# 

EWT250 8-510 53-170* 

EMT251 8-513 53-171* 

EMTP52 8-516 53-172* 

EMT253 8-519 53-173* 

EMT254 8-522 53-1 7A* 

EWT255 8-525 53-175* 

EWT256 8-528 53-176* 

EWT257 8-531 53-17?'* 

fMT26 8-66 53-2A* 

EWT260 8-534 53-178* 

FMT261 8-537 53-179* 

EMT262 8-540 53-180* 

EMT263 8-543 53-181* 

EMT264 8-546 53-182* 

EMT265 8-549 53-183* 

EWT266 8-552 53-184* 

EMT267 8-556 53-185* 

EMT27 8-69 53-25* 

EMT270 8-559 53-^86* 

EMT271 8-563 53-187* 

EWT272 8-566 53-188* 

E^T273 8-569 53-189* 

EMT274 8-573 53-190* 

EMT275 8-577 53-191* 

Em276 8-581 53-192* 

EMT277 8-586 53-193* 

EWT3 8-9 53-5* 

EMT30 8-72 53-26* 

EWT300 8-590 53-194* 

EMT301 8-594 53-195* 

EMT302 8-597 53-196* 

EMT303 8-600 53-197* 

EMT304 8-603 53-198* 

tMT305 8-606 53-199* 

EMT306 8-609 53-200* 

EMT307 8-612 53-201* 

EWT31 8-75 53-27* 

EMT310 8-615 53-202* 

EMT311 8-618 53-203* 

EMT312 8-621 53-204* 

EMT313 8-624 53-205* 

EMT314 8-627 53-206* 

EMT315 8-630 53-207* 

E)1T316 8-633 53-208* 

EMT317 8-636 53-209* 

EMT32 8-78 53-28* 

EMT320 8-639 53-210* 

EMT321 8-642 53-211* 

EMT32? 8-645 53-212* 

EMT3P3 8-648 53-213* 

enJl2A 8-651 53-214* 

EMT325 8-654 53-215* 

EMT326 8-657 53-216* 

EMT327 8-660 53-217* 
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fcMT3$ 8-81 55-^9# 

EMT550 8-663 53-218* 

EMT331 8-666 53-219# 

tHT332 8-669 53-220* 

EWT333 8-672 53-221* 

EMT33A 8-675 53-222* 

EMT335 8-678 53-223* 

EMT336 8-351 8-681 53-224* 

EWT357 8-684 53-225* 

E^T34 8-8A 53-30* 

EMT540 8-687 53-226* 

EMT54I 8-690 53-227* 

EMT342 8-693 53-228* 

EWT3A3 8-696 f 3-229* 

EMT344 8-699 53-230* 

EMT345 8-702 53-231* 

EMT346 8-705 53-232* 

EMT347 8-708 53-233* 

EMT35 8-87 53-31* 

EMT350 8-711 53-234* 

EMT351 8-7U 53-235* 

E«r552 8-717 53-236* 

EMT353 8-720 53-237* 

EWT354 8-723 53-238* 

EMT36 8-90 53-32* 

FMT37 8-93 53-33* 

EMT4 8-12 53-6* 

EMT40 8-96 53-34* 

EMT41 8-99 53-35* 

rMT42 8-102 53-36* 

EMT43 8-105 53-37* 

EMT44 8-K)8 53-38* 

EMT45 8-111 53-39* 

EMT46 8-114 53-40* 

EMT47 8-117 53-41* 

EMT5 8-15 53-7* 

FMT50 8-120 53-42* 

EMT51 8-123 53-43* 

EMT52 8-126 53-44* 

E^*T53 8-130 53-45* 

EMT54 8-133 53-46* 

EMT55 8-136 53-47* 

EMT56 8-139 53-48* 

EMT57 8-142 53-49* 

EMT6 8-18 53-8* 

EMT60 8-146 .53-50* 

EMT61 8-150 53-51* 

EMT62 8-154 53-52* 

FMT65 5 5-53* 

EMT64 8-160 53-54* 

EMT65 8-163 53-55* 

FMT66 8-166 53-56* 

EMT67 8-169 53-57* 

FMr7 8-21 53-9* 

EMT70 8-172 53-58* 

E«T71 8-175 53-59* 

E«T72 8-178 53-60* 
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SEO 0^94 



EMT75 
EMT74 
EMT75 

EMT77 

EMTVEC 

ENRGDT 

EQUALS 

ERR 

ERR^ 
ERROR 
ERRTYP 
ERRVEC 



ertyoo 

ERTYOI 

ERTY02 

ERTY03 

ERTYCK 

ERTY05 

ESRC 

FO 

r 1 

F? 

F3 

F4 

FER 

FIND 



8-182 
8-185 
8-188 
8-191 
8-194 
4-484# 

52-144# 

49-4# 
4-555# 

44- 48* 
4-484# 

45- 1 
4-484# 

20-35 
22-6* 
2S-22* 
42-1* 
44-21 
44-46 
44-51 
44-53 
44-152 
44-39 
4-625# 
4-495# 
4-494# 
4-493# 
4-492# 
4-491# 
4-577# 
13-43 
13-76* 
13-101* 
13-122 
13-164* 
13-199* 
1 3-221 
1 3-242* 
1 3-286* 
13-306 
1 3-320* 
1 3-368* 
1 3-393 
13-419* 
1 3-489* 
13-516 
13-535* 
1 3-564* 
ir-606 
1 3-62C* 
13-649* 
1 3-693 
1 3-707* 
13-749* 
7 3-806 
1 5-829* 
' 5-849* 



55-61* 
53-62* 
55-65* 
55-64* 
55-65* 
10-25* 



25-84 
44-49« 

44-1 5* 

10-23 

20-35 

22-7* 

28-51* 

42-1* 

44-165* 

4^-166* 

44-167* 

44-168* 

44-169* 

44-170* 

25-29 
25-29 
25-29 
25-29 
25-29 
4-583 
1 3-43* 
13-87 
13-101* 
13-122* 
13-173 
13-199* 
13-221* 
13-250 
1 3-286* 
1 5-506* 
13-535 
13-368* 
1 3-393* 
13-437 
13-489* 
'13-516* 
13-557 
15-564* 
1 5-606* 
1 5-626 
15-649* 
1 5-695* 
15-716 
15-749* 
1 5-806* 
15-851 
1 3-849* 



10-25* 



25-86 
44-52 



10-25* 
20-59* 
22-15* 
28-51* 
45-1 



26-1 1 5 



13-C16 

1 3-43* 

1 3-87* 

13-108 

13-122* 

15-173* 

13-201 

13-221* 

13-250* 

13-292 

13-306* 

13-335* 

13-579 

15-593* 

13-437* 

13-493 

13-516* 

13-537* 

13-576 

13-606* 

13-626* 

13-657 

13-693* 

13-716* 

13-775 

13-806* 

13-831* 

13-851 



25-102 
44-57 



10-23* 

20-40* 

22-20* 

30-12 

43-1* 



13-C23 

13-51 

13-87* 

13-108* 

13-126 

13-173* 

13-20U 

15-225 

13-250* 

13-292* 

13-312 

13-355* 

15-579* 

15-402 

13-437* 

15-495* 

13-518 

13-557* 

15-576* 

13-610 

13-626* 

13-657* 

13-699 

13-716* 

13-775* 

13-817 

13-831* 

13-851* 



25-156 
44-64 



10-25* 

20-70* 

22-21* 

50-12 

43-1* 



13-D17 

13-51* 

13-93 

13-108* 

13-126* 

15-177 

15-201* 

15-223* 

13-262 

13-292* 

13-312* 

13-343 

13-379* 

13-402* 

13-460 

13-493* 

13-518* 

13-559 

15-576* 

13-610* 

13-630 

13-657* 

13-699* 

13-722 

15-773* 

13-817* 

13-837 

13-851* 



44-160* 



10-26* 
20-70* 
25-9 
50-15* 



13-D24 

13-51* 

13-93* 

13-114 

13-126* 

13-177* 

13-203 

13-223* 

13-262* 

13-296 

13-312* 

13-343* 

13-385 

13-402* 

13-460* 

13-504 

13-518* 

13-539* 

13-585 

13-610* 

15-630* 

13-669 

13-699* 

15-722* 

13-781 

13-817* 

13-837* 

13-867 



13-4 
21-29 
25-9 
50-14* 



^6-222 

15-65 

15-95* 

15-114* 

15-144 

13-177* 

1 3-205* 

15-225 

15-262* 

15-296* 

13-316 

13-343* 

13-585* 

15-408 

13-460* 

13-504* 

13-525 

13-559* 

13-585* 

13-612 

13-650* 

1 5-669* 

15-703 

13-722* 

13-781* 

13-823 

13-837* 

1 5-867* 



15-4 
21-29 
25-10* 
50-25* 



25-416 

13-63* 

13-97 

13-114* 

13-144* 

15-189 

15-205* 

15-225* 

13-271 

13-296* 

13-316* 

13-355 

13-385* 

13-408* 

13-468 

13-504* 

13-525* 

15-545 

13-585* 

13-612* 

15-652 

15-669* 

15-705* 

15-726 

15-781* 

13-823* 

15-843 

13-867* 



15-5* 
21-55* 
25-11* 
50-25* 



55-548 

15-63* 

13-97* 

13-118 

13-144* 

15-189* 

15-211 

15-225* 

15-271* 

13-298 

13-316* 

13-355* 

13-589 

15-408* 

15-468* 

15-510 

15-525* 

15-545* 

15-589 

15-612* 

15-652* 

15-678 

15-703* 

13-726* 

13-795 

13-823* 

13-843* 

1 3-876 



15-6* 
21-54* 
25-55* 
42-1 



55-565 

15-72 

15-97* 

15-118* 

15-152 

15-189* 

15-211* 

15-229 

13-271* 

13-298* 

13-318 

13-355* 

13-589* 

15-412 

15-468* 

15-510* 

15-551 

15-545* 

15-589* 

15-614 

1 5-652* 

15-678* 

13-705 

li-726* 

13-795* 

13-827 

13-845* 

1 3-876* 



15-19* 
21-59* 
25-55* 
42-1 



35-368 

13-72* 

13-99 

13-118* 

13-152* 

13-195 

15-211* 

15-229* 

15-275 

13-298* 

13-318* 

1 3-364 

13-589* 

15-412* 

13-480 

13-510* 

15-551* 

15-556 

15-589* 

15-614* 

15-654 

15-678* 

15-705* 

15-753 

15-795* 

13-827* 

13-847 

13-876* 



13-19* 
21-59* 
28-20 
42-1* 



55-591 

13-72* 

13-99* 

13-120 

15-152* 

15-195* 

15-217 

15-229* 

13-275* 

13-300 

13-318* 

13-564* 

15-591 

15-412* 

1 5-480* 

15-514 

13-531* 

13-556* 

13-600 

15-614* 

1 5-654* 

15-682 

15-705* 

15-755* 

15-802 

13-827* 

13-847* 

1 3-888 



13-25* 
22-4 
28-20 
42-1* 



55-594 

15-76 

15-99* 

13-120* 

13-164 

13-195* 

13-217* 

13-242 

1 3-275* 

13-300* 

13-320 

13-364* 

15-591* 

15-419 

15-480* 

15-514* 

15-555 

15-556* 

15-600* 

15-620 

15-634* 

1 3-682* 

13-707 

13-753* 

13-802* 

13-829 

13-847# 

' 3-888* 



13-23* 
22-5 
28-2^* 
42-1* 



13-76* 

13-101 

13-120* 

13-164* 

15-199 

15-217* 

15-242* 

15-286 

13-300^ 

13-320* 

13-568 

15-591* 

15-419* 

15-489 

15-514* 

15-555* 

1 5-56*'. 

15-600* 

1 5-620* 

15-649 

15-682* 

1 5-707* 

15-749 

1 5-802* 

1 3-829* 

13-849 

1 3-888* 
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SEO 0?9S 



FriT16 



FNCDTB 
FNCMSK 
GENBUF 



GET 



GETBUF 
GETINX 
GErSTS 

GNS 



1 3-897 
1 3-922* 
1 3-9A2* 
13-98A 
13-:U* 
13-:34# 
13-:65 
13-; OA* 
13-; 24* 
13-; 58 
13-; 91* 
13-<12* 
1 3-<49 
1 3-<76* 
1 3-<97* 
1 3-=46 
1 3-=62* 
13-=81* 
1 3->32 
' 3->65* 
1 3->96* 
13-724 
13-776* 
13-321* 
13-357 
13-391* 
13-A25* 
1 3-A56 
1 3-A95* 
1 3-626* 
13-877 
1 3-692* 
13-C26* 
1 3-C88 
1 3-D05* 
1 3-D58* 
13-E40 
13-E55* 
13-E91* 
4-650* 
13-<35 
1 3-D73 
25-130 

4- 497* 
13-/. 7 

1 3-353 

13-72 

13-510 

13-938 

13-> 72 

15-47 

7-0* 

7-0* 
13-67 
1 3->25 

5- 1 
4 7-1 



1 3-897* 
1 3-924 
1 3-942* 
1 3-984* 
13-: 10 
13-: 34* 
13-: 65* 
13-; 10 
13-; 24* 
1 3-; 58* 
13-; 93 
13-<12* 
13-<49* 
l3-<78 
13-<97* 
13—46* 
13-=68 
13-=81* 
13->32* 
13->72 
1 3->96* 
13-724* 
13-778 
13-321* 
13-357* 
13-393 
13-A25* 
13-A56* 
13-A99 
13-626* 
1 3-877* 
13-C02 
13-C26* 
13-C88* 
1 3-D09 
13-D58* 
13-E40* 
13-E62 
13-E91* 
13-128 
13—19 
13-E05 
50-55* 
34-17 
13-148 
13-A60 
13-93 
13-531 
13-993 
13-716 
15-90 
20-37 
13-434* 
13-168 
13->69 
5-1 
47-1 



1 3-897* 

1 3-924* 

1 3-944 

1 3-984* 

13-: 18* 

13-: 38 

13-: 65* 

13-; 10* 

1 3-; 30 

13-; 58* 

13-; 93* 

13-<14 

13-<49* 

13-<78* 

13-<99 

13-=46* 

1 3—68* 

13-=85 

13->32* 

13-> 72* 

13-709 

13-724* 

13-778* 

13-325 

13-357* 

1 3-393* 

13-A29 

13-A56* 

13-A99/)f 

13-830 

13-877* 

13-C02* 

13-C47 

13-C88* 

13-D09* 

1 3-D 79 

13-E40* 

13-E62* 

13-F12 

13-130 

13->01 

13-F06 

35-341 
13-246 
13-859 
13-114 
13-585 
13-:14 
13-772 
15-114 

13-435* 

13-266 

13-713 

10-6 

47-1 



13-901 
1 3-924* 
13-944* 
13-993 
13-:18* 
13-: 38* 
13-:79 
3-; 10* 
13-; 30* 
13-; 66 
13-; 93* 
13-<14* 
13-<63 
13-<78* 
13-<99* 
13— -54 
13--68* 
13-=85* 
13->34 
13->72* 
13-709* 
13-752 
13-778* 
1 3-325* 
13-369 
13-393* 
13-A29* 
13-A64 
13-A99# 
13-830* 
13-684 
13-C02* 
13-C47* 
13-C90 
13-D09* 
1 3-D 79* 
13-E47 
13-E62* 
13-F12* 
13-139 
13->46 
16-60 



13-339 
13-C51 
13-173 
13-606 
13-: 34 
13-321 
15-143 

13-746* 

13-359 

13-769 

10-28 

47-1 



13-901* 

13-926 

13-944* 

1 3-993* 

13-: 20 

13-: 58* 

13-: 79* 

13-;U 

13-; 30* 

13-; 66* 

13-; 95 

13-<14* 

13-<63* 

13-<85 

l3-<99* 

13-=54* 

13-=7^ 

13-=85* 

13->34* 

13->76 

13-709* 

13-752* 

13-780 

13-325* 

13-369* 

13-395 

13-A29* 

13-A64* 

13-608 

13-630* 

13-684* 

13-C08 

13-C47* 

13-C90* 

13-D20 

1 3-D 79* 

13-E47* 

13-E68 

13-F12* 

13-237 

13-732 

17-32 



1 3-464 
1 3-D 77 
13-195 
13-626 
13-:88 
13-387 
15-170 

13-747* 

13-484 

13-318 

10-42 

47-1 



13-901* 

13-926* 

13-946 

1 3-993* 

13-: 20* 

13-: 40 

13-: 79* 

13-; 14* 

13-; 34 

13-; 66* 

13-; 95* 

13-<16 

13-<63* 

13-<85* 

13-=03 

13-=54* 

13-=73* 

l3->08 

13->34* 

13->76A 

13-716 

13-752* 

13-780* 

13-327 

13-369* 

13-395* 

13-A31 

13-A64;> 

13-608* 

13-639 

13-684* 

13-C08# 

13-C55 

13-C90* 

13-D20* 

13-D90 

13-E47* 

13-E68* 

13-F23 

13-330 

13-735 

17-34 



13-560 
13-E14 
13-217 
13-678 
13-; 10 
13-A25 
15-205 

19-13 

13-580 

13-384 

10-53 

47-1 



13-912 

1 3-926* 

1 3-946* 

13-997 

13-: 20* 

13-: 40* 

13-:88 

13-; 14* 

13-; 34* 

13-; 80 

13-; 95* 

13-<16* 

13-<70 

13-<85* 

13-=03* 

13—58 

13-=73* 

1 3->08* 

13->36 

13->76* 

13-716* 

13-765 

13-780* 

13-327* 

1 3-380 

13-395* 

13-A31* 

13-A72 

13-808* 

1 3-839* 

13-888 

13-C08* 

13-C55* 

13-C92 

13-D20* 

13-D90* 

13-E51 

1 3-E68* 

13-F23* 

13-455 

13-745 

18-27 



13-653 
13-FlO 
13-271 
13-699 
13-; 30 
1 3-A95 
16-76 

20-38 
1 3-673 
13-A92 
10-59 
47-1 



13-912* 

13-932 

13-946* 

13-997* 

13-: 22 

13-: 40* 

13-: 88* 

13-; 16 

13-; 34* 

13-; 80* 

13-<02 

13-<16* 

13-<70* 

13-<91 

13-=03* 

13-=58* 

13-=77 

13->08* 

13->36* 

13->78 

13-716* 

13-765* 

13-301 

13-327* 

13-380* 

13-A06 

13-A3U 

13-A72* 

13-612 

13-639* 

13-888* 

13-C12 

13-C55* 

13-C92* 

13-D33 

13-D90* 

13-E51* 

13-E 72 

13-F23* 

13-551 

13-794 

29-58 



13-777 
1 7-20* 
13-292 
13-722 
13-; 87 
13-626 
16-97 



13-797 
13-823 
10-60 
47-1 



13-912* 

13-932* 

1 3-962 

13-997* 

13-: 22* 

13-: 42 

13-: 88* 

13-; 16* 

13-; 36 

13-; 80* 

1 3-<02* 

1i-<20 

13-<70* 

13-<91* 

13-=24 

13-=58* 

13-=77* 

13->21 

13->36* 

13->78* 

13-720 

13-765* 

13-301* 

1 3-329 

13-380* 

13-A06* 

13-A33 

13-A72* 

13-612* 

13-855 

13-888* 

13-C12* 

13-C77 

13-C92* 

13-D33* 

13-ElO 

13-E51* 

13-E 72* 

13-644 
13-344 
35-183 



13-918 

1 3-932* 

13-962* 

13-:08 

13-: 22* 

13-: 42* 

13-: 92 

13-; 16* 

13-; 36* 

13-; 87 

13-<02* 

13-<20* 

13-<74 

13-<91* 

13-=24* 

13-=60 

13--- 77* 

13->21* 

13->54 

13->78* 

13-720* 

13-772 

13-301* 

13-329* 

13-387 

13-A06* 

13-A33* 

13-A88 

13-612* 

13-655* 

13-890 

13-C12* 

13-C 77* 

13-C99 

13-D33* 

13-E 10* 

13-E 53 

13-E 72* 

13-766 
13-A51 



13-918* 

13-938 

1 3-962* 

13-: 08* 

13-: 28 

13-: 42* 

13-: 92* 

13-; 18 

13-; 36* 

13-; 87* 

13-<08 

13-<20* 

l3-<74* 

13-<95 

13-=24* 

13-=60* 

13-= 79 

13->21* 

13->54* 

l3->80 

13-720* 

13-772* 

13-314 

13-329* 

13-387* 

13-A19 

13-A33* 

13-A8&ir 

13-819 

13-655* 

13-690* 

13-C19 

13-C 77* 

13-C99* 

1 3-D46 

13-E 10* 

13-E 53* 

13-E 79 

13-862 
13-898 



13-918* 

13-938* 

13-972 

13-: 08* 

13-:28* 

13-:57 

13-: 92* 

13-; 18* 

13-; 38 

13-; 87* 

13-<08* 

13-<41 

13-<74* 

13-<95* 

13-=33 

13-=60* 

13-= 79* 

13->28 

13->54* 

1 3->80* 

13-722 

13-772* 

13-314* 

13-349 

1 3-387* 

13-A19* 

13-A37 

13-A88* 

13-fil9* 

13-663 

13-890* 

13-C 19* 

13-C 84 

13-C 99* 

13-D46* 

13-E18 

13-E 53* 

13-E 79* 

13-957 
13-C28 



1 3-922 

1 3-938* 

1 3-972* 

13-:14 

13-: 28* 

13-: 57* 

13-; 04 

13-; 18* 

13-; 38* 

13-; 91 

1 3-<08* 

13-<41* 

13-<76 

13-<95* 

13-=33* 

13-=62 

13-= 79* 

13->28* 

13->65 

13->80* 

13-722* 

13-776 

13-314* 

13-349* 

13-391 

13-A19* 

13-A37* 

13-A95 

13-619* 

13-663* 

13-692 

13-C19* 

13-C84* 

13-D05 

13-046* 

13-E18* 

13-E 55 

13-E 79* 

13-:52 
13-C40 



1 3-922* 

1 3-942 

1 3-972* 

13-:14* 

13-: 34 

13-: 57* 

13-; 04* 

13-; 24 

13-; 58* 

13-; 91* 

13-<12 

13-<41* 

13-<76* 

1 3-<97 

13-= 33* 

13-=62* 

13-=81 

1 3->28# 

1 5->65-r 

13->96 

1 3-?22* 

1 3-?764r 

13-321 

1 3-349* 

13-391* 

13-A25 

13-A37* 

13-A95* 

13HB26 

13-665* 

13-692* 

13-C26 

13-L84* 

13-005* 

13-058 

13-E18* 

15-E55* 

13-E91 

13-J52 
13-013 



13-873 13-968 13-: 61 13-; 62 13-<45 13-=28 



13-312 
13-749 
13-<08 
13-884 
16-129 



1 3-364 
13-802 
13-<70 

15- C08 

16- 163 



1 3-385 
13-823 
13-<91 
13-C84 
16-192 



13-892 


13-988 


13- 


:83 


13-881 


13-C81 


13- 


E44 


12-30 


14-20 


14- 


20 


47-1 


47-1 


47- 


1 



13-408 
13-843 
13-=54 
13-D05 
20-31* 



13-; 84 
15-46 
47-1 
47-1 



13-457 
13-89? 
13-=73 
13-E47 



13-<67 
16-75 
47-1 
47-1 



1 3-4a9 
13-SH8 
13->28 
13-E68 



13-=50 
19-10* 
47-1 
47-1 
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GO 



GTSWR 
HCE 

MCI 

HCRC 

HELP 

HT 

lAE 

IBSAVE 
!DXMS< 
IE 
ILF 

ILF02 
IL'F2A 
ILF26 
ILF30 
ILF52 
ILP3A 
ILF% 
ILF40 
IIFA2 
ILF44 
ILF46 
ILF54 
ILF56 
ILF64 
ILF66 
ILF 74 
ILF76 
ILR 

ILRG50 

ILRG52 

ILRG54 

ILRG56 

ILRG60 

ILRG62 

ILRG64 

ILRG66 

ILRG70 

RRG72 

ILRG74 

ILRG76 

lOTVEC 

IPCKO 

IPCKl 

IPCK2 

IPCK3 

IR 



47-1 
4-496* 
1 5-497 
1 3-976 
1 3->92 
1 5-D81 
24-125 

10- 28 
A-574# 
3S-378 

4-652# 
4-573* 

11- 17 
4-484* 
4-571* 

50-77 

43-1 
4-710* 
4-725* 
4-581* 

50-68 
4-501* 
4-511* 
4-512* 
4-516* 
4-516* 
/.-516* 
4-516* 
4-516* 
4-516* 
4-516* 
4-516* 
4-519* 
4-520* 
4-523* 
4-524* 
4-527* 
4-528* 
4-580* 
4-708* 
4-708* 
4-708* 
4-708* 
4-708* 
4-708* 
4-708* 
4-708* 
4-708* 
4-708* 
4-708* 
4-708* 
4-484* 
4-760* 
4-759* 
4-758* 
4-757* 
4-736* 



47--' 

13-55 

13-522 

15-:01 

15-748 

15-E30 

25-51 

47-1* 

4-583 
35-381 
25-377 

4-583 
61-18* 
41-1 
25-283 
50-78 
43-1 
20-51 

4-756* 
25-155 
50-70 



^7-1 

13-80 

1 5-568 

13-:26 

15-797 

15-E59 

25- 54 

15- D45 
55-391 
35-344 

16- 222 

41-1 

26- 89 
50-81 
43-1 
20-54 

25-157 
50-71 



47-1 

13-105 

15-595 

15-:71 

15-347 

15-F14 

35-542 

15-D50 
35-394 



47-1 

13-156 

13-618 

15-: 97 

15-ia61 

15-125 



13-E76 
50-77 



4 7-1 

15-182 

15-661 

13-; 22 

13-375 

15-185 



13-E83 
50-78 



47-1 
13-208 

1 5- 686 
13-; 70 
13-896 

16- 87 



16-222 
50-81 



47-1 
13-254 
13-714 
15-; 99 

15- A11 

16- 119 



25-379 
50-85 



44-90 

26-105 

50-82 

43-1 

21-45 

32-51 
50-72 



26-132 
50-85 
43-1 
21-48 

52-111 
50-75 



29-47 
50-86 
43-1* 



32-115 
50-74 



29-67 
43-1* 



55-24 
50-75 



53-24 
43-1* 



33-45 
50-76 



47-1 
13-279 
15-785 
15-<55 

15- A76 

16- 153 



25-584 
50-86 



25-386 35-348 35-352 35-355 35-391 35-394 



33-78 
43-1 • 



33-48 
50-79 



S£0 0296 



1 3-304 
13-810 
13-<82 
13-816 
16-182 



13-347 
15-855 
15-=57 
15-867 
23-21 



15-372 
13-880 
1 5-=66 
15-COO 
24-92 



1 5-400 
13-905 
1 3->05 
1 5-C67 
24-104 



13-472 
1 3-950 
13->51 
13-C96 
24-109 



25-399 25-401 25-414 25-429 35-348 



33-81 



35-128 
50-80 



55-172 35-190 50-59 



35-145 
50-83 



35-148 
50-84 



50-58 
50-87 



50-69 



50-67 
50-88 



32-51 32-97 32-101 33-232 33-236 33-239 55-128 35-131 35-134 



10-23* 10-23* 



51-58 
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IvC 



LBC 
LBT 

LF 

LOOEV 

LS 

LSC 

L3T 

LSTRK 

niK 

MCPE 

MDF 

MDPE 

MEDE^^B 

MFGF IL 

MI 

MIXED 
MOC 
MOH 
MCL 

MRD 

MS 

MSC 

MSDRVS 

MSE 

MSER 

MSGDRV 

MSHELP 

MUR 

MUD 

MUP 

MXF 

N 

NDTMSK 

NED 

NEM 

NorgE 

NOP 

NOTAVL 

NOTPRS 

NOTRM 

NSA 

OCC 

OFD 

OFFSET 

OM 

ONES 

OPE 

OPI 



A-677# 
55-115 
50-72 
50-86 
4-6 79# 
4-557# 
4-4844r 

10- 128 
4-634# 
4-678# 
4-635# 
7'OM 

29-53 
4-608# 
4-71 8# 
4-61 3# 

7-0* 

16-61 
4-616* 

52-4* 
4-611* 
4-642* 
4-555* 

33-158 
4-609* 
4-614* 
4-61 7* 

11- 64 
4-685* 
4-612* 

12- 69 
11-11 

4-610* 
4-633* 
4-61 5* 
4-733* 

11- 19 
4-583* 
4-730* 
4-731* 

12- 7 
4-500* 

10-116 
10-113 
10-107 
4-640* 
4-621* 
4-653* 
4-506* 
4-562* 

1 3- 462 
4-676* 
4-568* 

36-42 
50-70 
50-84 



13-601 

35-546 

50-73 

50-87 

35-232 

25-358 

41-1 

49-28* 

31-82 

35-232 

31-82 

12-56* 

35-178 

24- 92 

25- 454 
12-51* 
16-265* 



10-109 
34-30 



49-21* 
13-D11 

49-22* 
49-8* 

31-83 

25-343 
49-35* 

10-87 

25-328 

49-34* 

49-30* 
49-29* 
49-27* 



13-A39 
1 3-361 
33-145 
13-558 

25-182 
50-57 
50-71 
50-85 



15-605 

36-58 

50-74 

50-88 

35-250 

26-91 

41-1 

34- 70 

35- 266 
34-70 
12-64* 



13-832 

50-58 

50-75 

55-255 

26-93 

44-88 



35-269 
13-955 



13-836 

50-59 

50-76 



25-198 

50-60 

50-77 



25-199 29-85 29-208 35-92 35-99 55-102 55-171 
50-62 50-65 50-64 50-67 50-68 50-6O 50-70 
50-78 50-79 50-80 50-81 50-82 50-85 50-84 



SEO 029/ 

55-111 

50-71 

50-85 



49-16 57-79 



13-964 13—08 13-=99 13->44 13-?43 16-58 16-563 16-584 17-50 26-62 



24-109 24-1 £2 24-125 35-27 35-30 



35-438 

16-40 

16-273* 



29-146 
35-88 



17-29 



24-74 



13-A41 
1 3-5198 
33-201 
13-651 

29-140 
50-58 
50-72 
50-86 



35-441 
16-283* 

16-322 61-7* 



29-1 56 
35-252 



33-204 
52-21* 

29-164 
50-59 
50-73 
50-87 



29-157 
35-505 



34- 71 

35- 50 35-63 35-66 



24-78 28-31 



32-51 
50-60 
50-74 
50-88 



29-162 
35-506 



29-167 
35-528 



29-195 
35-533 



32-37 
36-35 



32-40 
36-36 



33-68 
36-40 



33-145 
36-45 



33-146 33-153 



34-29 35-453 35-4S6 



32-69 
50-61 
50-75 



32-73 
50-62 
50-76 



53-24 
SO-65 
50-77 



35-61 
50-64 
50-78 



35-64 
50-65 
50-79 



33-155 35-83 
50-66 50-67 
50-80 50-81 



35-86 
50-68 
50-82 



55-530 

50-69 

50-85 
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OR 

PACACK 

PAICACK 

PAR 

PAT 

PDA 

PFECH 

PFECHi 

PFECH2 

PFECH3 

PFECHA 

PGE 

PGM 

PHA 

PIP 

PIRO 

PI ROVE 

PLFS 

PRO 

PR1 

PR2 

PR 3 

PR4 

PR 5 

OR6 

PR 7 

PR I ERR 



PS 
PSEL 
PSW 
PUT 



PUTBUF 
PUT 1 NX 



PWRVEC 
OUES 
R6 
R7 

RCLSTS 

*HR 
YiN 
RDOCT 
RDY 
REAOr 
RECAL 
RESREG 



4-735# 
4-510* 
4-509* 
4-578* 
4-738* 
4-628* 
44-67 
44-172 
44-172 
44-172 
44-172 
4-732* 
4-558* 
4-629* 
4-554* 
36-72 
4-484* 
4-484* 
4-626* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
13-97 
13-827 
13->32 
13-E72 
4-484 
4-719* 
4-484* 
13-63 
13-525 
l3-:08 
13-765 
13-E40 
7-0* 
7-0* 
13-687 
13-700 
13-F15 
4-484* 
49-6Jr 
4-484* 
4-484* 
15-213 
4-525* 
11-12 
46-1 

11- 35 
4-722* 

12- 37* 
4-503* 

44-156 



16-119 
4-510 
24-137 



44-172* 
44-173* 
44-1 76* 
44-1 79* 
44-181* 

34-29 

15-180 
36-77 



42-5 

12- 49 
10-26 

13- 118 
13-847 
13->76 
24-41* 

4-484* 



13-87 

13-576 

l3-:28 

13-al4 

13-E62 

16-49 

13-56 

13-786 

13- 756 

15- 126* 
10-23* 

10- 23 

16- 171 

11- 65 
47-1* 
11-49 
23-21 

14- 24 

15- 185 
47-1* 



15-125 
24-141 



24-153 29-30 33-24 33-29 33-34 



35-41 



35-46 



16-150 29-156 29-177 29-182 33-145 33-216 33-221 34-29 35-505 35-511 35-516 36-35 



42-9 
13-6 

13-199 
13-922 
13-720 



13-108 

13-600 

13-: 79 

13-369 

13-F23 

16-284* 

13-81 

13-811 

13-a05 

15- 127* 
10-23* 

10- 23* 
33-15* 

11- 82 

47-1* 
23-22 

16- 153 



20-40 

13-221 
13-942 
13-776 



13-164 

13-620 

13-; 04 

13-380 

15-128 

21-31 

13-157 

13-881 

13-362 

15-186* 

48-1* 

10-23* 



45-1 
24-88 



21-34 22-7 



13-296 
13-:18 
13-325 



13-189 
13-669 
13-; 24 
13-A06 
15-190 

13-183 

13-906 

13-374 

15-187* 

48-1* 



47-1* 

24-91 



13-316 
13-:38 
13-391 



13-211 
13-693 
13-; 80 
13-A19 
16-88 

13-255 

13-977 

13-399 

15-188* 

48-1* 



23-11 

13-389 
13-;14 
13-A29 



13-262 
13-716 
13-<02 
13-A72 
16-120 

13-280 

13-:02 

13-A13 

15-189* 

48-1* 



28-22 30-14 



13-412 
13-; 34 
13-A99 



13-286 
13-793 
13-<63 
13-A88 
16-154 

13-348 
13-: 72 
13-A69* 
16-63 
48-1* 



13-514 
13-; 91 
13-830 



13-306 
13-817 
13-<85 
13-819 
16-183 

13-373 
13-: 98 
13-A70* 
21-32 
48-1* 



13-535 
13-<12 
13-888 



13-355 
13-837 
13-=46 
13-877 
21-28* 

13-473 
13-; 71 
13-A78 
24-144 



13-610 
l3-<74 
13-C12 



13-379 
13-888 
13-=68 
13-C02 



1 3-498 
13-<54 
13-868 



13-630 
13-<95 
13-C88 



13-402 
13-912 
13->21 
13-C77 



13-569 
13-= 38 
13-C68 



13-703 
13—58 
13-D09 



1 3-480 
13-932 
13->65 
13-C99 



13-594 
13->10 
13-D82 



13-726 
13-=77 
13-E51 



13-504 
13-984 
13-709 
13-D90 



13-662 
13->56 
13-E31 



31-33 
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SEO 0?99 



RESVEC 

REX 

RG 

RGDTPT 
RH 

RIP 

RLEASE 

RMAS 

RMASI 

RMASO 

RMBA 



R^eAE 

RMBAEI 

.RMBAEO 

RMBAl 

RPBAO 



RMCS1 

RMCS1I 
RMCS10 



RMCS2 
Rf1CS2I 



RMCS20 

RMCS3 

RMCS3] 

RMCS30 

RMDA 



RMOAI 
RnOAO 



RMDB 
RMD8I 
RM080 
RMDC 



4-484* 

4-624# 

4-622* 
52-3* 

4-526* 
13-COO 

4-508* 

4-505* 

4-694* 

7-0* 

7-0* 

4-766* 
13-; 76 
13-E36 

4-769* 

7-0* 

7-0* 

7-0* 

7-0* 
1 3-: 54* 
13-A42* 
17-21 

4-690* 
13-573 
13-=44 
13-E37 

7-0* 
25-51 

7-0* 
1 3-347* 
13-714* 
13-:71* 
1 3->92* 
13-C45* 
16-153* 

4-767* 
30-16* 

7-0* 
25-314 
35-494 

7-0* 

4-770* 

7-0* 

7-0* 

4-691* 
13- 39 
15-187 

7-0* 

7-0* 
13-964 
1 3->45* 
1 3-648* 
29-53 

4-768* 

7-0* 

7-0* 

4-700* 



13-105 
1 3-C96 



34-50 

13-11* 
l3-<59 
13-F19 



13-430 
13-40* 
13-; 55* 
13-A53* 
18-31 
4-764* 
13-597 
13->16 
13-F21 
16-209 
25-53 
li-41* 
1*3-372* 
13-771* 
13-: 97* 
13-748* 
13-C67* 
16-182* 
10-84* 
30-18* 
13-416 
25-329 
35-496 



13-57 

13->11 

16-64 

26-137 

13-38* 

13-:51* 

13->88* 

13-C42* 

29-56 

13-17* 

13-438 

13-58 



13-208 
13-E59 



59-13 

13-12 

13-=43 

16-68 



13-742 

13-106* 

1 3-<00* 

13-817* 

26-26 

10-89 

13-666 

13->62 

15- 126 

24- 67 

25- 64 
13-55* 
13-400* 
13-785* 
13-; 22* 
13-797* 
13-C96* 

16- 304 
10-85* 

13-421 
25-344 
59-13 



13-158 
13->57 

59-14 

13-138* 

13-; 51* 

13-728* 

13-E04* 

29-60 

13-18 

13-750 



1 3-522 
16-182 



13-83 
13->14 



26-32 

13-141* 

13-<38* 

13-852* 

26-30 

13-8* 

13-690 

13-706 

15-188 

24- 69 

25- 107 
13-80* 
13-^?8* 
13-810* 
13-; 5.5* 
13-347* 
1 3-D 76* 
17-26 
10-87 

13-423 
25-455 



13-256 
13-701 

59-16 
13-236* 
13-; 60 
13-729 
15-184* 
35-1 78 
1 3-434 



13-; 99 13-<82 13-=66 l3->05 13->51 13->92 13-748 13-797 15-A11 15-616 



13-185 
13->61 



26-34 
13-209* 
13-<83* 
13-699* 

13-60 
13-790 
13-762 
16-69 

24- 71 
26-12 
13-105* 
13-472* 
13-835* 
13-; 70* 
13-S61* 
13-D81* 

25- 28 

12- 58* 

13- 730 

26- 28 



13-349 
13-757 



13-329* 

13-<24* 

13-734* 

16-58* 

35-181 

13-746 



13-282 
13-705 



31-44 
13-239* 
13-=21* 
13-C44* 

13-84 

13-814 

13-ai1 

20-42 

24-88 

31-31 

13-142* 

13-497* 

13-865* 

13-; 99* 

13-873* 

13-B08* 

26-48 

12- 59* 

13- 734 
31-53 



13-474 
13-306 



13-454* 

13-<25 

13-743* 

16-232* 

35-185 

19-20 



13-375 
13-761 



59-14 
13-332* 
13-=67* 
13-C97* 

13-161 

13-885 

13-366 

21-36 

24-90 

34- 16 
13-156* 
13-522* 
13-880* 
13-<39* 
13-398* 
13-E30* 

35- 320 
13-13 

13-736 
35-50 



13-570 
13-363 



13-550* 
13-<34* 
13-744* 
16-233 



13-500 
13-310 



13-457* 
13->04* 
1 3-D 75* 

13-186 
13-909 
13-377 

23- 20 

24- 93 
35-27 
13-182* 
13-554* 
13-905* 
13-<53* 
13-A11* 
13-E59^ 
35-340 
13-14* 

24-49 
35-63 



13-663 
13-AOO 



13-643* 
13-<43 
13-784* 
16-235 



13-596 
13-376 



13-523* 
1 3->50* 
13-E07* 

13-259 

13-981 

13-A03 

28-28 

24-104 

35-29 

13-208* 

13-568* 

13-930* 

13-<82* 

13-A54* 

13-F09* 



13-689 
13-A15 



13-553* 
13->90* 
13-E60* 

13-283 
13-; 05 
13-A16 

24-108 

35-31 

13-240* 

13-593* 

13-960* 

13—22* 

13-A76* 

13-F14* 



24-74 
35-65 



13-787 
13-A80 



13-768* 
13-=07* 
13-785 
16-255* 



24-76 
35-67 



1 3-882 
13-669 



13-860* 
13-=08 
13-793* 
16-299 



13-813 
1 3-A84 



13-646* 
13-747* 
13-F08* 

13-352 
13-: 76 
13-A85 

24-110 

59-13 

13-254* 

13-618* 

13-976* 

13-=37* 

13-616* 

15-125* 



13-15 13-16* 20-41 



24-77 
35-438 



13-978 
13-C69 



13-861* 
13-=17* 
13-343* 
16-397* 



1 3-908 
13-673 



13-770* 
1 3-796* 
16-61* 

13-376 
13-;01 
13-674 



13-: 04 
13-C73 



13-864* 
13-346* 
16-253 

13-477 
13-; 77 
13-C74 



13-279* 
13-647* 
13-:01* 
13--66* 
13-653* 
15-185* 



13-304* 
13-661* 
13-: 26* 
13->05* 
13-667* 
16-87* 



25-99 
35-440 



13-:73 
13-D83 



13-869 
1 3-=99* 
13-351 
l"'-24 



25-1 70 
35-442 



13-; 72 
13-E32 



13-955* 
13->00* 
1 3-A50* 
26-60 



13-; 00 
13-D87 



1 3-959' 
13-A12' 
16-256< 

13-501 
13-<60 
13-D88 



24-122 24-124 24-126 



i3-333« 
13-686« 
13-: 55' 
13->51' 
13-COO' 
16-119' 



21-35 28-27* 28-29 



25-271 
35-492 



13-<55 
13-F16 



13-956' 
13->44' 
1 3-A58 
26-61 



13-159 13-257 13-3'50 13-475 13-571 13-664 13-788 13-883 13-979 13-: 74 13-; 75 13-<56 
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1 3-=40 


15->12 


13->58 


13-702 


15-758 


1 5-a07 


1 3-i64 


13-A01 


13-A81 


15-670 


1 3-. 70 


1 3-D84 


13-E55 


1 3-M 7 






16-65 
















» 










RMDCI 




26-150 


59-14 


59-16 






















RMDCO 




15-57* 


13-137» 


13-255* 


15-528* 


15-455* 


15-549* 


15-642* 


13-767* 


15-859* 


15-954* 


1 5- : 50* 


13-:69 


15-: 70* 


13-:96* 


13- -SO* 


13-<33« 


13-=16« 


1 3-= 26 


1 3-=89* 


13—90 


13-=98* 


13->48* 


15-^87* 


13-742* 


13-792* 


1 3-a33* 


13-a54 




1 3-a4?* 


1 3-A49* 


1 3-847* 


13-C41* 


13-E03* 


15-183* 


16-«?7* 


16-293 


16-396* 


17-23 


26-59 


29-49 


35-174 




R1XOS 


4-69?# 


10-86 


10-109 
























RMDSI 




15-122 


15-180 


16-116 


16-150 


24-106 


25-38 


25-40 


25-85 


25-102 


25-1 36 


25-140 


25-196 


25-225 


P5-358 


26-92 


29-91 


29-146 


29-155 


29-162 


29-166 


29-168 


29-177 


29-181 


29-185 


29-192 


29-194 


29-196 




39-206 


29-210 


29-212 


51-126 


32-25 


32-25 


52-27 


32-57 


32-39 


32-41 


55-68 


35-106 


35-144 


55-153 




55-157 


33-159 


33-169 


55-173 


55-174 


55-185 


55-187 


55-189 


33-201 


33-205 


53-205 


55-216 


33-220 


33-222 




54-28 


35-88 


55-90 


55-119 


35-252 


35-318 


35-455 


35-455 


35-457 


35-504 


35-511 


55-515 


35-517 


35-528 




55-532 


35-534 


55-544 


35-548 


35-550 


36-34 


36-40 


36-44 


36-46 


36-56 


36-60 


36-61 • 


36-62 


36-72 




36-76 


36-78 


59-15 
























RMOSO 


7-0# 




























RMDT 


4-697# 


10-91 


12-60 


44-26 






















RMDTI 


7-0# 


59-5 


59-17 
























RMOTO 


7-0# 




























RMEC1 


4-704# 




























RMEC1 I 


7-0# 


18-52 


59-14 
























R^CIO 


7-0* 




























RMEC2 


4-705* 


19-15 


























RMEC2I 


7-0* 


18-53 


19-14 


51-94 


54-94 


59-15 


















R»>»EC20 


7-0* 




























RMER1 


4-695* 


24-145 


























RMER1 I 


7-0* 


15-C16 


15-C21 


15-C 22 


15-D17 


13-D22 


15-D25 


13-D45 


15-D48 


13-D49 


13-E76 


15-E81 


15-E82 


16-222 


18-25 


18-25 


24-157 


24-152 


24-154 


25-80 


25-156 


25-183 


25-226 


25-241 


25-284 


25-561 


25-587 


25-402 




2^-417 


25-470 


25-489 


25-492 


26-89 


26-105 


26-120 


26-132 


27-24 


29-30 


29-57 


29-66 


29-140 


29-143 




29-164 


51-71 


52-51 


52-55 


52-57 


52-58 


52-69 


32-71 


52-72 


32-85 


52-85 


52-86 


52-97 


52-9P 




52-100 


52-111 


52-115 


52-114 


55-24 


55-29 


55-55 


35-55 


55-45 


53-47 


55-49 


55-61 


55-65 


55-65 




55-78 


55-80 


53-82 


55-155 


55-232 


55-256 


55-258 


55-240 


55-250 


55-252 


55-254 


55-264 


55-268 


55-270 




54-41 


55-41 


35-45 


55-47 


35-83 


35-85 


35-87 


55-128 


55-131 


55-153 


55-155 


55-145 


55-147 


55-149 




55-159 


55-161 


35-165 


55-189 


55-279 


55-282 


55-286 


55-288 


55-297 


35-299 


35-301 


55-511 


55-313 


55-514 




55-548 


55-552 


55-554 


55-556 


35-365 


55-567 


55-569 


55-578 


35-380 


35-382 


35-391 


35-393 


35-395 


35-415 




55-415 


35-417 


35-423 


35-479 


55-481 


35-483 


35-550 


36-42 


59-13 












RMER10 
RMER2 


7-0* 


24-141 


























4-703* 




























RMER?I 


7-0* 


13-601 


13-803 


13-804 


13-832 


13-634 


13-835 


13-D30 


1 3-D35 


13-D36 


15-55 


16-84 


16-225 


24-159 


25-82 


25-200 


25-256 


25-432 


27-27 


29-32 


29-85 


29-88 


29-99 


29-127 


29-130 


29-179 


29-208 


31-116 




55-31 


55-92 


53-99 


33-101 


33-103 


33-116 


33-118 


33-120 


33-130 


33-132 


33-'' 34 


33-171 


33-218 


33-266 




54-105 


55-45 


35-111 


35-114 


55-116 


55-203 


35-207 


55-252 


35-236 


35-238 


35-240 


55-250 


55-254 


55-256 




35-266 


55-268 


35-270 


55-284 


55-466 


35-468 


35-470 


55-515 


55-546 


36-58 


36-74 


56-88 


56-94 


56-96 




56-98 


36-108 


36-110 


36-112 


59-1 X 




















RMER20 


7-0* 




























RMHR 


4-701* 




























RMHRI 


7-0* 




























RMHRO 


7-0* 




























RMLA 


4-695* 






























7-0* 


59-16 


























RMLAO 


7-0* 




























RfnRI 


4-696* 


13-A69 


























RfWRII 


7-0* 


31-81 


34-69 


59-17 






















RMMRIO 


7-0* 


1 3-A68* 


13-A77* 
























RflMR2 


4-702* 




























RfT1R2I 


7-0* 


31-105 


34-81 


59-17 






















RMMR20 


7-0* 






















13-: 75 


13-; 74 


13-^57 


RMOF 


4-699* 


13-59 


13-160 


15-258 


15-551 


15-476 


15-572 


13-665 


13-789 


13-81 


1 3-980 
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WSNO 

RMyc 



RMWCI 
RHrfCO 



RQA 

ROB 

PTC 

SAl 

SA16 

SA2 

SA4 

SA8 

SAUMSK 
SAVREG 

SC 

SCO 

SCI 

SC2 

SC? 

SC4 

SCOPE 

SCTMSG 

SCTMSK 
SEARCH 
SECERR 



i>fcEIC 

SEKSTS 

SHUT 

SHUT2 

SIZCLK 

SKI 



SNGPRT 
STACK 

STAMDA 
START 
START1 
STARTS 



13-=41 

7-0# 
7-0# 

13-649* 

4-5 79# 
4-698* 
7-0# 
7-0# 
4-765* 
1 3-. 75 
13-E35 
7-0* . 
7-0* 
13-;5A« 
13-F07'« 
4-662* 
4-663* 
4-507* 
4-544* 
4-540* 
4-543* 
4-542* 
4-541* 
4-S48* 

44- 13 
4-716* 
4-597* 
4-596* 
4-595* 
4-594* 
4-593* 
4-484* 

1 3-<30 
13-43 
13-949 
4-599* 
4-513* 
13-101 
13-926 
1 3-? 24 
4-502* 

13- 76 

14- 16 

45- 1 

12- 28 
4-675* 

33-119 
56-111 
4-645* 

4- 484* 

13- ; 47 
10-66 

5- 1 
5-3 

10-15 



13—13 13-^59 13-703 l3-?59 1 3-S08 13-865 ^3-A02 13-A82 13-871 13-C71 13-085 



S£0 0301 
13-E34 13-f18 



^8-21 
13-35* 
13-<35* 
1 3-e97« 
32-51 

59-17 

13-9* 

13-<58 

13-F20 

18-72 

1 3-39* 

^3-<37- 

16-59* 

31-104 

31-104 



26 -68 
47-1* 
24-92 



13-1 
13—13 
13-144 
13-A56 

25-104 
13-122 
1 3-946 
1 3-?60 
13-55 

13- 177 

14- 20 
45-1 
22-3* 

15- 178 
33-218 



10- 23 
l3-<30 

11- 3* 
10-17* 
10-14* 
10-18* 



18-27 
13-128 
13-= 19* 
1 3-698* 
32-83 



13-10 

13-=42 

16-66 

26-10 

13-140* 

13—20* 

16-301 

34-82 

34-82 



13-32 
13- 95 
13-242 
13-655 

26-5 

13-203 

13-:22 

13-329 

13-156 

13- 275 

14- 22* 
45-3* 

16-148 
35-173 



13-1 
13-=13 

12- 53 

13- 27 



25-377 

13-130* 

13->01* 

13-C28 

32-87 



13-82 
13->15 

26-23 
13-181* 
13->03* 
17-22 



13-134 
13->41 
13-335 
13-C47 



1 3-225 
13-. 42 
13-995 
13-254 
13-368 
45-6 



29-48 
35-176 



13-32 
13- 95 

12-42 



25-487 

13-139* 

13->46* 

13-C40* 

33-232 



13-184 
13->60 

26-44 
13-207* 
l3->49* 
18-73 



24-109 24-125 31-32 



13-232 
13->85 
1 3-460 
13-E10 



13-300 
13-; 18 
13-A33 
13-347 
1 3-493 



29-51 
35-193 



13-134 

13- >41 

14- 27 



35-344 

13-237* 

13->89* 

13-D73* 

33-250 



13-281 
13-704 

26-115 
1 W38* 
13->91* 
26-24 



13-325 
13-740 
13-556 
49-3* 



13-320 
13-; 38 
13-608 
13-472 
13-589 



29-70 
35-204 



13-232 
13->85 



35-420 

13-330* 

13-732 

13-E05* 

33-253 



13-374 
13-760 

59-14 
13-331* 
13-746* 
26-45 



13-450 
13-790 
13-649 



13-393 
13-; 95 
13-639 
1 3-568 
13-682 



29-100 
35-206 



13-325 
13-740 



59-14 

13-455* 

13-735* 

13-F06* 

35-128 



13-499 
1 3-a09 



13-456* 
13-795* 



13-546 
13-S39 
13-773 



13-518 
13-<16 
13-692 
1 3-661 
13-806 



29-102 
35-207 



13-450 
13-790 



59-16 

13-551* 

13-745* 

16-60* 

35-159 



13-595 
13-375 



13-644* 
13-794* 
17-32 
35-162 



13-688 
13-A14 



1 5-766* 
13-344* 
29-58 



13-812 
1 3-A83 



13-862* 
1 3-A39 
35-183 



13-907 
13-672 



13-957* 
13-A41* 
59-11 



13-:03 
13-C 72 



13-: 52* 
13-A51* 



13-:99 
13-D86 



13-552* 13-645* 13-769* 13-863* 13-958* 13-: 53* 
13-345* 13-A52* 13-650* 13-C43* 13-D74* 13-E06* 



13-639 
13-A46 
13-867 



13-539 
13-<78 
13-C26 
13-785 
13-901 



29-106 
35-209 



13-546 
13-339 



13-763 
13-644 
13-962 



13-614 
13-<99 
13-C92 
13-880 
13-997 



29-117 
35-221 



1 3-639 
13-A46 



13-856 
13-C34 
13-: 57 



13-634 
13-=62 
13-D58 
1 3-976 
13-: 92 



29-179 
35-513 



1 3-763 
13-644 



13-951 
13-D97 
13-; 58 



13-707 
13-=81 
13-E55 
13-: 71 
29-19* 



31-117 
36-74 



1 3-856 
13-C 34 



13- :47 

14- 0 

13-<41 



1 3-831 
13->36 
13-E91 



33-92 
36-89 



1 3-951 
13-D97 



13-; 47 
13-=24 



13-851 
13->80 
25-24* 



35- 116 

36- 108 



13-:47 
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STCDRV 36-27* , 

STOP 42-1 42-5# 

STS01 55-1 55-2 

STSD2 55-1 55-2 

STSD3 59-16* 

STSF^ 56-1 56-1 56-T 56-2^ 56-2' 56-2" 56-8 56-8 56-8 56-10 56-10 56-10 56-11 56-11 



55-8 


55-10 


55-1 1 


55-12 


59- 1 5* 




55-8 


55-10 


55-11 


55-12 


59-14* 




55-8 


55-10 


55-11 


55-12 


59-1 7* 


56-8 


56-1 


56-2 


56-2 


56-2 


56-8 


56-12 


56-12 


60- 7# 








54-8 


54-9 


54-11 


54-12 


54-13 


58-21* 


54-8 


54-9 


54-11 


54-12 


54-13 


58-23* 


54-8 


54-9 


54-11 


54-12 


54-13 


58-26* 



56-11 56-12 

STSHI 54-1 54-2 

STSH2 54-1 54-2 

STSH3 58-25* 

STSH4 54-1 54-2 
SWO 4-484* 

SWOO 4-484 4-484* 

SwOI 4-484 4-484* 

SW02 4-484 4-484* 

SWC3 4-484 4-484* 

SW04 4-484 4-484* 

SU05 4-484 4-484* 

SW06 4-484 4-484* 

SW07 /.-484 4-484* 

SW08 4-484 4-484* 

SW09 4-484 4-484* 
SWT 4-484* 
SW10 4-484* 
SWI 1 4-484* 
SWI 2 4-484* 

SWI 3 4-484* 16-245 44-14 

SU14 4-484* 

SWI 5 4-484* 

SW2 4-484* 

SW3 4-484* 

SW4 4-484* 

SW5 4-484* 

SW6 4-484* 

SW7 4-484* 

SW8 4-484* 

cua 4-484* 

SWR 6-0* 10-23 10-23 10-23* 10-23* 10-23* 10-28 16-245 42-1 42-1 42-; 42-1 42-1 42-1 

42-1* 42-1* 42-1* 42-1* 43-1 43-1 43-1 43-1 43-1 44-14 45-1 45-1 45-1* 48-1 
48-1* 

SWREG 5-1* 10-23 10-28 45-1 45-1 45-1 

SYSTAT 10-76 49-23* 

TAl 4-537* 

TA16 4-533* 12-64 

TA2 4-536* 12-64 

TA4 4-535* 12-56 

TA8 4-534* 

TADMSK 4-547* 26-66 

TAG 4-664* 

TAGADR 5-9* 6-0 

TAP 4-641* 

TIMOUT 13-68^* 13-91 13-112 13-169 13-193 13-215 13-267 13-290 13-310 13-360 13-383 13-406 13-485 13-5C8 

75-:12 13-:32 l3-:84 13-;08 13-;28 13-;85 13-<06 13-<68 13-<89 l3-=53 13—72 13->26 13->70 13-?U 
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TKVEC 
TPVEC 
TRAPVE 
TRE 

TRTVEC 

TST 

TST1 

TSTIO 

TSTIl 

TST12 

TST13 

TSTU 

Tsns 

rST16 

TST17 

TST2 

TST20 

TST21 

TST22 

TST23 

TST2A 

TST25 

TST26 

TST27 

TST3 

TST30 

TST31 

TSTA 

TST5 

TST6 

TST7 

TSTW« 

TSTPRP 

TSTOUE 



TiKPBN 
TYPDS 
TYPE 



TVPOC 

TvPO»g 

TYPOS 

uo 

ui 

U2 

UNS 

UMTHSK 



13-770 
15-136 
4-4844 
4-484# 
4-484* 
4-71 7# 
4-484* 
4-665* 
13-1* 
1 3-639* 
1 5-763* 
1 3-856* 
13-951* 
13-: 47* 
13-;47* 
1 3-<30* 
13-=13* 
13-32* 
1 3-=95* 
13->41* 
13->85* 
13-740* 
13-790* 
1 3-a39* 
1 3-A46* 
13-B44* 
13-134* 
13-C34* 
1 3-D97* 
1 3-232* 
13-325* 
13-450* 
13-546* 
44-44* 
13-51 
13->08 
7-0* 
13-856 

13- C54 
44-149 

14- 20 
10-6 

10- 128 

11- 44 

12- 7 

13- 867 
38-1 

44- 104 

45- 1 
10-8 
47-1* 
10-45 

4-742* 
4-742* 
^-742* 
4-567* 
4-746* 



13-919 

45-1 • 

10-23* 
16-209 

31-105 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

-.2-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

44-45* 

13-152 

13->54 

12- 8 

13- 951 

1 3- D97 
47-1* 

14- 20 
10-28 

10- 131 

11- 48 

12- 14 

1 3- 962 
39-1 

44- 110 

45- 1 
11-33 

10-56 



31-72 
24-50 



13-385 

16-96 

45-1* 

10-23* 
24-92 

34-83 



44-47 

13-250 

13->96 

12- 9* 

13- :47 

14- 11 

44-143 
10-42 

10- 132 

11- 54 

12- 25 

13- : 57 
40-1 

44- 114 

45- 1 
11-47 

10-81 



32-51 
24-52 



13-A23 13-A93 13-624 l3-fi82 l3-f06 
16-128 16-162 16-191 23-9* 



24-109 24-125 25-106 25-108 26-12 



13-C82 13-003 13-D93 13-^45 



SEO 0303 
15-f66 15-F26 



44-159* 

13-343 

13-752 

12- 50 

13- ; 47 

14- 13* 

47-1* 
10-48 

10- 133 

11- 61 

12- 30 

13- ; 58 
41-1 

44- 126 

45- 1 
44-146 



13-468 

i3-aoi 

12- 59 

13- <30 

14- 17 



10-53 

10- 140 

11- 62 

12- 68 

13- <41 

43- 1 

44- 132 
/.5-1 

45- 1 



13-564 
13-a57 
13-1 

13- =13 

14- 17* 



10- 59 

11- 11 

11- 64 

12- 69 

13- =24 

43- 1 

44- 134 

45- 1 
47-1* 



13-657 
1 3-A64 
13-32 
l3-=95 
28-24 



10- 60 

11- 16 
11-69 
13-43 

1 3-349 
44-20 

44- 152 

45- 1 



13-781 
13-812 
13-134 
13->41 
30-17 



10- 76 

11- 17 
11-75 
13-144 
1 3-A56 
44-21 

44- 154 

45- 1 



13-876 
13-863 
13-232 
13->85 
31-56 



10- 80 

11- 19 
11-86 
13-242 
13-855 

44- 39 

45- 1 
45-1 



12-16 12-70 44-22 44-47 44-52 44-54 



13-972 
13-C55 
13-325 
13-740 
34-53 



10- 82 

11- 20 
11-87 
13-335 
13-C47 

44- 40 

45- 1 
45-1 



47-1* 



13-:65 
1 3-D 79 
13-450 
13-790 



10- 107 

11- 28 
11-92 

1 3-460 
13-E10 

44- 46 

45- 1 
45-1 



13-; 66 
13-E18 
1 3-546 
13-539 



10- 113 

11- 32 
11-100 

13- 556 

14- 20 

44- 51 

45- 1 
45-1 



1 3-<49 
13-F12 
13-639 
13-A46 



10- 116 

11- 34 

12- 3 

1 3- 649 

14- 20 

44- 53 

45- 1 
47-1* 



13—33 
15-38* 
13-763 
13-844 



10- 120 

11- 40 

12- 6 

1 3- 773 

14- 20 

44- 61 

45- 1 
48-1 



32-55 32-59 33-232 33-264 33-269 35-279 35-282 35-287 
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UHTOFF 
UNTON 
(JPE 
USE 

OSRFIL 
MM 

mC 

WCD 

wCE 

WfEMl 

WCELO 

WCF 

•'CH 

WD 

WH 



mILE 

yRL 

XSIZ 
XXDP 

ZE»»OS 



10-120 

10-131 
4-729# 
4-686* 

16-253 
4-561# 

33-169 
4-631* 
4-517* 
4-728* 
4-7S3* 
4-754* 
<.-576* 
4-518* 
4-521* 
4-522* 

13-686 

13-=37 

13-F14 
4-570* 
4-556* 

10-70* 
7-0* 

49-36* 

13-*5 



49-5^* 
49-32* 
25-270 
13-D11 
16-256 
15-122 
33-175 
31-82 



4-583 
13-304 

13-41 
13-771 
13-947 
35-342 
4-583 
25-223 
11-71 
10-33* 



17-29 

16-266* 

16-116 

34-29 

34-70 



15-416 13-422 



25-240 
1 3-400 

15-80 
13-810 
1 3-375 

25-221 
55-318 
11-101 
10-36» 



13-146 13-244 



16-27*,. 

25-196 

35-70 


16-325 
35-119 


61-12* 
55-505 


35-506 


CT— tUO 

35-544 


35-549 


36-35 


JC CO 

56-56 


56-56 


36-61 


33- 14^ 


1 5-730 


1 5-^^5 


^5- 'Or 


cn— 77 


cn— 7B 
5U— ' 0 














35-479 
13-618 


35-482 
'3-714 


1 3-835 


13-950 


13-:26 


15-; 22 












13-142 
13-865 
13-A54 


13-':82 
1 3-905 
13-A76 


15-240 
1 3-960 
13-855 


13-279 
13-: 01 
1 3-B67 


15-555 
15-: 55 
13-C45 


15-572 
15-: 97 
13-C67 


13-458 
15-; 56 
1 3-D 76 


1 3-497 
1 5-; /'U 
1 5-D81 


15-554 
1 5-< 3y 
15-E08 


1 5-593 
1 5-<^5 
1 3-E 50 


15-647 
15-F09 


25-225 


25-258 


25-255 


25-268 


55-279 


55-511 


55-515 


55-323 


50-81 


'jO-S? 




10-37 


10-39* 


10-44 


10-55 


10-124 


10-126 












13-337 


13-775 


13-871 


13-966 


13-: 59 


1 3-657 


13-C49 


13-F12 


52-58* 
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$$CMRE 


5-10# 










$$CMTM 


5-10# 


6-0 


6-0 


6-0 


6-0 


StESCA 


4-484# 










tSNEWT 


4-484# 


13-1 


13-32 


13-134 


13-232 




13-<30 


13-=13 


13-=95 


13->41 


13->85 


MSET 


47-1 


47-1 


47-1 


47-1 


47-1 


t$sE m 


10-23 


10-23* 








tiSKiP 


4-484# 










.SACTI 


4-476* 


5-5 








.tAPTB 


4-476* 


6-0 


6-0* 






.$APTH 


4-476* 


5-8 








.SAPTf 


4-476* 


48-2 








.SCATC 


4-472* 


5-1 








.ICMTA 


4-473* 


5-10 








.$EOP 


4-473* 


14-20 








.IfRRO 


4-473* 


43-1 








.SPOWE 


4-475* 


48-1 








.$RDDE 


4-474* 










.SRDOC 


4-474* 


46-1 
45-1 








.SREAD 


4-474* 








.SSAVE 


4-475* 


37-1 








.SSCOP 


4-473* 


42-1 








.SSIZE 


4-475* 










.STRAP 


4-475* 


47-1 








.$TYP8 


4-474* 


38-1 








.tTYPD 


4-474* 


39-1 








.STYPE 


4-473* 


41-1 








.STYPO 


4-474* 


40-1 








.EOUAT 


4-472* 


4-484 








.HEADE 


4-472* 


4-480 








.SETUP 


4-472* 


4-775 








.SWRHI 


4-472* 


4-481 








.SWRLO 


4-472* 


4-481* 


4-482 






CALCLR 


4-18/'* 










CALSUB 


4-201* 


13-43 


13-51 


13-63 


13-72 




13-120 


13-122 


13-126 


13-144 


13-152 




1 3-21 7 


13-221 


1 3-223 


13-225 


1 3-229 




13-300 


13-306 


13-312 


13-316 


13-318 




1 3-391 


1 3-393 


13-402 


13-408 


13-412 




13-514 


13-516 


13-518 


13-525 


13-531 




1 3-600 


13-606 


13-610 


13-612 


13-614 




1 3-682 


1 3-693 


13-699 


13-703 


1 3-705 




1 3-802 


1 3-806 


13-817 


i 3-823 


13-827 




13-888 


13-897 


1 3-901 


13-912 


13-918 




13-972 


1 3-984 


13-993 


1 3-997 


13-; 08 




13-: 57 


13-: 65 


13-: 79 


13-:88 


13-: 92 




13- .-38 


1 3-; 58 


13-; 66 


13-; 80 


13-; 87 




13-<41 


13-<49 


13-<63 


13-<70 


13-<74 




13-=33 


1 3—46 


13-=54 


13—58 


13-=60 




1 3->28 


13->32 


1 3->34 


13->36 


13->54 




13-722 


13-724 


13-752 


13-765 


13-772 




13-349 


13-357 


13-369 


1 3-380 


1 3-387 




1 3-A37 


1 3-A56 


1 3-A64 


13-A72 


13-AS8 




13-663 


13-877 


13-684 


13-688 


13-890 




13-C84 


13-C88 


13-C90 


13-C92 


13-C99 




13-E18 


13-E40 


13-E47 


13-E51 


13-E53 
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6-0 

1 3-325 
13-740 
47-1 



1 3-450 
13-790 
47-1 



13-546 
13-339 
47-1 



1 3-639 
1 3-A46 
47-1 



13-763 
13-844 
47-1 



1 3-856 
13-C34 
47-1 



13-951 
1 3-D97 
47-1 



13-76 13-87 13-93 

13-164 13-173 13-177 

13-242 13-250 13-262 

13-320 13-335 13-343 

13-419 13-437 13-460 

13-535 13-537 13-539 

13-620 13-626 13-630 

13-707 13-716 13-722 

13-829 13-831 13-837 

13-922 13-924 13-926 

13-:14 13-:18 13-:20 

13-;04 13-;10 13-; 14 

13-; 91 13-; 93 13-; 95 

l3-<76 13-<78 13-<85 

13-=62 13-=68 13-= 73 

13->65 13->72 13->76 

13-776 13-778 13-780 

13-391 13-393 13-395 

1 3-A95 1 3-A99 1 3-808 

13-692 13-C02 13-C08 

13-D05 13-D09 13-D20 

13-E55 13-E62 13-E68 



13-97 13-99 13-101 

13-189 13-195 13-199 

13-271 13-275 13-286 

13-355 13-364 13-368 

1 3-468 1 3-480 1 3-489 

13-543 13-556 13-564 

13-632 13-634 13-649 

13-726 13-733 13-749 

13-843 13-847 13-849 

13-932 13-938 13-942 

13-:22 13-:28 13-:34 

13-; 16 13-; 18 13-; 24 

13-<02 i3-<08 13-<12 

13-<91 13-<95 13-<97 

13—77 13-=79 13--8'' 

13->78 13->80 13->96 

13-301 13-314 13-321 

13-A06 13-A19 13-A25 

13-812 13-819 13-826 

13-C12 13-C19 13-C26 

13-D33 13-D46 13-D58 

13-E72 13-E79 13-E91 



13-108 13-114 13-118 

13-201 13-203 13-211 

13-292 13-296 13-298 

13-379 13-385 13-589 

13-493 13-504 13-510 

13-576 13-585 13-589 

13-657 13-669 13-678 

13-773 13-781 13-793 

13-851 13-867 13-876 

13-944 13-946 13-962 

13-:38 13-:40 13-:42 

13-; 30 13-. 34 13-; 36 

13-<14 13-<16 13-<20 

13-<99 13-=C3 13-=24 

13-=85 13->08 13->2i 

13-709 13-716 13-720 

13-325 13-327 13-329 

13-A29 13-A31 13-A33 

13-830 13-839 13-855 

13-C47 13-C55 13-C 77 

1 3-D 79 13-D90 13-E10 

13-F12 13-F23 
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£0 05ur. 



COWEN 

ENOCOM 
ERROR 



ESCAPE 

GETPRI 

GETREG 

GETSWR 

MSG 

MULT 

NEWTST 

NWTST 

POP 



PUSH 



PUTREG 

REPORT 

RGBFMC 

SETPRI 

SETTRA 

SETUP 

SKIP 

SLASH 

STARS 



/ 

S^SU 



4-484* 
4-484# 
4-484# 

15-118 
15-211 
15-298 
13-389 
15-489 
13-564 
13-649 
15-757 
1 3-857 
1 3-926 
15-:20 
13-; 14 
15-; 95 
1 5-<85 
15-=75 
13->76 
' 5-?80 
15-995 
15-606 
15-692 
13-C99 
13-E40 
4-4 84# 
4-484* 
4-164* 
4-484* 
^-8* 
4-484* 
4-484* 
1 5-<30 
4-56* 
1 3-<30 
4-484* 

21- 59 

46- 1 
4-484* 

22- 4 
48-1 

4-442* 
4-484* 
4-69* 
4-484* 

47- 1 

4- ',84* 
4-484* 
4-484* 
4-48'.* 
15-252 

1 5- 951 
13->85 
13-D69 

16- 213 
^1-1 

4-484* 



15-24 

15-120 

15-217 

15-300 

13-391 

13-493 

13-576 

13-657 

1 5-749 

15-845 

15-932 

15-:22 

15-;16 

1 5-<02 

1 5-<91 

15-=77 

15->78 

•;5-aoi 

15-A06 
15-808 
15-C02 
13-D05 
15-E47 



10-28 



13-1 

13—15 

15-1 

15- \Z 

15-16 

22-20 

48-1 

13-4 

22-5 

48-2 



7-0 
12-49 
47-1 
10-23 



5-5 

15-252 
13-951 
13->85 

15- D71 

16- 290 
42-1 
10-25 



15-43 

15- 2i 

15-221 

1 5-506 

15-595 

15-504 

13-585 

1 3-669 

15-755 

15-847 

15-958 

l5-:28 

15-; 18 

13-<08 

13-<95 

13-= 79 

13->80 

13-ai4 

13-A19 

15-812 

13-C08 

1 5-D09 

13-E51 



10-28* 



13-32 
13- 95 
13-52 
15—95 
15-19 

22- 21 
48-1 
13-13 

23- 9 
48-2 



7-0 
42-5 
47-1 



5-8 
13-525 
15-:47 
13-740 

15- D97 

16- 294 
45-1 
10-23* 



15-51 

15-126 

15-223 

15-312 

15-402 

15-510 

1 3-589 

13-678 

15-760 

13-849 

15-942 

13-: 54 

15-; 24 

15-<12 

15-<97 

15—81 

13->96 

15-321 

1 5-A25 

13-819 

l3-ri2 

15-D20 

15-653 



13-154 
13->41 
15-134 
13->41 

15- 25 
25-55 
48-2 

16- 47 
24-143 
48-2 



42-9 
47-1 



5-8 

13-525 

15-:47 

15-740 

15-D97 

24-? 

45-1 



15-65 

15-144 

15-225 

15-316 

13-408 

15-514 

13-600 

13-682 

13-773 

13-851 

13-944 

13-: 58 

13-; 50 

15-<14 

15-<99 

15--85 

15-709 

15-325 

15-A29 

15-826 

15-C''9 

15-D25 

13-E55 



13-252 

15- >85 
13-232 
13->85 

16- 71 

24- 147 
48-2 
16-262 

25- 128 



45-1 
47-1 



5-8 

15-450 

15-; 4 7 

13-790 

13-F02 

25-26 

45-1 



15-72 

^5-152 

13-229 

13-518 

15-412 

15-516 

13-606 

13-693 

13-781 

13-867 

15-946 

15-: 40 

15-; 54 

13-<16 

15-=05 

13->08 

13-716 

15-327 

15-A31 

15-850 

15-C24 

1 3-D 53 

13-E62 



13-325 
13-740 
13-525 
13-740 
16-278 
24-151 

16-281 
28-20 



47-1 



6-0 
13-450 
13-; 47 
13-790 
13-F04 
25-34 
45-1 



13-76 

15-164 

15-242 

15-520 

15-419 

15-518 

13-610 

13-699 

13-793 

1 3-876 

1 5-962 

15-:42 

15-; 56 

1 5-<20 

1 3-=24 

13->21 

13-720 

1 3-329 

13-A55 

1 3-Bj7 

13-C26 

13-D38 

13-E68 



13-450 
15-790 
15-450 

15- 790 

16- 288 
25-151 

16-297 
30-12 



47-1 



6-0 

13- 546 
15-<50 
15-359 

14- 20 
25-119 
45-1 



15-87 

15-175 

15-250 

15-335 

15-424 

15-525 

15-612 

13-703 

13-802 

13-888 

13-972 

13-: 57 

13-; 58 

13-<41 

13-=35 

15->28 

13-722 

15-349 

15-A37 

13-859 

15-C47 

13-D46 

13-E 72 



13-546 
13-359 
15-546 

15- 359 

16- 598 
28-51 

17- 20 
31-54 



47-1 



6-0 
15-546 
15-<50 
13-339 
15-57 
26-1 
45-1 



15-93 

15-177 

15-262 

15-545 

15-457 

15-551 

13-614 

13-705 

15-806 

13-897 

1 3-984 

15-:65 

15-; 58 

l5-<49 

15-=46 

15->52 

15-724 

13-357 

1 5-A56 

15-855 

15-C55 

13-D53 

13-E 79 



15-659 
15-A46 
15-659 
13-A46 

17- 65 
30-25 

18- 17 
34-51 



47-1 



13-1 

13-639 

13-=15 

1 5-A46 

15-70 

26-5 

46-1 



13-97 

15-189 

15-271 

15-555 

15-445 

15-555 

13-620 

13-707 

13-817 

1 3-901 

1 3-993 

13-:79 

13-; 66 

13-<65 

15-=54 

13->54 

15-752 

1 5-369 

13-A64 

13-865 

15-C77 

13-D58 

13-E 86 



13-765 
13-FJ44 
15-765 
13-844 

18- 95 
31-60 

19- 10 
34-52 



47-1 



15-1 

15-659 

15-=15 

1 3-A46 

15-84 

31-2 

47-1 



13-99 

15-195 

15-275 

1 5-564 

15-447 

13-537 

13-626 

13-716 

13-823 

13-912 

13-997 

13-:88 

15-; 80 

15-<70 

13-=58 

15->56 

15-765 

15-380 

15-A72 

15-677 

15-C84 

1 3-D 79 

13-E 91 



13-856 

13-C54 

15-856 

15-C54 

19-25 

54-58 

19-11 
37-"' 



47-1 



13-52 

13-765 

13-=95 

15-844 

15-107 

57-1 

48-1 



13-101 

15-199 

15-286 

15-368 

1 3-460 

15-559 

1 5-650 

1 5-722 

13-827 

13-918 

13-:08 

15-:92 

15-; 87 

15-<74 

l5-=60 

15-->54 

15-772 

13-387 

13-A88 

15-884 

15-C88 

1 3-D90 

13-F12 



13-951 

15-D97 

15-951 

15-097 

19-26 

54-59 

19-12 
39-1 



47-1 



13-32 

15-765 

15- 95 

13-844 

15-138 

38-1 

48--' 



13-108 

13-201 

1 3-292 

15-579 

1 5-468 

15-545 

13-632 

1 3-726 

13-829 

13-922 

13-:14 

15-;04 

15-; 91 

l5-<76 

15-=62 

1 5->65 

1 5-776 

15-391 

15-A95 

15-688 

15-C90 

13-ElO 

13-F23 



13-:47 
13-:47 

19- 27 
37-1 

20- 55 
46-1 



47-1 



1 5-1 34 

15-856 

15->41 

15-C54 

15-160 

59-1 

48-2 



15-114 

15-203 

15-296 

13-58'i 

13-480 

15-556 

15-654 

15-755 

13-831 

15-924 

13-:18 

13-; 10 

13-; 93 

13-<78 

15-=68 

1 3->72 

15-778 

15-395 

15-A99 

15-690 

1 5-C92 

13-E18 

42-1 



13-;47 
13-; 4 7 

20- 70 
39-1 

21- 29 
48-1 



47-1* 



15-154 
1 5-8*^6 
15->41 
15-C34 
15-200 
40-- 
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TAOS 

TvPSIN 
VPDEC 
TYPNAM 

TVPOCT 
TVPTXT 



A-A8A# 
i,-W2» 

4-48A« 
4-484* 
4-48A# 
4-12* 

8-42 

8-84 

8-1 Z6 

8-172 

8-215 

8-257 

8-299 

8-341 

8-384 

8-426 

8-468 

8-510 

8-552 

8-603 

8-645 

8-687 



6-0 



14-20 
4-484* 

10- 81 

11- 33 
10-6 

8-3 

8-45 

8-87 

8-130 

8-175 

8-218 

8-260 

8-302 

8-344 

8-387 

8-429 

8-471 

8-513 

8-556 

8-606 

8-648 

8-690 



14-20 
10-28 

12-16 
45-1 
10-42 
8-6 

8-48 

8-90 

8-133 

8-178 

8-221 

8-263 

8-305 

8-347 

8-390 

8-432 

8-474 

8-516 

8-559 

8-609 

8-651 

8-693 



12-70 44-22 44-47 44-52 



10-53 
8-9 

8-51 

8-93 

8-136 

8-182 

8-224 

8-266 

8-308 

8-551 

8-393 

8-435 

8-477 

8-519 

8-563 

8-612 

8-654 

8-696 



10-59 
8-12 

8-54 

8-96 

8-139 

8-185 

8-227 

8-269 

8-311 

8-354 

8-396 

8-438 

8-480 

8-522 

8-566 

8-615 

8-657 

8-699 



10-60 
8-15 

8-57 

8-99 

8-142 

8-188 

8-230 

8-272 

8-314 

8-357 

8-399 

8-441 

8-483 

8-525 

8-569 

8-618 

8-660 

8-702 



12-30 
8-18 
8-60 
8-102 
8-146 
8-191 
8-233 
8-275 
8-317 
8-360 
8-402 
8-444 
8-486 
8-528 
8-573 
8-621 
8-663 
8-705 



44-54 

14-20 
8-21 
8-63 
8-105 
8-150 
8-194 
8-236 
8-278 
8-320 
8-363 
8-405 
8-447 
8-489 
8-531 
8-577 
8-624 
8-666 
8-708 



14-20 
8-24 
8-66 
8-108 
8-154 
8-197 
8-239 
8-281 
8-323 
8-366 
8-408 
8-450 
8-492 
8-534 
8-581 
8-627 
8-669 
8-711 



8-27 

8-69 

8-111 

8-157 

8-200 

8-242 

8-284 

8-326 

8-369 

8-411 

8-453 

8-495 

8-537 

8-586 

8-630 

8-672 

8-714 



8-30 

8-72 

8-114 

8-160 

8-203 

8-245 

8-287 

8-329 

8-372 

8-414 

8-456 

8-498 

8-540 

8-590 

8-633 

8-675 

8-717 



8-33 

8-75 

8-117 

8-163 

8-206 

8-248 

8-290 

8-332 

8-375 

8-417 

8-459 

8-501 

8-543 

8-594 

8-636 

8-678 

8-720 



8-36 

8-78 

8-120 

8-166 

8-209 

8-251 

8-293 

8-335 

8-378 

8-420 

8-462 

8-504 

8-546 

8-597 

8-639 

8-681 

8-723 



8-39 

8-81 

8-123 

8-169 

8-212 

8-254 

8-296 

8-338 

8-381 

8-425 

8-465 

8-507 

8-549 

8-600 

8-642 

8-684 



